
J08ENT 


PAGE 1 DATEt 01/27/99 



OGOl 



NAM 

JOBENT DECK-IO Ho^t MSOS 5.0 


S'JHMARY-il6'*^^^'f»^^* 

oao2 



HASS 

STORAGE OPERATING SYSTEM VERSION 5.0 


M64QQ0Q2 

QG03 



SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


M&40Q003 

03 D 4 



COPYRIGHT CONTROL DATA CORPORATION 1976 


H640 0QQ4 

0Q06 



PROGRAM BASE- MSOS 3.0 JOBENT 


^s^^MSOS A.SMb^+OaaOB 

OG09 


Jf. 

JOB 

PROCESSOR CONTROL MODULE 


M6400 a09 

0 Q 1 1 


V- 




Mb40 Dull 

OGil 



ENT 

JBENT 


M643G013 

001-* 



ENT 

JB=>RO 


MdhG0014 

0015 



ENT 

HIPBUF 


Mo40 0 01 5 

0317 



EXT 

FILE1,FILE2 


M64C0017 

0018 



EXT 

JBCNFG JOB CANCEL FLAG 


■ M5400018 

0019 



EXT 

MIB 


M6400019 

0 0 2 0 



EXT 

JOBIND 


M 6400020 

uu21 



EXT 

SHTCH 


M540 0 02 1 

0 0 22 



EXT 

LIBEOT, RCOVER 


M64Q0022 

0323 



EXT 

JP3WT TEMP. LOC. FOR HIINP BUFFER 

ADR. 

OR ' M64000E3 

QG2i+ 




AN INDEX TO THE TRANTA TABLE OR 

M64Q0 02‘+ 

QD25 




A NEG. VALUE SET BY JOBENT 

OR J8KILL M6400025 

0 0 2 6 



EXT 

JOB^RO, JPLOAD, JPCHGE, JPT13 


M64J 0 026 

0 3 2 7 



EXT 

JLGOV4, JCR0V4, JPFLV4,HAM£V4 


-^^HSOS -+.0M640GQ27 

00 28 



EXT 

JP3TV4, AFILV4 


’^^MSOS 4.aHo4G0a28 

002? 



EXT 

lUP 


^^MSOS GMo:tG 0 029 

0 3 0 



EXT 

INPTV4 


«‘<-MSOS H. 0M640QG30 

0 3 31 



EXT 

QATCLU (TRVEC) 


116^4366^*^^^''^^’^^ 

0032 



EXT 

NJMLU 



0033 



EXT 

RESTOR 


M54G 0 u3l 

00 5 4 



EXT 

TRANV 


M6400032 

0 0 3 5 



EXT 

JKIN 


M640 0 G3 3 

00 3 6 



EXT^ 

T3 


M6400034 

0057 



EXT^ 

T5 


M6400Q35 

0038 



EXT^ 

T7 


M64j U G 36 

0 0 39 



EXT^ 

Til 


M640 0 037 

00 41 

QOEA 


" EQU 

DI3P (SEA) 


■ M640 0 039 

0 j 42 

0 0 22 


EQU 

ZERO ($22) 


M64G 0 0 40 

Q j 4 3 

D 0F4 


EQU 

AMONI (SF4) ,ADISP{SEA) 


116^ 43 56^ 


Q 0 EA 






03 4- 

0 0 46 


EQU 

TEN (S46 ) 



00 45 

0 0 OA 


EQU 

HODFF ($A) 



0 0 4 6 

0011 


EQU 

H7FFF(B11) 


^^MSOS 4.0M640a041 

00 4 7 

0 0 24 


EQU 

L(35) INPUT BUFFER LENGTH 


^^^MSOS •+.0Mo4Qa042 

0049 POQOO 

C8FE 

J8ENF 

NUH 

$C3FE ENTRY POINT 


Mo400044 



JOBENT 


DATE: 01/27/99 


PDOGl 6C75 
P00G2 663B 


P 0 u 0 3 
POjOm- 
P 0 0 G 5 
P 0 GO 6 
P0Qu7 


48 78 
18G4 
4-A 50 
20 20 
2C2Q 


P00U8 
P0 009 
PflOOA 
POuO B 
PGBOC 
POOGD 
Pu OGE 
DOQGF 
POGlu 
PuGii 
P0012 
Pu 013 
PC 014 
P 0 u 15 
PG 016 
P0Q17 
POGio 
POuig 


0 C 0 s 

CA34 

8833 

6600 

7FFF 

QOFE 

01 41 
18F9 
EQF.9 
E2 G9 
C865 
AO 11 
Bail 
0111 
18 19 
CC5F 
09 77 
1814 


P002D 
P0G2E 
P002F 
P0Q30 
POO 31 
PQ032 
PO 0 33 
P0Q34 
P0035 


^ if. ^ if. 


ERRH 




BUFFI 

LOOP 


STA^ (FI) 
3TA'^ ENITBL 


NOTICE - THE INSTRUCTION LDA» 

^‘-1 CAN NOT BE ASSEH8LED 
BECAUSE IT REFERENCES A LOC. 

OUTSIDE THE PROGRAM 
STORE LOCATION OF JOBENT FILE 

STORE FNA OF JOBENT IN ENTRY POINT. TABLE 


STQ^ 

JMP* 

ALF 

ALF 

ALF 


Sai/BUF SAVE MIINP BUFFER ADDRESS ^^MSOS 4.0M340 0052 
buffi Md400053 
i,jp ’^^MSOS 4.0Mo400054 
l’ ^•^MSOS 4.GM84 'j 0 055 
l’, ’^-MSOS 4.GH64flOQ56 


^^MSOS 

’^^MSOS 

^•^MSOS 

’^-MSOS 


M540 0 045 
M540 0 04D 
M o 4 j G 0 4 7 
M64J 0 0 4 8 
M54G 0 049 
18640 0 05 G 

4. OM340 0052 
Mo40 0 053 
4. 0Mo400054 
4tGM54'jQ05t> 
4, 0 M64fl 0 0 5 6 


0012 
POOIA QG12 
PQ02C 0001 


88 4A 
5207 
CC47 
0973 
8 8 47 
62 GB 
CC43 
0979 
8844 


BUFF2 


AFTER THE INITIAL PASS THROUGH JOBENT THIS AREA HILL BE 
OVERLAID BY THE MIPBUF BUFFER. 


M640 0 060 
M64Q0061 


ENQ LENGTH 
LDA-^ ENTTBLtQ 
AOO^ ENTTBL 
STA TRANVtO 

INQ -1 
SQZ OUT 
JMP- L03= 

LDQ- 3E9 
LDQ- 9,Q 
LDA4 JBl 
AND- H7FFF 
EOR- H7FFF 
SAN 1 

JMP* BUFF2+2 
LDA^ (FI) 

INA JBt-JBENT 
JMP^ BUFF2 

ERU EN98(’-8UFF1) 
BZS FILL(L-ENDB) 
8ZS DRV(l) 


LOAD Q WITH THE LENGTH OF ENTRY POINT TABLE M&400053 
PICK UP RELATIVE ENTRY POINT ADDRESS M64Q0064 
ADO FHA OF JOBENT M64j0065 
STORE IN TRVEC M64 j0066 


ADDR OF EXTENUEO CORE TABLE 
AOOR OF RCTV IN HONI 
IF THERE IS NO 
T7 MODULE DON'T TRY 


AND LINK 


‘-^MSOS 

»^MSOS 

«--'HSOS 

'-^MSOS 

^'^MSOS 

“--MSOS 


^^MSOS 4 


M640 0 067 
M6L00068 
M64a0 069 
M640 0070 
. 0H6400071 
. 0M64J 0072 
. 0M640 0 0 7 3 
. 0M64C 0074 
. OM6400075 
. GMo400Q76 
M&4D0077 
M64G0Q78 
. OM6400079 


WORD FOR DRIVERS 


SHORT READ 


THIS AREA WILL BE OVERLAID BY THE TRNTBL BUFFtR. 


ADD"'' JBl 
STA- 7,0 
LDA'' (FI) 

INA JB2-JBENT 
ADD*' JB2 
STA- 11,0 
LOA^ (FI) 

INA JB3-JBENT 
ADD^ JB3 


LOADER REQUEST 


CORE REQUEST 


"-HSOS 4.0Mo4Qu08i 
""MSOS 4.0M6400G82 
""'HSOS GMo4Gu083 
M6400 084 

M64G 0 0 8 6 

M 6 4 0 0 0 8 8 
M&4Q 0 089 
M640Q09D 
M64G0 091 
M640Q092 
M640 0 093 
M6400094 
Mb4uQ095 
M641I 0 096 


o 


C102 

01G3 

u 1 0 

GID 5 
C 1 G 6 

0108 

0109 

0110 
0111 
0112 
0115 

0115 

0116 

0117 

0118 
0119 
012Q 
0121 
0122 

0123 

0124 

0125 


0128 

013u 

0131 

0132 
G133 
01 3 
0135 
013 6 

013 7 

0133 
0139 

014 0 
Gl'^l 

0142 

0143 

0144 

0145 
014b 
0147 

0149 

G 1 5 u 

0151 


JOBENT 


°AGE 


DATE: 01/27/99 


c. 


PDD35 
PQ C37 
P0G38 
P0039 
P0 03A 

62 0 3 
CC3F 
097A 
8841 
6205 

LOADER 

JFLG 

STA- 

LDA^‘ 

INA 

ADO^ 

STA- 

3,0 

(Fl) 

J8+-JBENT 

JB4 

5,Q 

PO 03B 

OAOO 


ENA 

0 

P003C 

180A 

JNAHE 

JMP- 

BRL 


STATUS REQUEST 
EXIT REQUEST 


Hb4Q 0 097 
M640 0 Q98 
Mo40 0 099 
^^MSOS 4. 0M640010G 
M 6 4 0 0 1 u 1 


LOCATION OF TRAOTA ^^^MSOS 
22 LOCATIONS -^MSOS 
A NAME. 3 WORDS — -*^*MSOS 

ACCOUNT NUMBER.. 16 WORDS PARAMETER«^»MSOS 


BUFFER FOR FILES 


’^^HSOS 

’^MSOS 


H. 0M54J01Q3 
4. 0M54Q0104 
4. uHohu 010 5 
4. OMS'.Q 0 10 6 
4. QMo^+OQlOT 
4. 0M640Q108 


PGu30 OOOQ 
P0 03E 00A7 
PG03F 0005 
PDQiiO 3u08 
P0u4l 002D 
P0 u42 00C3 
P0D-t3 OODF 
POOhh 00C2 
PCGhS 0042 
G 0 08 


ENTT3L NUM 
ADC 
ADC 
ADC 
ADC 

FILTAB ADC 
ADC 
ADC 
ADC 
EOU 


0 

JBPRO-J0ENT 
ERRH- JBENT 
MIP8JF- JBENT 
TRNTQL-JBENT 
LI3-JBENT 
RECOVR- JBENT 
SAi/Ql-JBENT 

FILTAB-JBENT 

L£NGTH{^-ENTTBL-1) 


TABLE OF ENTRY POINTS TO JOBENT 
FWA OF JOBENT 

SCHEDULti J P MODULES (JBPTROE) 
J03 J04 ERRORS (ERRMSG) 

LOCAL INPUT BUFFER (MIBUF) 

TRANSFER TABLE ADDRESS (TRNVEC) 
SCHtDULE LIBEDT 
SCHEDULE RCOVER (RECOV) 

INDEX PASSED TO J.P. ROUTINES 
FILE PARAMETER TABLE (PARBV4) 


^^MSOS 

^^HSOS 

^-HSOS 

-^MSOS 

^*MSOS 

«^^MSOS 

-»MSOS 

-'^‘^MSOS 

^^HSOS 

»^HSOS 


4. 0M6400 110 
H-. 0M640 0111 
■T. GMb40ull2 
4. 0M340 Q 113 
. DMo^tOOII^ 
■+. 0M64uLill o 
4. OMb^OOllb 
4. 0M6400117 
M3 40 u 11 8 
4. G'M 6400119 
4. 0M340Q120 


o 

O 

O 


o 


o 

o 




P 0 0 4 6 
PD047 
PO 0 48 
P0049 
PQ04A 
P0048 
P0 0 4C 
POG^n 
P 0 0 ‘t E 
P0 04F 
P 0 05 0 
Pu 051 
P0 05 2 
PO u53 
P G 0 5 4 


68ED 
68ED 
68 ED 
68EF 
0 8 04 
68F0 
E82F 
4C 73 
40FF 
0C23 
C6FF 
6AB6 
GDFE 
0 171 
18FB 


P 'j u 5 5 0 A 0 1 
P0Q5 d 60 E4 


POO 57 
P3058 
P0069 
P005A 
P005B 
P005C 


C400 

7FFF 

5 4 G 0 
7FFF 

6 4 C 0 
7FFF 


BRL STA- 
STA- 
3TA» 
STA^ 
SET 
STA- 
LQO^ 
STO^ 
STQ- 
ENO 

MVBU- LDA- 
STA^ 
INQ 
SQM 
JMP^ 

* LOi^O AND 


BPS 

RI 

LOADER 

JFL3 

A 

JNAME 
SA\/8UF 
{ JBST ) 

I 

L-1 
fl) ,Q 

MIPBUF, Q 

1 

MVBJF 
GO SECTOR 


CLcAR THESE THREE LOCATIONS IN WHAT ^^HSOS 
3t THE TRNTBL BUFFER BEFORE SCHEDULING 
JOBPRO 


^^MSOS 

-^MSOS 

’^^MSOS 


^ • 


SET FIRST WORD TO INDICATE NO 
JOB NAME YET 

PICK UP MIINP BUFFER ADDRESS 
SAVti INPUT BUFFER ADDRESS IN TRVEC 
SAVE BUFFER ADDRESS IN I REG. 

M s 0 S 4 . 

TRANSFER MIINP BUFFER TO BUFFER IN JOBENT 
STORE IN MIPBUF LOCAL 


61^1295 



ENA 

1 


STA- 

$E4 

X 

LDA 

INPTV4 

X 


X 

STA 

I UP 

X 

X ABATSL 

STA + 

BATCLU 


NUMBER 


RESET CONTROL INPUT DEVICE 


SET BATCH CONTROL STATEMENT LU 


uM640Ql25 
M o 4 0 0 12 6 
H5 40 0 12 7 
0M64U 0128 
CHohu 0129 
QM640 0 130 
M5400131 
M64G 0 132 
M640 0133 
0 Mo 40 013 4 
M64Q0135 
M640 0 13 6 
M640Q137 
M6400138 
M540G139 
M640 0 140 
Mb40 0141 
M6400142 


. =*‘^HSOS 4. 0H6400144 
^^MSOS 4. GM640G145 
SYS. 116^436 6»->f '■ 


o 

o 

o 

o 

o 


o 


o 


o 


n 





JOBENT 


PAGE 4 

date: 01/27/99 







0152 







CONTROL LU 

116*4366******** 




C' 


0153 

P 0 0 p D 

C103 



LDA- 

3,1 


116*4366******** 





r\ 

015 t 

PO Q5E 

0 9 0 0 



INA 

0 


116*4366******** 






0155 

P0 05F 

0111 



SAN 

JOB070 

SENSE LU SPECIFIED 

116*4366******** 




L,..' 


015 6 

P006U 

18 41 




JOB130 

GO PROCESS *BATCH 

116*4366******** 






0157 

P0Q61 

C1Q5 


JOB070 

LDA- 

5,1 


1 16*4366******** 





o 

0153 

P0062 

El 04 



LDQ- 

4,1 


116*4366******** 




C' 

015 9 

P0 063 

QF68 



LRS 

a 


116*4366**** **** 





0150 

P0 064 

0 90 0 



INA 

0 


116*4366******** 






0161 

P0 065 

0101 



SAZ 

JOBQ 80 

SENSE 2 DIGITS OR LESS 

116*4366******** 






G162 

P0066 

132A 



JiMFif 

JP05ER 


116*4366******** 




o 


0163 

P0067 

0814 


JOB03 0 

IRQ 

A 


116*4366******** 





0154 

PO 068 

0 9 0 0 



INA 

0 

(PREVIOUS SIGN EXTENSION KILL RESULT 

116*4366******** 






016 5 







IN $FFFF 

116*4366******** 






015 6 

P0069 

0 116 



SAN 

JOB082 

SENSE 2 DIGITS 

116*4366******** 




o 


015 7 

P006A 

El 03 



LDQ- 

3,1 


116*4366******** 





0158 

PO 068 

0 F 68 



LRS 

8 


116*4366******** 






0169 

P0 06C 

OF 48 



ARS 

8 

(ADJUST FOR 1 DIGITS) 

116*4356******** 






017 0 

F0Q6O 

BOCQ 



EOR 

=NS3QGQ 


116*4366******** 







PQQ6F. 

30 00 












0171 

P006F 

1804 



JHP^ 

JOBO 84 


1 16*4366******** 






0172 

PD070 

OF 68 


JOB032 

LRS 

8 


116*4366******** 






0173 

P0071 

E103 



LDQ- 

3,1 


116*4366******** 




o 

■w' 

0 1. 7 ^ 

P0 072 

OF 68 



LRS 

8 


116*4366******** 





0 1 7 p 

P 0 0 7 3 

OD03 


J0BG84 

INQ 

-$2C 


1 16*4366******** 






017 6 

P0G7', 

0147 



SQZ 

JO0O9Q 

SENSE DELIMITER A COMMA 

116*4366******** 





o 

0177 

P 0 0 7 5 

IBIB 



JMP^ 

JP05ER 


116*4366******** 




: C' 

017 3 

PO 0 7o 

7FFF 

X 

FI 

ADC 

FILEl 


116*4366******** 





0179 

P 0 0 7 7 

7FFF 

X 

JBl 

ADC 

T7 


1 16*4366******** 






OIS 0 

F00 78 

7FFF 

X 

JB2 

ADC 

Til 


llo*4366******** 





o 

OlBi 

P0079 

7FFF 

X 

JB3 

ADC 

T3 


116*4366**** **** 




o 

013 2 

P007A 

7FFF 

X 

JBh 

ADC 

T5 


116*4366******** 





016 3 

PQ0 7B 

GOOD 


SAVBJF 

NUM 

0 


116*4366******** 






0 1 8 -» 

P00 7C 

9GG0 


JOR09G 

SUB 

=N$3Q3Q 


116*4366******** 





o 


P0G7D 

30 30 










- o 

0135 

P0Q7E 

flCOG 



ENQ 

0 


116*4366******** 






0136 

P0Q7F 

30 00 



DVI 

=N$100 


116*4366******** 







P0080 

0 1 u 0 












018 7 

P0081 

481F 
2 0 45 



STQ* 

TEHPl 


116*4366******** 




O 

■U 

0136 

P0 082 



MUI- 

TE'^ 


116*4366******** 





0189 

P00 63 

881D 



ADD* 

TEMPI 


116*4366******** 






Q19C 

PO 0 8 4 

68 1C 



STA* 

TEMPI 


11d*43d6******** 





O 

0191 

P0085 

09FD 



INA 

-2 


1 16*4366******** 




, O 

0192 

P0 036 

0121 



SAP 

JOBllQ 

SENSE LU NOT=l(ALLOVATOR) 

116*4366******** 





0193 

POOa 7 

1809 


JOBIO 0 

JM P* 

JP05ER 


116*4366******** 






019^ 

P 0 0 88 

9 0 0 0 

X 

JOBll C 

SUB 

=XMUMLJ 


116*4366******** 





r\ 


P0089 

7FFF 

X 









O 


019 5 

PQ08A 

0125 



SAP 

JP05ER 

SENSE LU .GT, MAX. 

116*4366******** 





0196 

PO 06B 

C815 



LDA* 

TEMPI 


116*4366******** 






0197 

P0G8C 

6400 

X 


STA + 

lUP 

UPDATE CONTROL STATEMENT LU 

116*4366******** 





o 


P0 080 

0 0 5A 

X 









' o 

0 1 9e 

P0G8E 

6CCD 



3TA* 

(ABATCL+1) 

SET BATCH CONTROL STATEMENT LU 

116*436&******** 





0199 

P008F 

1812 



JMP* 

JOB130 


116*4366******** 





o 













o 

o 













c 



JOBENT 


DATE; Gl/27/99 


020 0 



0231 

poego 

54 F 4 

JP05ER 

RTJ- 

CAMONI) 

0 

0 2 Q 2 

FO 091 

ODO 0 

PARMER 

NU H 

$0D00 

0 2 D 3 

PG 09 2 

0 0 0 7 


ADC 

J08125-PARMER 


020 - 

P 0 093 

0 0 0 0 


ADC 

G,B18FC , 2 



P0094 

iSFC 



0 


P0D95 

0 0 02 




02 0 5 

P0 096 

GOOD 


ADC 

JP05-PARMER 


020 6 

POO 97 

14EA 


JMP- 

(AOI3P) 


020 7 

PG 098 

0 8 4h 

J0B125 

CLR 

A 

0 

0208 

Pu099 

6 4 0 0 

X 

STA + 

MIB 


P009A 

7FFF 

X 



G2 0 9 

PG09B 

54F4 


RTJ- 

(AMONI) 


0210 

P009C 

1901 


NUM 

$19 01 

0 

0211 

PQ09D 

FF53 


ADC 

{J3ENT-^+D 


0212 

Pfl 09E 

4A 50 

JP05 

ALF 

2 , JP05 



P0D9F 

5 0 35 




0213 

POOAO 

0 0 0 0 

TEMPI 

NUM 

Q 

0 

0214 

PQOAl 

E809 

J 0 B i 3 0 

LOQ- 

SAV3UF 


0215 

POO A2 

40FF 


STQ- 

I 


OUTPUT JP05 ERROR 


u 2 1 6 
Q21 7 
0218 
0219 
C22u 
0221 
0222 

0223 

0224 
0 22 9 
0223 

022 7 
0223 
0 229 

023 3 
0 231 
u2 32 
0233 
0 2 5 4 
0 235 


P u QA 3 
PCQAh- 
P 0 0 A 5 
PDOAt 
P0QA7 


QCG3 
48 IE 
C80E 
18 Oh 
4818 


P00A8 0822 
PQGA9 CA09 


POOAA 6806 

POOAB 5800 
POuAC 0054 
POOAO E815 

POOAE 5hF4 
POGAF 1200 
POlBu uGOG 
POQBl 14EA 


SJBPRO 


JBPR3 

♦ 


JOPRDD 


STO-'" SAVOl 
LOA-*'- JBPADR 
JHP^ J8PROO 
STu^‘ SAVOl 

TRA a 
LDA^ TBL,Q 


STA-^ SCHADR 
RELEASE FILES TWO 
RTJ HRELF 


CLEAR MIB TO ALLOW MI 


RELEASE JOBENT 


SCHEDULE J08PR0 


SAVE INDEX TO PROPER ROUTINE WITHIN THE 
SCHEDULED MODULE OR AN EXECUTION ADDRESS 
MOVE INDEX FOR PROPER MODULE TO Q REG. 

Q REG. u=JPTl3» l=JOQPRO, 2=JPLOAD, 
3=JPCHGL, 4=R£ST0R, 5=JLG0 Vh 
6=JCRDVh, 7=JBFLVh, 8=NAMEC4 ^^MS 

9 = JPSTV4, 10 = AFILVu 


il6^4366»^»f 


1 1 6'" 43 6 ^ » 

^®?-MSOS 4 .GM 64 OOI 46 
Mo 40 0 14 7 
®^®^HSOS 4.0M&40 0148 
M&40 0 149 


M5400150 
M64Ulil51 
M 64 O 0152 
M6400153 


AND THREE 

RELEASE SPECIFIED FILE 


^*HSOS 4. 0M64] 0154 
^^MSOS 4.0Mo4aai55 
""^HSOS 4.0M540 0156 
M6430157 
Mo43 0158 
Mo430159 


LDQ^ SAVai 

SCHED RTJ- ($F4) 
NUM $12 CO 
SCHADR ADC 0 

JMP- (DISP) 


INDEX TO LOG IN SCHEDULED MODULE TO BEGIN 
EXECUTION OR AN EXECUTION ADDRESS. 


5 CAROS DELETED 


GIN M643016iJ 

Mo4001ol 
M54Q0162 
M6400163 
Mdh00164 
M5 40 016 5 


G2 4C 

PGQB2 

FFFF 

X 

TBL 

ADC 

{ J=^T13) 

0241 

POOB3 

FFFF 

X 

JBPADR 

ADC 

i J03PR0 ) 

0242 

PQ0B4 

FFFF 

X 


ADC 

UPLOAD ) 

02 43 

P 0 0 B 5 

FFFF 

X 


A DC 

(JPCHGE ) 

0244 

P00G6 

FFFF 

X 


ADC 

(RESTOR) 

0 2 45 

PO 0B7 

FFFF 

X 


ADC 

{ JLGOV 4 > 


M643 017 4 
M64j 017 5 
M64a0l76 
Mo4a0177 
Mo430178 
-^MSOS 4.0M6400179 


O 





JOBENT 


=>AGE 5 

date: Gl/27/99 





U c:; 4 D 

P00B3 

FFFF 

X 


ADC 

( JCRDV4 ) 



<-^H-1SOS 

•4. 0H64Q 018 0 


0247 

PQ0B9 

FFFF 

X 


ADC 

(JPFLV4) 



^^-MSOS 

4. 0Mo40 0181 

0 

0248 

POOBA 

FFFF 

X 


ADC 

{ NAMEV4 > 



^^-MSOS 

4.0H540ai82 

0 2 49 

POQ60 

FFFF 

X 


ADC 

( JPSTV4 ) 



-^■HSOS 

4. 0M&40Q133 


0 2 5 0 

PGQBC 

FFFF 

X 


ADC 

(A- ILV4) 



^^M-ISOS 

4.0H54JQ184 

o 

025 ? 

POO BO 

7FFF 

X 

F2 

ADC 

FILE? 




Mo40 0186 


0253 

PO QBE 

7FFF 

X 

SWT 

ADC 

SWTCH 




Mfa40 0187 


0 2 p 4- 

PC DBF 

7FFF 

X 

JB 

ADC 

JOBIND 




Hfa4QQ 188 

Q 

0 25 5 

POOCG 

7FFF 

X 

JBST 

ADC 

JPSWT 



61^1293 M6400189 


025 7 

POuCi 

00 0 0 


SAVI 

NUN 

0 




M64Q0191 

o 

0253 

PQQC2 

0 0 00 


SAVGU 

NUM 

0 




Mfa400132 

0259 




Af- 



1 CARD DELETED 




0 26 0 


00 08 

P 


EQU 

MIP8UF( BUFFI ) 




M&400 194 

r) 

025 1 


Q 020 

P 


EQU 

TRNTBUBUFF2) 




Mfa4 j 0 19 5 

0253 




* V-V- v-if- V- 

^ V ^ 


¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 



M5400197 


025 5 




^ THIS ROUTINE RELEASES 

FILES (PROTEC) IF PRESENTLY 



H640Q199 


025 6 




^ INCORE, 

RELEASES FILE? 

(JOB PROC. HODS.) AND SCHEDULES 


Mo40 0 20 0 


025 7 




LI3EDIT WITH THE RETURN 

LOCATION STORED IN Q. 



M640 0 201 

o 

0259 





V- V- ‘f- V- >S-^ ^ »(■* ¥ ¥ 



M540tl203 

0271 

P 0 u C 3 

582E 


LIB 

RTJ^ 

REL 

RELEASE OUTSTANDING FILES 



Mb4j 020 5 


0272 

PO u C H 

EC81 



LDQ^ 

(FI ) 




M54Q 020 6 


0273 

PD jC 5 

FOOD 



AOQ 

=XLa2-JBENT 




M640U 207 

, 


PO uCd 

OOCC 









027 4 

POOC7 

5 4 F4 



RTJ- 

(SF4) schdle libeot 



H643 0 20 8 


027 5 

P00C6 

12QQ 


TWLVE 

NUM 

$1200 




M540 0209 


0 2 7 5 

P00C9 

FFFF 

X 


ADC 

(LIBEOT) 




M640 0 210 


027 7 

POOCA 

14EA 



JHP- 

(OISP) 




M540G 211 

o 

028 0 





RETURN FROM LIBEDT ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 

Md400214 


0252 

PO lC3 

D813 



RAO-^ 

SA\/0 

THIS MUST REMAIN BEFORE TAG 

LB2 

^^HSQS 

0H5400216 


0 26 3 

POOCC 

OAOl 


LB2 

ENA 

1 




Mo4Q0217 

o 

026 . 

PODCD 

6 0 E4 



STA- 

$E4 

RESET LOAD AND GO ON RETURN 

FROM 

LI BEDT 

M6400218 

G285 

POOCE 

D4 00 

X 

LB4 

RAO 

MI8 

SET NIB FLAG TO LOCK OUT OTHER ENTRIES 

M640 0 219 



POuCF 

0 Q9A 

X 









C286 

PODDO 

0 AGO 



ENA 

0 




M540G220 

o 

0287 

°OU01 

6CEC 



STA^ 

(SWT) C 

LEAR SWITCH FOR JP LOCK-OUT. 



Mo40022i 

0258 

P0GD2 

6 8 0 0 



STA 

L3ADEP 

CLEAR LOADER IN CORE FLAG 


1 1 43 fa 6^ 



P00D3 

FF62 










025 9 

PO 0D<+ 

0 8 02 



SET 

Q 




Md4Q0223 

o 

Q29u 

P00D5 

4CEA 



STQ^ 

(JBST) 



'^^HSOS 

4. 0M64Q0224 

0291 

POODb 

4CE8 



STQ^ 

(J3) 

reset J.P. IN CORE FLAG 


»^MSOS 

4. 0M5400 225 


0 292 

P00D7 

C8G7 



LDA^ 

SAVQ 



»-»‘HSOS 

4. CMo400226 


o 


o 

o 

c 

o 


o 




o 


o 


o 

o 

o 

o 

o 


c 


JOBENT 


PAGE 


DATE; 01/27/99 


02 9 3 

P0 0D3 

0111 



SAN 

1 

Q294 

P00D9 

18C9 



JMP^ 

SJBPRO-1 

0 29 5 

PQ GOA 

0 ADO 



ENA 

0 

0296 

POODO 

5303 



STA^^ 

SAVO 

029 7 

POODC 

QC06 



ENQ 

6 

0298 

PGGDD 

18C6 



JMP^ 

SJBPRO 

u 3 0 0 

POQOE 

00 -3 0 


SAVQ 

NUN 

S 0 0 0 0 

D3Q2 




^ THIS ROUTINE RELEASES 

03 0 3 




^ ISICORE, 

RELEASES FILE 

03 J -f 




^ WITH 

THE 

RETURN LOCATI 

0 3 0 6 

POQOF 

5812 


RECOVR 

RTJ^ 

REL 

030 7 

POOEQ 

EC95 



LDQ* 

(FI) 

030 8 

POOEl 

FOuO 



ADQ 

=XRC2-JB£NT 


PO0E2 

0 0 E 8 





03 0 9 

P0QL3 

40EE 



STQ- 

SEE 

031- 

POO Eh 

54F4 



RTJ- 

(SF4 ) 

0311 

PG0E5 

12 00 



NUM 

S120G 

0 312 

PO0E6 

FFFF 

X 


ADC 

(RCO VER) 

0 3 1 0 

POOL 7 

14EA 



JHP- 

(OISP) 

0315 

P00E3 

0 5 0 0 


RC2 

IIN 

0 

0316 

P00E9 

0 AGO 



ENA 

0 

0 317 

POuEA 

6800 



STA 

RI 


P00E8 

FF49 





0318 

POGEC 

6 8 0 0 



3TA 

BPS 


POOEO 

FF46 





0319 

P 0 0 E F 

6800 



STA 

LOA DEP 


POOEF 

FF4b 





0320 

POOFG 

18D0 



JMP^ 

LB4 

0522 

Pfl OFi 

0 0 u 0 


REL 

ADC 

Q 

032 3 

PO 0F2 

0 5 00 



II N 

0 

032- 

P 0 0 F 3 

C40 0 

X 


LOA 

JBCNFG 


P00F4 

7FFF 

X 




03 2 a 

POOF5 

0101 



SAZ 

GDI 

0 32 6 

P00F6 

14FA 



JMP- 

(SEA) 

032 7 

P Q 0 F 7 

oCC7 


GOl 

STA+ 

{ JB) 

G326 

PuO F3 

5 4C C 

X 


STA 

JKIN 


POOF9 

7FFF 

X 




0329 

POOFA 

0 3 0 4 



SET 

A 

0 33 Q 

POOFB 

6GC2 



STA^ 

(SWT) 

0331 

POQFC 

0400 



EIN 

Q 

0 33 2 

POOFD 

0 8 02 



SET 

Q 

0333 

POOFE 

58 02 



RT 

MRELF 

033 4 

POOFF 

ICFl 



JMP^ 

(REL) 

033 5 

POIGO 

OBOO 


MRE LF 

NOP 

0 

0336 

PO li.l 

01 43 



SQZ 

LO^^ER 

03 3 7 

PO 10 2 

ODFA 



INQ 

-5 


LIBEOT IS TERMINATING 
ABNORMALLY 
TELL JOBPRO TO 
ABORT JOB 


^^HSOS 

’^^HSOS 

-^MSOS 

»^MSOS 

»«MSOS 

^♦MSOS 


ILE3 (PROTEC) IF PRESENTLY 

(JOB PROC. HODS.) AND SCHEDULES RECOVERY 


A. 0M6A00227 
4. 0Mb4D0228 
4. OM640Q 229 
4. GMa4D023C 
4. 0M6400231 
4. 0H640Q232 

Mb4a023H 

M54Q0235 
M6hQ0237 
M640 0238 


RELEASE ANY UNUSED FILES 
SET RETURN IN SEE TO RC2 


RETURN FROM RECOVERY PROGRAM 
CLEAR RECOVERY SWITCH 
BREAKPOINT SWITCH 
LOADER FLAG 


*^^HSOS -f.OM640024Q 
Mb4 J 0 2 h 1 
Mb430242 

M64Q0243 
M b 4 0 0 2 4 4 
M li 4 C G 2 ‘T 5 
Mo^O 0 2 h6 
Hb40 0247 

^^MSOS 4.0M6400249 
M540025Q 

116-*‘4366^^^’- 
1 16’^43 66 ^^^*- 
^^HSOS 4. OM 6^ 00 25 4 


RELEASE FILE2, FILES ROUTINE IF THEY^RE IN 
IF CANCEL FLAG SET - GO AWAY AND LET IT 
TAKE OVER. IF NOT SET, CONTINUE ON 
SET JOB PROCESSOR NOT ACTIVE 

SET LIBLDT IN FLAG 

RELEASE AREA 3 


DON'T RELEASE 3 IF T13 OR JLGOV 4 
ARE BEING CALLED 


Mo43 0 25 6 
M640 0257 
Mb4a 0 258 

Mb-tO 0259 
Mb4Q 0 26 0 
M64u02fal 
M64 j 0252 

M&4D 0 263 
M64Q 0264 
M 64 O 0263 
M640 0 266 
M04QQ267 
Mb4Q 0268 
M64 j0269 
M6400270 
M5400271 


J08ENT 


=>ftGE 


DATE: Ql/27/99 


03 3 3 

PO lu3 

0 1 41 


SQZ 

LOPER 

0339 

PD104 

OCOl 


ENQ 

1 

0340 

PQIO 5 

CEB7 

LOPER 

LDA^ 

(F2) ,Q 

0 3 ir i 

P0i06 

0 106 


SAZ 

CK 

0342 

P0107 

68 0 5 


STA^ 

RELl 

0543 

PQ iu8 

0 8 4h 


CLR 

A 

0 3 44 

P01u9 

6EB3 


STA^ 

(F2) ,Q 

0 5 45 

POlOA 

54F4 


RTJ- 

{ SF4 ) 

0 3 40 

PO 1GB 

1800 


ADC 

S18 0 0 

0 3 47 

PO IOC 

OOGO 

RELl 

ADC 

0 

0 3 48 

POIOD 

0142 

CK 

SQZ 

CONT 

0349 

PfilOE 

ODFE 


INQ 

-1 

035 0 

POlOF 

18F5 


JMF^ 

LOPER 

03 51 

PO IIG 

ICEF 

CONT 

JMP=^ 

(MRELF) 

0 3 5 3 

PO 111 

0 0 0 0 

SAVA 

NUM 

0 

035-+ 




END 


P3'1 = 

0112 

( 27 

4) C 

OM = 0000 f 


PROTEC IS THERE 

SET TO RELEASE FILES ANO FILES ■ 

IF ALREADY RELEASED - TO NEXT ONE 
NOT RELEASED - RELEASE IT 

ZERO FLAG 

RELEASE 

ALL COHPLETED - LEAVE 
wn - TRY AGAIN 


0 ) DAT = OOGO { 0 ) 


M64Q0272 
M64Q0273 
M64J 0 274 
M64Q 0 275 
H6hJ 0 276 
M6‘*00 277 
M640 0 278 
M5400279 
M640 0 230 
M&400 281 
Tf64G 0282 
M54Q0283 
M640028‘+ 
M640 0 285 


M643 0 287 
M640 0288 



JOB ENT 

PAGE 9 



DATE: 01/27/99 

a u I y 

A L E N 

C E S 






DEF. LINE 

NAME 

VALUE 


reffren 

OEO AT 

LINE 

NUMBER 

3 C j 0 

I 

OuFF 

( Oo J 255 ) 

0 138, 

0 140, 

0215 


Q G LI 

DISP 

ii O E A 

(000234) 

0 235 , 

027 7, 

C313 


0 0 42 

ZERO 

00 22 

( 0QQ03h) 





00 43 

AMONI 

00F4 

(0 00244) 

0 201 , 

0209 



0 U 4 3 

ADISP 

0 G E A 

(000234) 

0 2 0 5 




0 044 

TEN 

0 0 46 

(000070) 

0183 




0 045 

HOOFF 

OJOA 

( OOOOIG) 





G 0 H 6 

H7FFF 

0011 

(000017) 

0 U 7 8 , 

0 079 



0 0 4? 

L 

002-^ 

(000036) 

0 087 , 

0139 



0 08 6 

ENDB 

0 012 

(000013) 

0 0 87 




0125 

LENGTH 

C 0 0 8 

( 0 0 0 0 0 S ) 

0 0 68 





JORENT 


PAGE 10 


DATE 


01/27/99 


SYMBOLS 


DEF . LINE 

NAME 

address 

reffremg 

ED AT 

LINE NUMBER 


0013 

JBENT 

u G 0 0 

0013, 

0 083, 

Q09b, OluO, 

GiC4, G117, 0118, 0119, 012G, G121, 0122, .0123, 0124, 0211, 0273, 0308 

0014 

JBPRO 

Q0A7 

0014, 

0117 



0 015 

MIPBUF 

0 0 0 8 

0 015, 

b 119, 

0141 


0 D5 9 

ERRM 

0 0 0 5 

0 113 




0 068 

BUFFI 

00 u 8 

00 58, 

0 0 8o, 

0 260 


0 0 69 

LOOP 

00 0 9 

0 074 




0 0 75 

OUT 

0 010 

0 0 73 




0 08 7 

FILL 

OOIA 





0 0 83 

DRV 

0C2C 





0093 

BUFF2 

0 0 20 

0 0 81, 

0 0 8 u , 

0261 


0 10 G 

BPS 

0 0 3 4 

0 130, 

0 318 



GlQl 

RI 

0 0 3 :> 

0 131 , 

0317 



0 102 

LOADER 

0036 

0 132 , 

0288, 

0 319 


010 5 

JFLG 

0 0 3 9 

0133 




0 113 

JNAME 

003C 

0135 




0116 

ENTTBL 

003D 

0 0 55 , 

0 069, 

0070, 0125 


0121 

FILTA8 

00 42 

3 124 




0 130 

3RL 

0 0 4 6 

0 113 




0 140 

HVBUF 

0G50 

0144 




0151 

ABATCL 

u 05 B 

0198 




j 15 7 

J08G7Q 

00 61 

0 155 




G163 

JOB030 

0067 

0 161 




D 17 2 

JOB082 

0G7Q 

0166 




017 5 

J0BQ84 

0 0 73 

0 171 




0 178 

"1 

0 0 7 6 

0 0 54, 

0 082, 

0095, 0099, 

ulQ3, 0272, 0307 

0179 

JBl 

0077 

0 0 77, 

0 0 8 3, 

0 093 


0180 

UB2 

0 078 

Q 096, 

0 097 



0181 

JB3 

0079 

0100 , 

0101 



0182 

JR4 

0 0 7A 

0 104, 

010 5 



0 18 3 

3AVBUF 

00 7B 

0 057, 

Q136, 

0214 


0184 

JO BO 9 0 

007C 

0176 




0 193 

JOBlu-j 

0 0 8 7 





0194 

JO8110 

0088 

0 192 




G 201 

JP05ER 

0 090 

0162, 

0177, 

0193, 0195 


0202 

PARMER 

0091 

3 203 , 

0205 



0 20 7 

J0B125 

0 098 

3 2 03 




0212 

JP05 

009E 

0 2 05 




0 213 

TEMPI 

GGAO 

■3 187, 

0189, 

G19ii, 019 6 


0214 

JOB13G 

uOAl 

0 156, 

Q199 



] 217 

SJBPRO 

■J 0 A^ 

0 2 94, 

0298 



0 22 7 

JBPROO 

00 AA 

3 219 





o 


JO BENT 


PAGE 11 


DATE: Jl/27/99 



0 2 32 

SCHED 

0 0 A E 





0 234 

SCHAOS 

OOOO 

0227 



o 

0 240 

TBL 

0CB2 

0 223 



0 241 

J8P ADR 

GQB3 

3 218 




u252 

F2 

008D 

0 3 40 , 

0344 



0 25 3 

SWT 

OOBE 

0287, 

0 33 0 


o 

0 254 

JB 

GOBF 

3 291 , 

0 327 


0255 

JBST 

oeco 

3 137, 

0 290 



0 2 5 7 

SAVI 

OflCl 





0 258 

SAV G1 

flOC2 

0123, 

0217, 

0220 

o 

0 2bl 

TRN TBL 

0Q2D 

0 120 



3 271 

LIB 

0GC3 

0121 




G275 

TWL V£ 

00C8 





0 283 

L82 

bOCC 

0273 




0285 

LB4 

OOCE 

3 3 20 




0 3u 0 

3AVQ 

OODE 

0 282, 

0292, 

029o 


0 306 

RECOVR 

uODF 

Q 122 




0315 

RC2 

00E8 

0 308 




0 322 

REL 

OOFl 

0 271, 

0 3 0 6, 

0 334 


0 32 7 

GDI 

uDF7 

0 3 25 




0335 

NRELF 

OiOG 

0 2 29 , 

0 333, 

0351 


0 3 40 

LOPER 

QIO 5 

0 336, 

0338, 

0350 


0347 

RELl 

ulOC 

3 342 




0348 

CK 

OIQO 

0 341 




0351 

DONT 

0110 

0348 




0353 

SAVA 

0111 





0 230 


O 



JOBENT 


bate: 01/27/99 


PAGE 12 


o 

E X T E R 

N A L S 



o 

T') 

DEE. line 

NAME 

VALUE 

RFFERENGED at line NUMBER 

o 


0017 

FILEl 

0 0 7 6 

3178 



0017 

FILE2 

OuBD 

0 252 


o 

0018 

JBCNFG 

Q0F4 

0 324 

o 

0019 

MIR 

GuCF 

3208, 0285 



0 0 20 

JORINO 

OOBF 

025^+ 



3 0 21 

3WTCH 

OOBE 

0 2 53 



0 0 22 

LIREDT 

0QC9 

0 276 

o 


G 022 

RCOVER 

0 G E c 

3312 



0 0 23 

JPSWT 

0 u CO 

0 255 



0G2fc 

JOB PRO 

00B3 

0 2 41 



0 0 2 6 

JPLOAO 

uUB4 

3 2 42 


\J 

0 02 6 

JPCHGE 

0085 

0 2 43 



0 0 2 5 

JPT13 

0082 

0 2 40 



0027 

JLGOV-4 

00 37 

0 2 45 



0027 

JCRDV4 

0088 

0 2 48 

■ ■ ' o 


0 0 2 7 

JPFLV4 

J0B9 

0247 



0027 

NAHEV4 

GO BA 

02^+8 

' 


0u28 

JPSTV4 

006B 

0 2 49 



0 0 28 

AFILVu 

ODBC 

0 250 

■ n 

LJ 

3 0 2 9 

lUP 

u08D 

015u, 0197 



0 030 

INPTV4 

0 u p 8 

0 149 



0 0 31 

BAICLU 

005C 

3 151 



uC 32 

NUMLU 

0 089 

0194 

- 0 


0 C33 

RESTOR 

OOBo 

0 2 4 4 



Q 0 >5 4 

TRANV 

QOOC 

0 0 71 



QQ35 

JKIN 

00F9 

0328 



u 3 3 5 

T3 

0 0 79 

0 181 

' O 


■3 0 3 7 

T5 

00 7A 

0182 



0 0 38 

T7 

00 7 7 

0179 



0 0 39 

Til 

007 8 

3 180 


o 





■ O 

o 





■ O 

o 





o 

o 





o 

o 





o 

o 









JOBENT =AGE 13 DATE: 01/27/99 

O 



A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

>!■ 


o 

ABATCL 

0151 

ADI3P 

0 0^3 

AFIL\/4 

0 028 

AHONI 

0 0 43 

BATCLU 

0031 


C< 

0 34 8 

CONT 

0 351 

DISP 

0 0 41 

DRV 

0088 

ENDS 

0086 


FILE! 

0017 

FILE2 

0 017 

FILL 

0 087 

FILTAB 

0121 

GOl 

032 7 

C'\ 

IJ^ 

0029 

JB 

0254 

JBi 

0179 

JB2 

0 18 0 

JB3 

0181 

kJ 

J3PR0 

0 014 

JBPROO 

0 227 

JBST 

3 255 

JCRDV4 

0027 

JFLG 

0105 


JOB 0 30 

0163 

JOBO 82 

3 172 

JOB084 

0175 

JOBG90 

018h 

JOBIO J 

0193 


JOB PRO 

U 02 6 

JPO 5 

0 212 

JP05ER 

3 201 

JPCHGE 

0026 

JPFLVv 

uG27 

O 

L 

0047 

LB2 

0 283 

LD4 

0 285 

LENGTH 

012 5 

LIB 

0271 


HI3 

0 019 

HIPBUF 

0 015 

MRELF 

0 335 

MVBUF 

0 140 

NAMEV^ 

0C27 


R30 VER 

C022 

RECOVR 

0306 

REL 

0 322 

RELl 

0347 

RESTOR 

003 3 


3AVr4 

0 30 0 

SAVQl 

0258 

SCHA3R 

0 234 

SCHEO 

0232 

‘SJBPRO 

0217 

r'l 

T3 

CQ37 

T7 

0 0 38 

TBL 

0 2 43 

TEMPI 

0213 

TEN 

■3044 


o 


C) 

{'■) 


o 

o 

o 


o 


BPS 

013 0 

BRL 

G133 

ENTTBL 

0116 

ERRH 

0 3 5 9 

HOOFF 

0045 

H7FFF 

GO 4o 

JB4 

0182 

JBCNF6 

0018 

JKIN 

0035 

JLGOVt 

00 2 7 

JOBllO 

0194 

JOB125 

G2Q 7 

UPLOAD 

0 026 

JPSTV4 

CQ23 

LIBEDT 

0022 

LOADEP 

010 2 

NUMLU 

0 032 

OUT 

00 75 

RI 

0101 

SAVA 

C553 

SHT 

0253 

SHTCH 

00 2 1 

TRANV 

u 0 0 ^ 

TRNTBL 

0 2 51 


BUFFI 

0G6 8 

BUFF2 

0D93 

FI 

0173 

F2 

0252 

I 

0000 

I'^PTV4 

0030 

J dt. N T 

0 013 

JBPADR 

G 241 

JNAME 

0113 

J08070 

0157 

J0B13G 

0 21 H 

JOBIND 

uG2C 

JPS WT 

0023 

JPT13 

0026 

LOOP 

0 C69 

LOPER 

0 iM-O 

PARMER 

0202 

RC2 

(3 315 

SAV3UF 

0183 

SAVI 

0 257 

Til 

0039 

T3 

0 036 

T WLVE 

0275 

ZERO 

0 G 42 


C.- 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 

o 

c 

C) 

C) 



Til 


PAGE 1 


DATE: Di/27/99 


NAM Tli DhCK-ID H65 MSOS 5.D 

* MASS STDRAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 

^ Til CORE REQUEST PROCESSOR 

I THIS IS THE CORE REQUEST MODULE 

* THIS RtiQUtST IS JSE3 TO SET OR DETERMINE THE 
^ BOUNDS OF AVAILABLE UNPROTECTED CORE. 

I nP^wnFAlrf REGISTER CONTAINS THE LOCATION 

^ OF VOLATILE STORAGE. 

**•>■ $EG - TEMPORARY HIGHEST UNPROTFCTED 
LOCATION + 1 

$EO - TEMPORARY LOWEST UNPROTECTED 
LOCATION - 1 

ttl El " HIGHEST UNPROTECTED LOCATION -(- 1 
$F7 _ lowest UNPROTECTED LOCATION - 1 


ENT Til 
EXT JBCNFG 

EXT^- REQERR 
EXT LOAOIM 
EXT C0MPV4 


16 BIT ADDRESS COMPARE ROUTINE 


0 0 0 1 
Q 0 22 
0 0 0 3 
0 0 05 
0 0B9 


Ad) ,Q ($22),RL(3) ,PR(5) 


EQU REQXT($B9) 


POOu u 
PQ OQ 1 
P0DC2 
P00G3 
PO 0 u H 
POOG 5 
P 0 0 0 5 
PGuQ7 
P 0 G 0 8 
P 0 0 0 9 
P 0 GO A 
PO GOB 
PO 0 G C 
P 0 D 0 D 


C108 
0 1 31 
D103 
C103 
EO F6 
5C12 
0107 
0900 
0115 
G1 01 
GlGl 
18 OA 
C522 
0102 


LDA- 8,1 
SAM 1 
RAO- RL,I 
LDA- RL,I 
LDQ- $Fo 
RTJ^- (EQUAL) 
SAZ ERR 
IMA 0 
SAN ERR 
LDA- A, I 
SAZ 1 
JMP’- CORE! 
LDA- (Q),I 
SAZ CORE--^-! 


VOL WD. 8 IS INOIR INDICATOR 
^ ENTRY CHECK IF REQUcST INDIRECT 
INCPtHENT RETURN LOG. BY ONF 
INSURE THE RETURN ADDRESS IS 
LEGAL N 


CHECK FOR A AND Q ZERO. 



SUMMARY-11GM6500Q01 
Mq 50 0002 
M65 0 u OG 3 
M55Q000 h 



M65u 0006 

M55 3 0 0 0 8 

Mo5 0 Oulu 
M3500G11 
M650 0 012 
M650 001 3 
M55G 0 014 
H 6500013 
M65GQ016 
H6500Qi7 
M650 0 018 
M65 G j 019 
M550 0020 

M65D0022 



f’"'v 

•w' 



MoSO 0 02 4 
M65G0025 


*e at Si U 

(TRVE^^MSOS 4. 


M650 0 027 
M65J0028 
jMqSuQ 029 


MS500G31 


O 

o 



M6500032 

: 0 

^^MSOS 

4, CM5500 034 

: O 

-•^HSOS 

4. DMo53G035 

^^MSOS 

M65 0 0 03b 
4.uM65i]u037 

: O 

^^MSOS 

DM5500 038 

^»HSOS 

4, GHb5G0039 

^^MSOS 

•+.0M65jGu40 


^'>MSOS 

4. GMo50 0 041 

: O 


M550 0 0 42 


M65G0043 


M33 0 0 044 
M65J 0045 
Mo5 0 G 0 46 

, O 


M550Q047 


o 












/ 



Til 




^AGE 2 


0 j 4 6 

PO GOE 

18 00 

X 

ERR 

JMP 

REQERR 



POOCF 

7FFF 

X 




C- 

03 50 

POCIO 

COEC 


CORE 

LDA- 

SEC 


0 0 5 i 

POO 11 

6101 



STA- 

A » I 


0G52 

P 0 0 1 2 

COED 



LDA- 

$ED 


0-53 

P 0 0 i 3 

t;52 2 



STA- 

03,1 

; ) 

0 0 5 4 

PC01-+ 

1822 



JHP» 

CQRE2 


00 5d 

PO 0 15 

E522 


COREl 

LDQ- 

(Q) » I 


00 5 7 

POGl 5 

5400 

X 


RTJ 

COMPV4 



P0017 

7FFF 

X 





03 5 3 


GO 17 

P 


EQU 

EQUAL ( ’^-l) 


03 5 9 

PQ 318 

0103 



SAZ 

Cl 


00 5 0 

P0019 

09 00 



INA 

0 


03 51 

POOIA 

0111 



SAN 

C i 


0 0 5 2 

POOIB 

18F2 



JMP^ 

ERR 


00 5 3 

POOIG 

E0F6 


Cl 

LOQ- 

$F5 


0 3 5 H 

POOiO 

ClOi 



LDA- 

A , I 


0 0 65 

PQOIE 

5CF8 



RTJ-«^ 

(EQUAL) 


00 6 6 

POOIF 

Q1G5 



SAZ 

ARN3 


0 3 5 7 

P0020 

09 00 



INA 

0 


03 5 8 

Pb u2i 

31 Oh 



SAZ 

ARND 

1_ i 

0 3 5 9 

PGQ22 

C4ijQ 

X 


LDA 

LOADIN 



P0Q23 

7FFF 

X 





0G7 0 

PG024 

3111 



SAN 

1 


u G 7 1 

P 0 u 25 

18 E8 



JMP^ 

ERR 

J j 

G 7 2 

P002o 

CQF7 


ARNO 

LDA- 

$F7 


0 0 7 3 

PGQ27 

E522 



LDQ- 

{ Q) » I 


0G7h 

P0028 

5CEE 



RT J"- 

(EQUAL) 


0 J 7 5 

PO 029 

013 3 



SAZ 

ARl 


0 3 7 6 

PO 02 A 

3 900 



INA 

0 


0 0 77 

PQ028 

0101 



SAZ 

A R1 


0 0 7 8 

P002C 

18E1 



JMP^ 

ERR 


0 0 7 9 

PGQ2D 

C522 


ARl 

LOA- 

(Q) ,I 


Oii BO 

Pa02£ 

6 0 ED 



STA- 

SED 


03 3 1 

P002F 

ClOl 



LDA- 

A , I 


0 3 8 2 

PQ030 

60EC 



STA- 

SEC 


0 3 3 

P 0 i j 3 1 

C4G0 

X 


LDA 

JBCNFG 



PQ052 

7FFF 

X 





0 0 3 4 

P0G33 

0102 



SAZ 

C0RE2 


0 3 8 5 

P003h 

COLA 



LOA- 

SEA 


0 u 8 o 

P0035 

613 3 



STA- 

3,1 

O 

Q3 87 

P0 0 36 

14B9 


CORE2 

JMP- 

(REQXT) 


0 0 8 8 





END 



OATEi Gl/27/99 
ERROR MESSAGE J02 
A = Q = ZERO 

HIGHEST UNPROTECTED IN A 
LOWEST UNPROTECTED IN Q 

A AND Q NOT EQUAL TO ZERO 
UPPER MUST BE GREATER THAN 


IT IS 
IT IS 

NO - REQUEST ERROR 

CHECK IF A IN UNPROTECTED 
CORE 


YES 


CHECK IF LOADER IS 


IN 


NO 


IS 


REQUEST ERROR 

LOWER BOUNDS BELOW TOP 


OF MONITOR 


YES 

NO - REQUEST ERROR 


IF JOB CANCEL FLAG IS SET, 
TO USER 



O 


O 


M65Q Q 


M650 0 050 
M 65 u 0 351 
M6 5 0 u Q 5 2 
M6500053 
M65QQQ54 

Mo5 0 0 055 

LOWER ^^MSOS 4.CM550Qa57 

^^MSOS 4.0M6500a58 
■^^■MSOS 4.0M6500 059 
’i^-MSOS -+.OM653QG50 
^'^MSOS 4»OM550 0 u51 
M650 0 062 
■’^^MSOS <+,QM 6 500063 
’^'^MSOS -+ • 0 M650 U 0 6 4 
' ^^MSOS H.0M&5Q00B5 
H D 5 Q 0 05 5 
^■^HSOS 4.0M65juQ67 
•®^^MSOS 4,0Mb500 058 
M 550 0069 

M5500070 
M5500U71 
^^HSOS 4.0MB500072 
^^MSQS 0M65GG073 

■^■^HSOS •4.GM55u0 074- 

^•^MSOS ■*,CM 6530075 
^^MSOS 4. DM5500076 
’f^-MSOS 4.GH65C 0 077 
Mo5a0078 
’^^MSOS -T.0M650 0 079 
M55u 0 u 3 0 
M55G008i 
M55j0u82 

DO NOT RETURN M650G083 

M65 0 0 0 8 4 
M6530085 
M650 0 086 
M5 5 3 3 0 8 7 
Mo5G 0 08 8 


o 

o 

o 

c 


o 

C-' 

o 

o 

o 

o 

o 

o 


o 


Til 


paGE 


3 


OATES 01/27/99 


Q Equivalences 


O 


O 


O 


dee. LINE 

NAME 

VALUE 

0 0 0 0 

I 

OGFF 

0 0 31 

A 

0 001 

0 031 

Q 

uu22 

0 031 

RL 

00 03 

0 0 31 

PR 

0 00 5 

0 0 32 

REQXT 

00 89 


re-erenced at 


( 0G0255) 



(GQOOOi) 

0 0 43 ^ 

0 051 

( 0 0 j 0 3 ^ ) 

G 0 45 » 

0 05 3 

(000003) 

0 0 36 t 

0 03 7 

{ 000005) 



(000185) 

0 087 



line number 

0u5h-, 0C81 
uuiPD, 0u73, 0079 


O 

O 

o 


o 


I 


o 


o 

o 

o 


o 

o 

o 

o 

c 

o 


o 


L.-' 

o 

o 


o 


o 

o 

o 


Til 


PAGE 


4 


DATE: 01/27/99 


3 Y M B 0 L S 


o 

DE- . LINE 

NAME 

ADDRESS 


0u24 

Til 

0 0 OC 


li 0 4 8 

ERR 

00 QE 


0 0 5 0 

CORE 

OGID 


0 0 5 6 

GORE! 

0015 


0 0 58 

EQUAL 

0 017 


0063 

Cl 

OCiC 


0 3 7 2 

ARNO 

0 0 26 

o 

Du 7 9 

ARl 

002D 


0 0 67 

C0RE2 

GD36 


REPERENGEO AT LINE NUMBER 

002m* ^-*70 

QQ4Q^ 0042* 0062, 0071, Ow78 


0 024 
0 Q40i 

0042 , 

0 0 62 

0 0 47 
3 0 45 
0Q39, 

0 06 5, 

0 0 7 4 

0 u 5 9 » 

0 061 


0 0 65 » 

0 068 


3 0 75 , 

0 07 7 


0 0 54, 

0 08 4 



Til 


PA3£ 5 


date: 01/27/99 


o 


EXTERNA LS 


O 


DEF .LINE 

NAME 

VALUE 

RE-ERcNCED AT LINE NUMBER 

3 0 2 5 

JBCNFG 

G032 

0 0 83 

0 0 2 7 

REQERR 

GOOF 

0 048 

D G 2 8 

LOADIN 

3023 

0 069 

G D29 

COMPV-t 

0017 

0 0 57 


O 

O 


o 


Til 


OAGE 


6 


date: 01/27/99 


SYMBOLS 

Cl 0063 C0MPV4 0029 

LOADIN 0028 PR 0031 

o 
( ) 



A 

L P H A 

B E 

T I C A L 

SORT 

0 F 

o 

A 

uQ31 

ARl 

0 0 79 

ARNO 

3 0 72 

o 

ERR 

Til 

00*48 
0 02 4 

I 

OuOfl 

JBCNFG 

0 025 


o 

o 

o 

o 

o 

o 

o 

o 


o 


CORE 

Q 


0050 COREL 0056 CORE2 0087 EQUAL 0058 

0031 REQERR 0027 REQXT 0032 RL 0031 


C 

O 

O 

o 

r? 

O 

j' 

) 

O 

o 

o 

o 

o 

o 


o 


T7 


PiiGE 


1 


date: Cl/27/99 


OQOl NAH T7 DECK-IU M66 MSOS 5.0 

0j02 ^ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

0J03 ^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

000-+ ^ COPYRIGHT CONTROL DATA CORPORATION 1976 


o 


0 C 0 & 


^ T7 loader REQUEST ^ PROCESSOR 


O 



l' \ 

G 

O 

G 


Oj 0 B 
Oi,' 10 

Oull 
0 0 1? 
0313 
OOlw 
Q G 1 5 
G 0 15 
GO 17 
0Q18 
G : 19 
0&2G 
0u21 
CO 22 
DOES 

0 0 2 4 

0 G 2 5 
0C25 
Q027 
0 02 5 
GO 29 
0G5G 

C3 52 
0 3 3 3 
0G3 4 

QQ3o 


Jf.Jf.il. Jf. f f If If !f if fff f if If f. If If f. if ^!f f. if fJfJf if. if Jf If f if. 3f If Jf Jf if :f.ff Jf. If. If if Jf If if If Jf 

^ THIS IS THE LOADER REQUEST MODULE 
- ITS PURPOSE IS TO PLACE THE LOADER IN THE UPPER 

* MOST PART OF JNPROTFCTED CORE. 

^ THE RELOCATIM3 LOADER WILL THEN BE OPERATED. 

* THE PARAMETERS SUPPLIED TO THE LOADER MUST BE 
^ IN A AND Q WHEN THE REQUEST IS MADE. 

^ UPON ENTRANCE, THE I REGISTER CONTAINS THE LOCATION 
^ OF volatile STORAGE. 

^ THE A REGISTER CONTAINS POINTER TO PARAMETER LIST 
^ AND IE NEGATIVE, CALL IS INDIRECT 

jf 

^ VOLATILE STORAGE ASSIGNMFNT 

0 - Q REGISTER 

1 - A REGISTER 
^ 2 - I REGISTER 

^ 3 - RETURN LOCATION. 

^ - NOT USED. 

» 5 - LOG. OF REQUEST PARAMETER LIST. 

^ 6 - NOT USF_D. 

* 7 - NOT USED. 

^ 8-“ INDICATOR FOR INDIRECT 

ififjf j_jQ . loader in CORE FLAG, SET TO LOCATION 
OF _3ADER. 

LOADSD - MASS STORAGE SYSTEM DIRECTORY TABLE 

!f^. JfifififlfJ^iflfififififlfJf^lftfiflf^ifififif^iflfifiiflf^f.^lf !fV-JflfJfifJflfJf.lfififlf.JfififJf 


G 0 0 3 8 
0 C 3 9 


ENT T7 
EXT-^ REQERR 


O 

o 

O 


0 G 4l 
0042 
0 0 43 

0 3 4 4 

0 0 4 5 
00 4 6 
0 0 4 7 
0048 
00 49 

0 0 51 


0 0 23 


EXT LDADSD, JPRETl , JPRETN, JPRET JOB PROCESSOR 

EXT LOADIN 

EXT UNPIO,3WAPCK 

EXT JBONFG 

EXT JOBIND 

EXT MIBJF 

EXT GOMPV4 

EXT LOCF 

EXT LPTRS 

EQU ONEBIT{S23) 



o 


SUMMARY-11CH66Q jOjl 
M56G00Q2 
M56Q00Q5 
M5600004 


M 6 5 G 0 0 D 6 

M56J G 008 

M 5 D 3 0 0 1 Q 
Mo 600311 
M5600012 
M660Q013 
M 5 6 0 u 0 1 4 
MboO 0015 
M6600016 
HocCGGir 
M660 0 018 
H6600Q19 
M 6600020 
M66uQ 021 
M 6630022 
M56u0023 
M660 G02-T 
M66a0025 
M660Q026 
M6 du 0 02 7 
M660 0 0 2 6 
M660 0 029 
'^^MS0S4. G»M56Du 03G 

M6600Q32 
M6dQG 033 
Mb&OQ034 

M663 0 036 


H66 0 0 0 3 8 
M6600039 

RETURNS M660U041 

M660 0 042 
M5600 043 
Mo 6 j 0 0 44 
^^MSOS4.G^M6600045 
’‘«^MSOS4.U^M660g04& 
Mod G 0 Q 4 7 
M660 0 0 4 8 
Mo6u0 0 4 9 


C; 

O 

O 

o 

o 

o 

c 

o 

© 

o 

o 

o 

o 

o 

C) 


M 60 C 0051 


L- 





T7 




PAGE 2 

DATE; 01/27/99 

o 

0-j52 


3 022 



EQU 

ZERO ($22) 



0 3 53 


UOEA 



EQU 

DI5P (BEA) 


o 

0 3 5 - 


0 0 16 



EQU 

MFFFO (B16) 

SFFFO MASK 


0 3 5 6 

PCOO 0 

C1D8 


T7 

LDA- 

8,1 

GET INDIRECT WORD 


03 57 

POOOl 

0131 



3 AM 

1 

ENTRY-CHECK FOR INDIRECT REQ. 

i' 1 

00 58 

P 0 0 0 2 

D103 



RAO- 

3,1 

INCREASE RETURN LOG. BY ONE 

“w^ 

0 j 59 

P00G3 

E 8 64 



LDQ^ 

LOF 

CHECK LOCK OUT FLAG. 


0 0 5 3 

P 0 G O'- 

01 42 



SQZ 

LOAO-^-i 


3 3 5 1 

POO C 5 

1800 

X 


JMP 

REQERR 


o 


P0G06 

7FFF 

X 




0 0 5 2 

P 0 0 0 7 

G1G3 


LOAD 

COA- 

3,1 



0 3 53 

P0 3 0 8 

635F 



STAL 

RL 

SAVE RETURN LOCATION 


0 0 6 4 

POu u 9 

C1C5 



LD A- 

5,1 

SAVE PARAMETER LIST ADDRESS IN 

o 

0^65 

P G 0 0 A 

6865 



STA^ 

SAVPTR 

OF LATER ERROR 


0 3 5 6 

PO GOB 

0 804 


LOADA 

SET 

A 


Cl 57 

POOOC 

685B 



STA^- 

LDF 

SET LOCK-OUT FLAG. 


Q j 5 8 

PC 00 0 

0 5 0 0 



IIN 

0 


0 3 69 

PuODE 

54BA 



RTJ- 

($BQ) 

RELEASE VOLATILE 


00 7 0 

DOOGF 

0 4 U 0 



EIM 

0 


GO 71 

POOlO 

4853 



STQ^ 

TNA 

SAVE Q 


00 7 2 

POOH 

^8 53 



STQ^ 

TEMP 

1 

0073 

P0012 

6 8<+F 



STA- 

FUMC 

SAVE A 


0 3 7 - 

P0013 

684F 



SIA^ 

TEMPI 


03 7 5 

POOl*- 

AO 06 



ANO- 

B 6 



0 D 7 6 

P0015 

6 8 0 0 



STA 

T 


o 


PC 016 

0 09h 






00 7 7 

P 0 Q 1 7 

0822 



TRA 

Q 



0 3 7 8 

P G 0 1 8 

C849 



LOA^- 

FUMC 

REPLACE T7 LOADER REQUEST 


0 3 7 9 

P0019 

A016 



AND- 

MFF- 0 

MASK OUT REQUEST TYPE CODE 


y 0 8 3 

POOIA 

BA56 



EOR^ 

FNCODE, Q 

REQUSTED OPERATION 


0 3 51 

PO GIB 

684 5 



STA^-^ 

FUMC 


03 8 2 

POQIC 

58i*b 




TEMPI 



OG 33 

PGGID 

C223 



LDA- 

ONERIT, Q 



0 u 8 ^ 

PQGIE 

AOOO 



ANO 

= NB3A 

IS IT A 1,3,4, OR 5 



PO OIF 

0 0 3A 






0 3 8 5 

PC020 

0112 



SAN 

LOADl 

YES - ASSUME LOADER IS ALREADY 


0 0 3 b 







IF IS WAS PREVIOUSLY USED BY A 


0 0 3 7 

FOG 21 






IT WILL STILL BE IN CORE 


QG38 

G8 48 



LDA^ 

Lie 

CHECK FOR LOADER IN CORE. 


0 3 89 

P 0 u 2 2 

0101 



SAZ 

1 


00 9 0 

PQ023 

18 67 


LOAOl 

JMP^ 

LOAD4 

LOADER IN CORE 


00 9 2 

P0024 

COED 



LDA- 

SEC 

SET TEMPORARY HIGHEST AND 


0 3 9 3 

P0 02 5 

3 9 0 1 



INA 

1 


0 3 9 - 

P0Q26 

68uq 



STA* 

FWALOD 


o. 

0 0 9 5 

P0027 

GO EC 



LDA- 

SEC 

FUNCTION 

0 J 9 6 

Pfl028 

6845 



STA^ 

LWALOD 


0 3 9 7 

P0029 

CO F6 



LDA- 

$- 5 



00 98 

P0Q2A 

08 22 



TRA 

Q 

SHALL WE USE 

o 

0099 

POO 26 

90EC 



SUB- 

SEC 

F6 OR EC 

GIG Q 

PO G2C 

3 131 



SAM 

1 

USE THE SMALLER 


0101 

PO 020 

£0 EC 



LDQ- 

SEC 

(LOWEST ADDRESS) 


M65j 0052 
M66a 0 05 3 
M660 G Op 

^^MS0S4. 0 ^MooOO 055 
^^MSOSi*. 0^M5&QG 05r 
M66 00058 
M56j 0059 
M 6600060 
M 5 60 0 0 61 

M660 0 0 6 2 
Moo 0 0 Do 5 
CASE MoBOOudh 

M56 0 0 06 5 
M 560 0065 
ModjOOo? 
^^-M50S‘,.G-^H66a 0 068 
'^^MSOSA. G ^H6u0 0 059 
’^-MSOS4.G»M56Q0 070 
^»MSOS4.0 M5 dGu 071 
*^^HSOSw, O^MobOu 072 
^»-MSOS4.0-M660 0073 
■*^-HSOS4.0^-M5600 074 
M6 60 0 07 5 
M660ea76 

M66] 0077 
*^HSOS4. 0 '>‘M660 0 078 
M66 0 0 07 9 
^^MSOS4.C^M560008G 
»^MSOS4.0-M6600a8i 
'f^HSOS4.0 ^'M560 0 082 
M 6 6 £ 0 0 8 3 
^-HS0S4.u^M6oQ0084 


IN CORE 
0,3 OR 7 


Mo 60 0 06 5 
H6600a86 

M 6 6 0 0 0 8 7 
M56j 0 088 
M663 0 089 
H6&G 0 090 


^^MSOS4. j^M6600092 
^^HSOS^.G M6600093 
^^MSOS4.e M6bGQ094 
^^MS0S4. O^MobO 0095 
^'^MSOS4.0^M5&GOQ96 
^-^^^M560 0 097 
0 098 

^^*‘^^M66Q0 099 
^^^«‘-''-M563 0 10 0 
^^^^^M5600101 


O 

O 

o 

O 

o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

o 


V J 


17 


PAGE 


3 


DATE: 01/27/99 


u 

010 2 

P002E 

433A 



STQ^ 

ALDR 


^-^^^’^M66Q 0102 

C: 


010 3 

P002F 

E33C 



LDQ^ 

LSD 

LOAn LOADER INTO HIGH CORE 

M66Q0103 



01D‘^ 

P0Q30 

FOEB 



ADQ- 

$EB 


M663 010 4 

0 


010 5 

P0031 

C204 



LDA- 

kf 0 


M6&J0105 


010 6 

P0 032 

684E 



STA» 

LOAD3+5 

LOADER SIZE 

M60OOIQ6 



0137 

P 0 0 3 3 

9835 



SUB^ 

ALOR 


010 7 


o 

010 3 

P0 03-t 

0 8 64 



TCA 

A 


M66G G 108 

0 

0109 

P0D3 5 

6835 



STA^‘ 

LL 

SAVE START ADDRESS FOR LATER USE 

M 6 6 0 0 1 0 9 


Clio 

F0036 

4838 



STQ^ 

QREGR 

SAVE Q FOR LATER USE 

MboC’G iiO 



0111 

P0Q37 

EOED 



LDQ- 

SED 

CHECK IF LOADER SIZE 

M66Q0 ill 


o 

0112 

P0Q38 

OOOl 



INQ 

1 

EXCEEDS TEMPORARY UNPROTECTED CORE 

M 6 6 0 0 1 1 2 


0113 

P0039 

5 4 0 0 

X 


RTJ 

COMPV4 

IS START . LT. (SED) rl 

M 0 6 0 0 1 1 3 



P003A 

7FFF 

X 








01 l-> 

P003B 

012C 



SAP 

OK 

o 

o 

M b 6 0 0 i 1 4 


f''' 

0115 

P0 0 3C 

0900 



. INA 

0 


Mo6uG115 

0 


ull 5 

P 0 03D 

aiiA 



SAN 

OK 

NO, OK 

M660 Glib 


0117 

PO 03E 

682C 



STA-^ 

LL 

YES, CLEAR ADDRESS HOLD 

M06OOII7 



0118 

PO b 3 F 

C830 



LDA^ 

SAVPTR 


M660 0 11 8 



0119 

P Q 0 -t C 

E400 

X 


LDQ 

LPTRS 


M66G 0 119 



PQG41 

7FFF 

X 








0120 

PD042 

6622 



STA- 

(ZERO ) , Q 

STORE ERROR ADDRESS 

M660012G 



0121 

PQ043 

GC02 



ENQ 

2 


M660 0 121 



0122 

PO 0 4 4 

C4C0 

X 


LDA 

LODF 

RETURN TO PROTEC 

M6600122 

0 



P0045 

7FFF 

X 







Jl23 

P 0 0 4 b 

60FF 



STA- 

I 

TO SET UP ERROR MESSAGE 

M66Q0123 



012 V 

PCQ47 

ii^FF 



JMP- 

(I) 


M663Q124 


O, 

ul2t) 

P 0 U 4fa 

E826 


OK 

LDQ^ 

QREGR 

RESTORE Q 

MS600125 

; 0 

0126 

POO^g 

C821 



LDA^ 

LL 

RELOAD ADDRESS 

Mb 5 3 0 12 5 


012 7 

P0G4A 

681F 



STA- 

Lie 

SET LOADER IN CORE FLAG 

M66u 0127 



0128 

POO 40 

6836 



SIA^ 

L0AD3f 6 


M6c00128 


o 

013 0 

P 0 U4C 

C205 



LDA- 

5,Q 

MOST SIGNIFICANT BITS OF 

MocO G 130 

■ 0 


0131 

FOOtO 

68 35 



STA^ 

L04D347 

SECTOR NO. WHERE PRUGRAM 

M6600131 



0132 







BEGINS. 

M 6609132 



0133 

FG OhE 

C2 06 



LDA- 

5 » Q 

LEAST SIGNIFICANT BITS OF 

H660G133 

r') 


013 4 

PG04F 

68 34 



STA’ 

L0A0 3i-8 

SECTOR NO. 

M5600134 



013 5 

P 0 0 5 0 

C0C2 



LDA- 

$C2 

USE LIBRARY DISK TO READ 

’^-HSOSU ,G -M660 013 5 



013 6 

P0051 

632E 



STA^ 

THREAOf 1 

IN THE LOADER 

^»MS0S4. 0 ^M3b00136 



G137 

P0052 

5 8 26 



RTJ» 

OKREAD 

READ IN the LOADER 

^^MS0S4. 0^M66QQ137 

0 


0158 

P 0 0 5 3 

58 01 



RT 

LOADS 


»^MS0S4. O^MobOOlSS 


0139 

PO 0 54 

0 0 0 0 


LOADS 

0 

0 


»-«^MSOS4,0^M6600139 



0140 

P0Q55 

GOOD 



LDA 

=XFWALOD- 

LOADS 

^^HSOS4. 0 ^H660 0140 


o 


P0056 

0018 





SET UP FWA-LWA ADDRESS 

’^^MS0S4. 0’^Mo600141 

' 0 

0l4l 

P0057 

8 3FC 



AOD^ 

LOADS 


0142 

P 0 0 5 8 

5 8GB 



STA--^ 

TNA 

POINTER FDR SETBASES FUNCTION 

^•»MSOS4. O^MobOO 142 



0143 

PQ059 

0 AQi 



ENA 

1 


^^-MS0S4. 0»M660G143 


o 

014P 

P005A 

68 0 7 



STA^ 

FUND 


^’^MSOS4.0^^M6600144 

■ 0 

0145 

P 0 0 5 B 

5 8 7E 



RTJ» 

LOADS 

DO SET BASES FUNCTION 

^*MS0S4. 0»M6600145 


014 6 

P0C5C 

C808 



LDA^ 

TEMP 


»^MSOS4.C^M6600l4D 



0147 

PQu 50 

o8 0 6 



3TA» 

TNA 


^^MSOS4.Q^M66D0l47 


o 

0148 

PO 05E 

C8 04 



LDA^ 

TEMPI 


«-^MSOS4. C^MboOfl 148 

0 

0149 

PC 0 5F 

6 8 0 2 



STA- 

FUND 


»-HSOS4. G ^M3o0Ql49 


0 1 5 J 

P 0 J 6 0 

182A 



JHP^ 

LOA04 


^^HSOS4.0'^M6d0G 15C 



o o 


CJ 


OATEJ Gl/27/99 


T7 PAGE A 


0151 

PG061 

00 30 


FUNC 

NUM 

u 

STORAGE FOR A FOR LOADER 

=^=»^MSOS4 

0152 

PO 062 

0 0 0 0 


TEMPI 

MUM 

0 

TEMPORARY A FOR LOADER 

^^MS0S4 

015 3 

Pu 06 5 

OOGC 


TNA 

NUM 

0 

STORAGE FOR Q FOR LOADER 

^=^HS0S4 

015 4 

P Q 06 4 

00 00 


TEMP 

NUM 

0 

TEMPORARY Q FOR LOADER 

<‘^MS0S4 

015 5 

P 0 0 6 5 

7FFF 

X 

LOA DI 

ADC 

L3ADIN 


^^MS0S4 

015b 

P0066 

00 GO 


RL 

NUM 

0 

RETURN LOCATION 

’==*^MS0S4 

L 1 5 7 

P0G67 

OQOO 


LOF 

NUM 

0 

LOCK-OUT FLAG SET WHEN LOADER 

^^-MS0S4 

ul58 

P0 068 

0 0 0 0 


ALDR 

MUM 

0 


^=«‘MSOS4 

0159 







REQUEST IN OPERATION 

»=^MS0S4 

0 loO 

PC 069 

GOOD 


Lie 

NUM 

0 

LOADER IN CORE F*_AG 

^^=^MS0S4 

Q151 

P0D6A 

CuOD 


LL 

NUH 

0 

1ST WORD LOCATION OF THE LOADER 

^^MS0S4 

015 2 

PO DbB 

7FFF 

X 

LSD 

ADC 

LOA03D 


»=5=MSOS4 

0165 

P006G 

0 0 00 


FWAL3D 

NUH 

0 

BASES FOR SETBASES 

’^-MSOSL 

C 1 5 4 

PG06D 

COOO 


LWALO D 

NUM 

0 

FUNCTION 

»=^MSOS4 

015 5 

P0G6E 

0 0 00 


QREGR 

NU M 

0 

' 


016 6 

P0G6F 

0 0 0 0 


SAVPTR 

NUH 

0 

PARAMETER LIST ADDRESS 


016 7 




>(■ 


actual loader functions USED FOR EXECUTION OFX 

®-^MS0S4 

016 8 

P0 0 7D 

0 0 00 


FNC09E 

NUM 

0 

RFLOCATABLE LOAD 

^-MSOSh 

0159 

P0G71 

0 OOA 



NUM 

10 

LOAD FROM PROGRAM LIBRARY 

^^MSOSl 

u 17G 

P0G72 

0 0 0 8 



NUH 

3 

LOAD PROGRAM FROM LIB. AND EXECUTE 

’‘-MS0S4 

0171 

^ 0 073 

0 0 0 6 



NUM 

6 

PRODUCE MEMORY MAP 

=*==^MS0S4 

jj 1 7 2 

P 0 0 7 4 

0 0 0 9 



NUM 

9 

LOOK UP ENTRY-POINT NAME 

^^MS0S4 

Q17 3 

P D 0 7 5 

0 0 0 1 



NUM 

1 

SAME AS T=1 BUT NO MEMORY MAP 

^=^HSOSh 

0174 

P 0 G 76 

0 0 05 



NUM 

5 

SEARCH CREP DIRECTORIES 

«=^MS0S4 

017 5 

P0D77 

0 0 04 



NUM 

4 

INITIALIZE DATA BASE 

^=^MSOS4 

0177 

P0073 

OQCO 


DKREAO 

0 

0 


=^»HS0S4 

Gl? 8 

P00 79 

040 0 

X 


RAO 

UNPIO 

SET UNPIO TO INHIBIT SWAPPING 



PQO 7A 

7FFF 

X 






0179 

P00 7B 

5 4F 4 


LOAD3 

RTJ- 

(SF4 ) 

SYSTEM REQUEST TO LOAD 


OISG 

POQ 7C 

48 QO 



NUM 

$4800 

LOADER FROM MASS STORAGE 

^=-=^HS0S4 

0181 

PO l70 

0 0 G 0 



NUM 

B3G0D 



0182 

P0 07E 

00 00 


THREAD 

NUM 

$0 0 0 0 



0183 

P00 7F 

G8C2 



NUM 

$08C2 , 

LIBRARY UNIT 


u134 

POO 80 

QOQO 



NUM 

$000 0 

NUMBER OF WORDS 


013 5 

Pu 081 

0 0 0 0 



NUM 

$ 0 u 0 0 

STARTING ADDRESS 


013 6 

P0 082 

OGCO 



NUM 

$0 00 0 

MOST SIGNIFICANT BITS 


013 7 

P0G83 

0 (3 u 0 



NUH 

$ 0 0 0 0 

LEAST SIGNIFICANT BITS 


0183 

POQ 84 

C6F9 



LOA^ 

THREAD 

CHECK FOR COMPLETION 


0139 

PQQ85 

0101 



SAZ 

1 



0 1 9 u 

POQ 8*5 

18FO 



JMP- 

•f^-2 



0191 

PQ087 

5 40 0 

X 


RTJ 

SWAPCK 

RELEASE UNPIO FLAG 



P0088 

7FFF 

X 






0192 

PO 089 

ICEE 



JMP- 

(OKREAD ) 


^^MSOSL, 

0194 

P008A 

C82D 


L0A04 

LDA^ 

T 

CHECK FOR SUBROUTINE LOAD FUNCTIONS 

•*^^MSOS4 

019 5 

P0 08B 

0 9 FE 



INA 

-1 

ONE FUNCTION 

MSOS4. 

019 6 

PO 086 

0112 



SAN 

2 

NO 

MS0S4, 

0197 

P008D 

585D 


L0A04A 

RTJ^ 

LINK 

LINK ENTRY POINTS 

MS0S4. 

ul98 

P0 0 8E 

182C 



JMP^ 

tcheck 


MS0S4. 

0199 

P0 0 8F 

09FB 



INA 

-4 

FIVE FUNCTION 

HSOS 4 , 

0 20 0 

P0G9u 

Dili 



SAN 

1 


MS0S4, 


G’^HooOOipl 
0*M66GC152 
0 "^'M669 G lt>3 
pM56g0i54 
C M 6600155 
D M66Q0156 
0 M660Q157 
0 H66G0158 
Q M6&00159 
G Hd 6Q0160 
C'^‘M 6600151 
0^M660C162 
Q ^M&6GG15 3 
0^Mo6G0164 
H 6 6 0 0 1 6 5 
M 5 D 0 015 6 
0*M66a0l67 
0^M6600168 
0=^^6600169 
Q^M6600 170 
C •'^M660 0171 
G^M66G0172 
G^H6dG0173 
G^M663Q17^ 
0 ^M66CQ175 


0^Mo600177 

M6600178 

Mo6jC 179 
0^M6600 180 
H&600181 
M660Q182 
M660 0 183 
MSou D184 
MooO 018 5 
M 6600186 
Hb6j 0187 
H5600188 
M6600189 
M66D019G 
M660G191 

0^M6630192 

0 H66Q019A 
G M6600195 
G M6600196 
u M6600197 
0 M56UQ198 
D M6600199 
0 H 06 OO 2 OO 




T7 




= AGE : 

020 1 

PG091 

18FB 



JMP’^ 

L0AD4A 

0202 

P0Q92 

09FE 



INA 

-1 

C205 

P0093 

0111 



SAN 

1 

023 

P0094 

18F8 



JMP-> 

LOAQ4A 

020 5 

P0D95 

58 44 



RTJ^ 

LOADS 

020b 

PG096 

0125 



SAP 

NOERR 

0207 

P0G97 

0900 

0133 



INA 

0 

020a 

PGQ98 



SAM 

NOERR 

020 9 

P0G99 

03 04 



SET 

A 

0210 

P009A 

6811 



STA^ 

SAVA 

0211 

PO 09B 

18 2E 



UMP^"- 

LOA D6-2 

0212 

P009C 

0115 


NOERR 

SAN 

CRO 

0213 

P009D 

E8 00 



LDO 

T 


PO 09E 

CO OC 





0214- 

PO G9F 

Q 1 51 



SON 

GONCCR 

0215 

POOAC 

1819 



JMP- 

NOCCR 

0216 

PuOAl 

1817 


GONCCR 

J M P'" 

NOCCRD 

G217 

PQ0A2 

68C1 


CRD 

STA4 

TEMP 

C218 

P j 3 A 0 

E3 07 



LDQ^ 

T 

0219 

P U 'u A 4 

C i 51 



SQM 

NTZRO 

G22C 

POGA 5 

1 6 G 3 



JMP^ 

A ROSA V 

0221 

P 0 0 A 6 

ODFB 


NTZR3 

INQ 

-4 

3222 

PG U A7 

0 154 



SQN 

MOVE! 

0223 

PuG A8 

5 8 0 3 


ARG5A V 

STA^ 

SAVA 

022 4 

PQOAg 

1811 



JMP^ 

TGHECK 

0225 

PO OAA 

U G C 0 


T 

NUM 

0 

0 2 2 6 

PO GAB 

QGOO 


SAVA 

NUM 

0 

0227 

PQGAC 

C40Q 

X 

MOV El 

LDA 

MIBUF 


PQQAD 

7FFF 

X 




0228 

POOAE 

68 B3 



STA^ 

TEMPI 

0229 

POOAF 

0C24 



ENQ 

36 

0230 

POO BO 

CEB3 


MOVE 

LOA^ 

(TEMP) , Q 

0 231 

P0031 

6EBQ 



STA^ 

(TEMPI) ,0 

0232 

P00&2 

QOFE 



INQ 

-1 

0 23 3 

P 0 C E 3 

0171 



SQM 

1 

G234 

P0QE4 

1 8FB 



JHP^^ 

MOVE 

0235 

POOB5 

C3AC 



LDA^ 

TEMPI 

3 2 5 5 

P u 0 B 6 

6 4 0 0 

X 


STA 

JOEIND 


PQ0B7 

7FFF 

X 


LDA- 


023 7 

P00B8 

C102 


NOCCRD 

2,1 

0239 

POOB9 

68F1 


NOCCR 

STA^ 

SAVA 

0240 

PQOBA 

C8EF 


TCHECK 

LOA^ 

T 

0241 

POOBB 

OlOF 



SAZ 

L0AD6-^“ 

0242 

POOBC 

0 9FD 



INA 

-2 

0 2 43 

POQBD 

0115 



SAN 

IST3 

02-+4 

POCBE 

582C 



RTJ«^ 

LINK 

0 2 45 

POOBF 

C8E8 



LDA^ 

SAVA 

0246 

PGCCO 

0 101 



SAZ 

ERT2 

0247 

poaci 

68 A4 



STA» 

RL 

0248 

P00C2 

1807 


ERT2 

JMP» 

LOA06-2 

0249 

PQ0C3 

C9FE 


IST3 

INA 

-1 

0 25 0 

P U 0 C 4 

0 10 6 



SAZ 

L0A06-^- 


date: 01/27/99 


PATCH TO CREP TABLES FUNCTION 
YES 

NO, EXECUTE THE REQUESTED FUNCTION 

-0 ERROR INDICATOR FROM LOADER 

IRRECOVERABLE ERROR FROM 
LOADER - REPORT BACK TO 
USER 


MSOS^. 
^‘^MS0S4 . 
-^MSOSt. 
^^MS0S4. 

MSOS^, 
^»M30S4. 
^^MSOSA . 
^^MSOS4. 
«^^MS0S4 
^^*MSOS4. 
-^MS0S4 


CHECK FOR RB LOAD 


GO TO SAVE XFR ADDRESS 

SAVE POINTER TO ADDRESS OF STATEMENT 


LOOK-UP ENTRY-POINT FUNCTION 
SKIP IF NOT LOADER FUNCTION 0 
GO TO SAVE transfer ADDRESS 

^-MS0S4 

SAVE ADDRESS FOR RETURN TO USER 
type OF LOADING OPERATION 

=^’'‘MSOS4 

■ 5f^MSOS4 
’f-»MSOS4 
-^MS0S4 
^^MS0S4 

MOVE THE STATEMENT 

MOVE COMPLETED 

YtS, STORE AOOR. OF JOOENT 
BUFFER FOR JOBPRO 

^’*^HSOS4 
■ --MS0S4 

»^MSOS4 
^^HSOS4 
^^^f-MSOS4 
-^MS0S4 
’‘^N5DS4 
4-«^MSOS4 
^^MS0S4 


^^MS0S4 

SAVE A-RcGISTER 

TYPE OF LOADING OPERATION 

^^MSOS4 

SUBROUTINE LOAD FUNCTION 

46^773 
46^773 
'‘♦MS0S4 
46^773 
46 4'773 
46^773 
46-773 
46^773 


u Md600201 
O^Mb&QO 202 
O^Mb&Q0203 
0^Mo6G020h 
0 M 6600205 
0^M66D02Q6 
Q»M66DD207 
0 ^M660 0208 
D^M&600209 
0^Mo600210 
C^M660u 211 
M5&00212 
MaCOO 213 

M663 0214 
M560G215 
M 6600216 
M660G217 
[) ^M660 0 218 
M6 63 0 219 
M 5 6 ij u 2 2 0 
Mob30221 
Q-M06GO222 
H66a0223 
0 M6500224 
0 H66G0225 
0-M6&D0226 
u '^H66Q0227 

0 M6b00228 
C M 660 0 22 9 
e M6600230 
0 M06QO 231 
Q H6600232 
0 Mu60Q233 
0 M6600234 
0 M5600235 
C M6600236 

C^M660D237 

M660 0 239 
G M660 0 240 
M6630241 
M660 0 242 
M660 0243 
0 ^M6b0 0244 
H66j 0245 
M660 

H66G 0 2^7 
M60O 02^6 
M660 0249 
M660G250 


C) 


o 



T7 
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DATE: 01/27/99 

0251 

P 0 0 C 5 

09FC 



IMA 

-3 

CHECK FOR T=6 


020? 

PO 0C6 

0102 



SAZ 

2 

T=6 SET LOADER NOT IN CORE 


0 2 5 3 

P 0 u C 7 

09FE 



INA 

-1 



0254 

PQ GC8 

0102 



SAZ 

LOA D6-^'--l 

T=7 NOT NECESSARY TO CLEAR LIC 


0255 

PG 0C9 

OALO 



ENA 

G 

SET LOADER MOT IN CORE 


0 2 5 6 

POOCA 

689E 



STA’- 

Lie 


o 

025 7 

PO 0C6 

689B 


LOADS . 

STA^ 

' LOF 

SET LOCK-OUT FLAG ZERO 

02 5 8 

POOCC 

6C98 



STA^ 

(LDADI ) 



0 2 3 9 

PGQCO 

EO EE 



LDQ- 

SEE 

PICK UP LOADER RETURN 


0 26 G 

POOCF 

0600 



SPB 

0 

RESET PROTECT BIT 

o 

0261 

POOCF 

E400 

X 


LDQ 

JBCNFG 



POGDO 

7FFF 

X 






0262 

PO GDI 

0141 



SQZ 

1 



0 2 5 3 

P00D2 

14EA 



JMP- 

{0I5P) 

EXIT, JOB CANCEL FLAG HAS BEEN SET 


0 2 6 b 

PGGD3 

C892 

6804 



■ LDA» 

RL 



025 5 

P 0 G D 4 



^ STA^ 

RET + 1 

RETURN LOlATION 


0 2 5 6 

PC 005 

G 8B5 


LOA09 

LDA^ 

SAVA 

RETURN A REGISTcR. 


0 2 5 7 

P0 0D6 

0 40 0 



EIN 

0 

ENABLE INTERRUPTS BEFORE RETURNING 

Q 

0258 

P00D7 

1400 


RET 

JMP + 

0 

RETURN TO CALLING PROGRAM 


P 0 uD8 

00 GO 







02 7 0 

P C 0 D 9 

00 GO 


LOADS 

0 

0 


r'l 

0271 

POOOA 

E8FE 



LOQ^ 

L3AD8 

LOADER RETURN LOCATION. 

0272 

P00D8 

-*400 

X 


STQ 

JPRETl 

PATCH RETURN FROM TRVEC 



POQDC 

7FFF 

X 






0273 

POODD 

EQ 00 

X 


LDQ 

=XJPRETN 


o 


PO ODE 

7FFF 

X 



PATCH THE PRESET TABLE 

0 2 74 

POODF 

4400 

X 


STQ 

JPRET 



POQEO 

7FFF 

X 





0275 

POOEl 

40EE 



STO- 

SEE 

PATCH THE LO CORE INDIRECT ADDR TO 


C276 

P00E2 

0 70 0 



CPB 

0 

CLEAR PROTECT BIT ON JPRETN 


0277 

P00E3 

0C81 


LOAD7 

RAO^ 

CLOADI) 

SET FLAG IN PROTECT PROCESSOR 


0278 
0 27 9 

P00E4 

C8 00 



LDA 

FUNG 

TO LET LOADER READ AND WRITE. 

/ I 


P0QE5 

FF 7B 







02&C 

PG G E 6 

E8 00 



LDQ 

TNA 




P 0 0 E 7 

PF7B 







023 1 

P00E8 

0 4 0 c 



EIN 

0 

ENABLE INTERRUPTS 

o 

0 282 

P0GF9 

1C80 



JMP^ 

(LL) 

JUMP TO LOADER 

0 25 4 

PO OEA 

0 0 J 0 


LINK 

G 

0 



0255 

P 0 0 E R 

OA C2 



LNA 

2 

LINK ENTRIES 

o 

0 2 8 6 

PGGEC 

58CA 



RTJ^ 

CMLDAD 


■ G23? 

P U Q E D 

C8 BG 



LDA^' 

T 

CREP TABLE PATCH 


0288 

PG C E E 

09F9 



INA 

-6 



0289 

POOEF 

0111 



SAN 

LINK2 



029 0 

PGOFO 

1803 



JHP^ 

LINKl 


'sj 

0291 

PQGFl 

uAOA 


LINK2 

ENA 

10 

LINK TO PROGRAM LIBRARY 


029 2 

P0GF2 

5804 



RTJ^ 

CMLOAD 



0293 

P00F3 

QA 07 


LINKl 

ENA 

7 

PRINT UNPATCHEO EXTERNALS 

0 

0294 

POOFh 

5 8 02 



RTJ^ 

CMLOAD 


0295 

P00F5 

18F0 



JMP^ 

LINKl 



C296 P0CF6 GiiGO CHLO!\D 0 G 

O 

(■' ' i 


53^1062 

^^MS0S4. 

-^■HSOS^. 


TO USER 


JPRETN 


^^NSOS4. 
»^MS0S4 . 

^»MS0S4. 

^^MS0S4. 

^^MS0S4. 

♦^MSOS-t. 

=^^MS0S4. 

^^HS0S4. 

^^HS0S4. 

*^HS0S4. 

«-"^HS0S4. 

«^-^HS0S4. 

*^MS0S4. 


Mo6u0251 
O^MSbOO 252 
O'^^MobOO 253 
0 "fMb6uQ25 4 
M6600255 
M56 j 0 25 6 
M66jG257 
M6600258 
Mo500259 
M5bu0260 
M66j 0 2ol 

M550 0262 
M660Q263 
M660026H 
Mobu C 265 
Mbbii 0 266 
M66 00267 
Mob 0 0 266 


M660 0270 
M560 0271 
H6d0Q272 

M66G0273 

M&6Q0274 

M66G0275 
M5600276 
M5600277 
M660 0276 
MobO 0279 

M6 6 ij 0 23 0 

0^M66002bl 

0-M6600282 

0^Mo6li0 28t 
G^M56C0285 
G^Mo&00286 
0^Mo600287 
G^Mobu0286 
C ^M6600289 
O^M6bG0290 
0 ^M66uQ291 
O^MobO 0292 
Q^M66D0293 
a-M56QQ294 
D^M66Q0295 
0 ^'Hob: 0296 


O 

O 

O 

O 

O 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 29 / 

0?93 

02 99 
0 30 0 
03C1 
C30 2 

03 0 3 
0 3 u 
03 G 0 
0 3 0 6 
030 7 
0 3 0 b 
G309 

0310 

0311 
u5l2 
0 513 
031h 
0 515 
0316 
051? 

0 318 
0319 
052 0 
0321 
G322 
0323 

0 3 2 T- 

0325 

0326 
032 7 

032 8 
0329 

033 0 

035 1 
G 352 


PQ 0F7 

P00F8 

P00F9 

POOFA 

POuFG 

PGOFC 

POOFD 

PO OFE 

PGOFF 

POIOO 

PClul 

P01C2 

Pulu 3 

=>0103 

P01C5 

POlQu 

P0107 

poica 

PG109 

POlOA 

POlOB 

POIOC 

POIOO 

PQIOE 

POlOF 

Pu 110 

POlll 

P0112 

P0113 

P0114 

PullE 

P0116 

poll 7 

P0118 

PQ119 

POllA 

PDllB 

PGllC 

POllO 

POllE 

POllF 

PO 120 

P0121 


T7 


6300 
FF68 
53DF 
0 123 
0 3 0 ^ 
68 AE 
18CB 
0161 
1CF6 
G8A9 
09FE 
0 116 
0 A 06 
6800 
FF5B 
5802 
0121 
18F2 
C8 AO 
09F9 
0113 
OAOl 
689C 
18E2 
3102 
689A 
C522 
0 lOE 
68 00 
FF6E 
ClOl 
6800 
FF68 
C8G0 
FF52 
5800 
FF65 
CO B3 
580 0 
FF60 
580 0 
FF 57 
1CC3 


=>AGE 



ST A 

FJNC 


RTJ^ 

LOADS 


SAP 

■NERROR 

EREXI T 

SET 

A 


STA^ 

SAVA 


JMP'^ 

L0A36-2 

NERROR 

SO.P 

PATCH 


JHP^^ 

( CMLOAD ) 

PATCH 

LDA^ 

T 


INA 

-1 


SAN 

NOHAP 


ENA 

6 


STA 

FUND 


RTJ^ 

LOADS 


SAP 

NOHAP 


JMP"^ 

EREXIT 

NOMA^ 

LOA^^ 

T 


INA 

-6 


SAN 

NOCREP 


ENA 

1 


STA^ 

T 


JMP^ 

LIM<2 

nocrep 

LDA- 

2,1 


STA + 

SAVA 


LDA- 

(ZERO ) , I 


SAZ 

INCORE 


STA 

THREAD+5 


LDA- 

i,I 


ST A 

THREAD+2 


LDA 

FWALOD 


STA 

THREAD<-3 


LDA- 

• $B3 


STA 

THREAD+ 1 


RTJ 

DKREAO 


incore JMP^ (LINK) 
END 


DATE! 01/27/99 

STORE FUNCTION CODE 

RETURN TO LOADER 

IRRECOVERABLE E!RROR 
return TO user ylJH A SET 
TO IMOICATt. AN tRKOR 

UNPATCHED EXTERNAL REMAIN 
ONE(l) FUNCTION Rc^OUIRING 
MEMORY MAP 

YES, GIVE PRINT MEMORY MAP 
STORE FUNCTION COL 


ERROR FROM LOADER RETURN TO USER 

CURRENT FUNCTION =6 

YES»FAKE a ONE FUNCTION 
TO PATCH TO P^OG, LIBRARY 

after all crep table links 
sWe the transfer address 

LOAD IN CORE 

NO, STORE SECTOR ADDRESS FOR READ . 

STORE NUMBER OF WORDS TO 
READ IN 

STARTING ADDRESS TO READ INTO 

IF THE LOADER HAS PAGED THE 
INFORMATION IS ON THE SCRATCH UNii 


^^HSOS^.O H6600297 


READ FROM DISK TO CORE 


-MMSOS4. 
,^^MS 0 S 4 . 
=^^M-tS 0 S 4 . 
*^“f-MS0S4. 
^-•^MS 0 S 4 . 
^=-^HS 0 S 4 . 
»^MSOS 4 . 
^^MS0S4. 
-^MS0S4. 
^•■•^MSOS4. 
^^HS0S4. 
^^MSOS4. 


u ■^Mbbu 0 29 8 
0 ^M66G 0 299 
0 ^M5 60 0 30 0 
0^M6600301 
u'^M6600 30 2 
0-'^MbbDQ30 3 
u ^M660 0 304 
0^f-iob[i0305 
0 ^MboO 0 30 6 
0 ^ Mb 5 0 G 3 0 7 
G^Mo600308 
0 M&6D 0 309 


4 -%'-mSOS 4 » 

'»^^MSOS4. 

’'■•^MS0S4. 

^'■•MSOS 4 . 

^^HS 0 S 4 . 

<‘^MS 0 S 4 . 

^^MSOSh. 

^-<^-MSOS 4 . 

»^MS0S4. 

^^MSOS4. 

¥-*MS0S4. 

^^MSOS4. 

«^»MS0S4. 

^^MS0S4. 

^^MS0S4. 

^^MSOS4. 

^^HS0S4. 

^^MS0S4. 


0«M66G0310 
C^MobOOiil 
jj ¥fio6 0 0 31 2 
D^MobOO 313 
O^MobGQ 314 
0 ^Mb600315 
C^MoBOO 316 
0 ^M660 0 317 
0^^M6600 318 
O^'^MBBOu 319 
0 M5 5 0 0 32 0 
0 M560 0 321 
G ^M66D 0 322 
0 M66Q 0 32 3 

0'^M5500324 
0 M6600 325 

O^M 6600325 

0 Mo60 0 327 


L; 

O 

Cl 

c 

C) 




u 

o 


^^■<‘MS 0 S 4 . 

»^MS0S4. 


O'^MbbOO 328 
0 •^f'HbbO 0 32 9 


--«‘HSOS4.0 M55C0330 

»^MS0S4 .C-M6600 331 
M&60 0 33 2 


P3'1= 0122 ( 


290 ) 


COM = 0000 I 


0 ) 


OAT = QOGb I 


G) 


o 

o 

o 

o 

o 

o 


o 


T7 


PAGE 


8 


DATES 01/27/99 


O 


EQUIVALENCES 


o 


DLF . LINE 

NAME 

VALUE 


REFERENCED AT LINE NUMBER 

0 0 00 

I 

OOFF 

(000255) 

0123, 0124 

0 051 

ONE BIT 

0 0 2 3 

{ 0 00Q.'35) 

0 0 83 

0 052 

ZERO 

0022 

(000034) 

3120, 0321 

Q C 53 

DISP 

u G EA 

( 000234) 

0 2 63 

0 0 5 -t 

MFFFO 

0016 

(000022) 

0 079 


o 

o 

C) 

C) 


o 


T7 


PAGE 9 


DATE; 

01/27/99 


C‘ 

S Y M B 0 

L S 






: O 

n 

DEF. LINE 

nahe 

ADDRESS 

REFERENCED AT 

LINE NUMBER 


O 


0 038 

T7 

GOOD 

0 0 38 






00 62 

LOAD 

00 07 

0 0 60 





r\ 

0 C 6 6 

LOADA 

OOOB 





C. ■ 


0u90 

LOADl 

0023 

0 085 






012 5 

OK 

0048 

0114, 

fl 116 





0139 

LOADS 

0054 

3 138, 

0 140 , 

0l4l 




0151 

FUMC 

0061 

0 0 73, 

0 0 78 , 

0081, 0144, 

0149, 0279, 0297, 0309 

o 

U 

0152 

TEMPI 

0062 

0 0 74 , 

0 062, 

0148, 0228, 

0231, 0235 



0153 

TNA 

0 0 6 3 

3 0 71 , 

0142, 

0147, 0 280 




0154 

TEMP 

006 4 

0 0 72, 

01^*6, 

0217, 0230 



r'^ 

015 5 

LOADl 

0065 

3 2 58 , 

027 7 





015 6 

RL 

0066 

0 063, 

024 7, 

0264 




015 7 

LOF 

0067 

0 0 59, 

0 067, 

0257 




0 158 

ALDR 

0068 

3102, 

0107 





0160 

Lie 

0069 

0 088 , 

0127, 

0256 


0 


0 161 

LL 

006A 

0109, 

0 117, 

0126, 0282 




0162 

LSD 

O06B 

0 103 






0163 

FWALOD 

Q06C 

0 0 94, 

0 140, 

0326 




0164 

LHALOO 

0G6D 

0 095 




- Q) 

'■■J 

0165 

OREGR 

Q0 6E 

3110, 

0125 





0 16 6 

SAVPTR 

G06F 

0 0 65 , 

Q 11 8 





0168 

FNCODE 

0070 

0 0 80 






0 177 

DKREAD 

0 0 78 

0137, 

019 2, 

0330 


o 

‘■J 

0179 

LOADS 

0u7B 

0 106, 

0 12 8, 

ul3l, Ul3"t 




0 182 

THREAD 

0 0 7F 

0136, 

0188, 

0323, 0325, 

0327, 0329 



0194 

LOAD4 

0G8A 

Qu9u , 

0 150 





019 7 

LOA D4A 

0D3D 

0 2 01 , 

020 4 



’ o 

'w' . 

0 212 

NOERR 

0 0 9C 

32Q6, 

U 20 8 





0 216 

OONCCR 

Ou A1 

3214 






3217 

CRO 

U0A2 

3 212 






0 221 

NTZRO 

0 GA6 

3 219 




o 

O* 

0 225 

ARGSA V 

00 A8 

3 2 20 






0225 

T 

uOAA 

3 0 76, 

0 19 4, 

0213, 0218, 

0240, 0287, 0305, 0313, 0317 



0 226 

SAVA 

00 AB 

3210 , 

li 22 3, 

0239, 0245, 

0266, 0301, 0320 



0 227 

MOVEl 

OOAC 

0 222 




o 


0 230 

MOVE 

ooao 

3 234 






0^37 

NOCCRD 

' 0DB8 

3216 






0239 

MOCCR 

00B9 

0215 





O 

0 28-0 

TCHEOK 

008A 

0198 , 

0224 



o 

O 

0248 

ERT2 

G0C2 

0246 






0249 

IST3 

00C3 

0 2 43 





O 








, o 

o 








' o 

o 














T7 


PAGE 10 


date: 

01/ 27/99 

o 

3 25 7 

L0A06 

OOCE 

0 211, 

0241, 

0248, 0250, 

0 2 5 4, C 3 


0 266 

L0A09 

00D5 






0 268 

RET 

Q0D7 

0 2 65 




u 

0 270 

L0AD8 

0009 

om5. 

0 2 05, 

0271, 0298, 

0 310 


3 27 7 

LOAD7 

00E3 






0 28 4 

LINK 

OOEA 

0197 , 

0 2*44, 

0 331 



C 291 

LINK2 

GLFl 

0289 , 

0 318 



0 

0 293 

LINKI 

0GF3 

3 290 , 

0295 




0 296 

CMLOAD 

0QF6 

0 285 » 

0 292, 

029-,, 0304 



D 300 

EREXIT 

OOFB 

3 312 




]■' ^ • 

Cl 30 3 

NERROR 

OOFE 

0 299 





0 30 5 

PATCH 

010 0 

3 3 03 





0 313 

NOMAP 

0109 

0307, 

0311 




0319 

NOCREP 

fllOF 

3 315 





D 331 

INCORE 

0121 

3 3 22 





/ 


O 

o 

C) 

o 

o 


o 


o 


u 


o 


o 


0 


o 

o 

o 


o 

o 

o 


o 


n 

o 

o 

o 


o 


( '1 


c 


date: 01/27/99 


T7 


PAGE 11 


: X T E R 

N A L S 


DEF. LINE 

NAME 

VALUE 

0 039 

REQERR 

0 0 0 6 

C u41 

LOAOSO 

0068 

0 0 41 

JPRETl 

OOOG 

0 0 41 

JPRETN . 

OODE 

0 0 41 

JPRET 

u u t u 

0 0 42 

LOADIN 

0065 

0 G43 

UNPIO 

007A 

0 043 

SWAPCK 

0 088 

Q 0 ‘4 ^ 

JBCNFG 

OOOO 

0C^5 

JOaiNO 

0087 

0 G 4 fa 

MIBUF 

00 AD 

0 0 4 7 

COMPV4 

0G3A 

0 C 48 

LOCF 

0045 

0 0 49 

LPTRS 

0041 


RE-EREN3ED AT 

0 0 61 
G 162 
Q 272 
0 273 
0274 
0155 
3 178 
0191 
0261 
0236 
0 227 
0113 
0122 
3 119 


LINE NUMBER 


C' 





T7 


PAGE 

12 


DATE! 01/27/99 


A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 



o 

ALDR 

015 6 

ARG3AV 

0223 

CMLOAD 

0 2 96 

COMPVq. 

0047 

CRD 

0217 


FN30DE 

016 8 

FUNG 

0151 

FWALOO 

0 163 

GONCCR 

0216 

I 

iiCO 0 


JPRET 

0041 

JPRETl 

0041 

JPRET.Sl 

0 0 41 

Lie 

0163 

LINK 

0284 

o 

LDaOi 

0 09 0 

L0A03 

3 179 

LOA04 

3194 

LOAO 4 A 

0197 

LOAD5 

0139 

LoaoA 

0 066 

LOAOI 

0155 

LOADIN 

0 0 42 

■ LOAOSD 

UU4l 

LOCF 

0048 


MPPFG 

005 4 

MIBUF 

0046 

MOVE 

0 230 

MOVEl 

0227 

N ERROR 

3303 


NO'IAP 

0313 

NTZRO 

3221 

OK 

0125 

ONEBIT 

00 51 

PATCH 

0 30 5 

o o 

SAVA 

TSA 

0226 

0153 

SAVPTR 

UNPIO 

0 166 
0 043 

SWAPGK 

ZERO 

0 0 43 
0 052 

T 

0225 

T7 

3038 


o 

Q) 

o 

r'i 

o 

o 

o 

o 

o 

o 


Cj 

O 


OISP 

.0053 

DKRtAD 

0177 

ERE X IT ■ 

0'30 0 


0248 

INCORE 

0331 

IST3 

0249 

JBCNF 6 ■ 

0 04 4 

dOBiND 

0 0 4 5 

LINKl- 

0293 

LINK2 

0291 

LL 

' 0161 

LOAD 

0062 

L0AD6 

,0257 

LOAD? 

0277 

LOAOa 

'■0 270 

'L0AD9 

0 266 

LOF 

0157 

LPTR3 

0 0 49 

LSD 

^ 0 162 

LHALOO 

0164 

NOCCR 

0239 

NOCCRD 

0237 

NOCREP 

0 319 

NOERR 

0212 

DREGR 

016 5 

REDERR 

0 3 39 

RET 

0 268 

RL 

015 6 

TGHECK 

0 240 

TEMP 

0154 

TEMPI 

0152 

THREAD 

0182 


o 

o 

o 

Qi 

o 

o 

o 

o 

o 

o 

o 


/ '' 




SUNMARY-11CM&7U aOQl 
M67uu002 
M57J 0 00 3 
M b 7 J 0 0 0 


M6700GC& 

M57j 00Q8 

M67iiOOiO 
H570Quil 
M'37D OOIZ 
Md 7G0013 
M6700G14 
M6700015 
M5700016 
M670a017 
M6700018 

M670002G 

Mo700022 


M5700024 

»^HSOS 4. OM670 0026 
♦♦MSOS 4.0M&7G0027 
^^MSOS 4.0M6700028 
M67QD029 
M570OQ3G 
M6700031 
M67G 0 032 
=»‘^MSOS 4. 0M6700033 
^^MSOS 4.CM6700Q34 
^^MSOS h.0Mo7uD035 
»»MSOS 4. &M6700036 

^^MSOS 4. 0M57G0038 
^^"‘MSOS 4. OM670Q039 
M67Q0Q40 
CORE H67Q 0 041 

M6 7 j u 0 4 2 
M5700 043 

M6730044 
H570 0 045 
M670 0 046 
M673 0047 
M67Q 0048 
M6700 049 



T5 


PAGE 


2 


date: Oi/27/99 



c- 



MbZQOOSQ 
H670 0 05i 
Mb70 0 052 

o 


M67o 0 055 
M57J 0 05 A 
M6700055 
M670 0 0 5 6 

■ o 


M670 G 05 7 
M57i005S 
M570 0 059 

M6700a&l 

o 


M570G052 
M570U 0 63 

o 

’^^MSOS 

&H57000o4 


^^MSOS 

h.OM 5700965 


^HSOS 

4.0Mb7u0056 

Q 


M673 0 057 

^MSOS 

4.0M673u0o8 



M6730Q70 

■ o 

’f-MSOS 

'^5700071 
H373O072 
4. OM6700073 

»^HSOS 

4. 0Mo70 0 07 4 

o 


M570 0 07 5 

^♦MSOS 

4.0M670QQ75 


»vHS0S 

4 • 0 M67 G 0 0 7 7 


^^MSOS 

4. 0M670 0 078 

o 

^^MSOS 

4. 0M670Q079 


♦^MSGS 

M573 0 080 
4 • 0 M67 0 0 U 3 i 

o 

^♦HSOS 

4. DM670Q082 

«-^MSOS 

4. uM 67 00083 


^^iiSOS 

+ . GM67 0 0 084 


^♦HSOS 

4.0 M67 00 085 



H67J u 985 

^ o 

•^f^HSOS 

4 . 0M5700Q88 


«^^MSOS 

4. 0M570 Q089 

: O 


M6700Q90 

»^HSOS 

M&700Q91 
M67Q0Q92 
4. GM67QQ093 


M679U094 

0 


M6700095 


M670U096 

H57G0097 

M673GQ98 

■ o 


M6730099 
M67G0 lOG 

■ o 


O 


date: 01/27/99 



GIO 1 

P 0 0 4 0 

8400 

X 


ADD 

UHPIO 



P0G41 

7FFF 

X 





0102 

PD0h2 

8 400 

X 


ADO 

UNPIOF 

o 


P0043 

7FFF 

X 





010 3 

P0044 

0 40 0 



EIN 

0 


0104 

PO 045 

C 101 



SAZ 

EX5-^-l 


0105 

o DO i*6 

18F6 



JMP^ 

EX4 


u 1 C 6 

P0Q47 

OCFA 


EX5 

ENQ 

- 5 


013 7 

P0C48 

5 4 F4 



RTJ- 

($F4) 


0103 

POQug 

5202 



NUM 

$ 52 0 2 


0109 

POO 4 A 

7FFF 

X 


ADC 

JBGNCL 

‘‘w' 

DUO 

POO 4 B 

14EA 



JMP- 

(SEA) 


0111 

P004C 

0 0 00 


QSAV 

NUM 

0 


0112 

POQhD 

C1G5 


REQERR 

LDA- 

5 f I 


0113 

P0D4E 

E4Q0 

X 


LDQ 

LPTRS 

\ j 


P004F 

7FFF 

X 





0114 

PD050 

6622 



STA- 

(ZERO) , Q 


0115 

P0051 

0500 



IIN 

0 


011& 

P0032 

54BA 



RTJ- 

(SBA) 


0117 

P0053 

0 40 0 



EIN 

0 


uiia 

P 0 D 5 4 

GC 02 



ENQ 

2 


3119 

P 0 0 5 5 

C40Q 

X 


LOA 

LOG- 



P0056 

7FFF 

X 





0123 

PDQ57 

60FF 



STA- 

I 


0121 

P0058 

14FF 



JMP- 

(I) 


0122 





ENO 



UNPROTECTED I/O 

I/O COMPLETING IN FOREGROUND 


TELL JBKILL IT WAS CALLED FROM HERE 


REQUEST ERROR JP02 

LOCATION OF REQUEST PARAMtTER 

STORE ERROR ADDRESS 

RELEASE VOLATILE 

RETURN TO PROTEC 

TO SET UP ERROR 
MESSAGE 


^‘^MSOS 


M67GGlfll 
oNb7UO 102 


M6700103 
M67Q0104 
Md/OOIOE 
-^■»-MSOS ■+.OM670 0106 
Mo 7001Q7 
M57Q 0108 
M570 0 10 9 
M&70Q110 
^^MSOS 4. uMo700ill 
^^MSOS 4. 0M573D 112 
-^MSOS L.0M670U113 


^^MSOS 

^^NSOS 

^^^MSOS 

^^MSOS 

*^MSOS 

^^MSOS 


*4* OHo/OOIIh 
L. 0M3700115 
4.GMo700116 
4. uM 3700117 
0M67 j0118 
4. &M3700119 


^^MSOS 4. 0M67C0120 
^^HSOS 4.0M6700121 
H67GD122 


0059 ( 


;OM = 0000 ( 


o 



T5 


CAGE A 

DATES 01/27/99 


o 





O 

o 

EQUIVALLN 

C E S 



- o 

o 

DEF.LINE NAME 

VALUE 

RE-ERENCED AT 

LINE NUMBER 

o 


3iJU0 I 

uOFF 

(000255) 3062, CQ9i, 

0120, 0121 



0Gd5 LPMSK 

0 002 

(QO0Q02) 



o 

DG3B ZERO 

0G22 

(000034) 3114 


o 

o 





V.-- 


s^-‘ 


O ; O 

o o 

o c 


o 

o 

o 

o 

o 

Lx' 


o 

o 

o 

o 

o 

o 



15 

SYMBOLS 


D£F . LINE 

NAME 

ADDRESS 

j Q 2 4 

T5 

00 0 0 

0 026 

REQERR 

OOhD 

0 04L 

EQUAL 

uDQ c 

0 0 5 4 

EXIT 

0011 

G 0 61 

f5DX 

0017 

0 0 7 0 

EXITl 

0021 

0G72 

Exit 

G023 

0 0 81 

EXl 

002C 

0 0 8 6 

EXIT2 

0031 

0 088 

EXITS 

0032 

0 3 95 

EXIT4 

0039 

0 099 

EX4 

C03D 

010 6 

EX5 

OOA7 

Ulll 

QSA V 

u 0 4C 


PAGE 5 


DATE: 

REFEREN 

0 0 24 
0026 

GEO AT 

LINE NUMBER 

0 0 76 » 

G 08 3 


0 0 45 » 
0 0 39 

0 C 5 C 1 

0 05 2 

0 0 65 » 
0 067 
Q 0 68 

0 094 


0 0 79 » 
0 0 93 
0105 
0 104 

0 08 5 


Q 073 , 

0 0 77, 

0088 


01/27/99 



T5 


PAGE 6 

DATE: 01/27/99 

X T E R 

N A L S 




DEF.LINE 

XAME 

VALUE 

REFERENCED AT 

LINE NUMBER 

3 0 2 7 

LPTPS 

QO-tF 

3 113 


3 0 28 

LOCF 

0056 

■3 119 


0 0 29 

JBCNCL 

Q04A 

0 109 


0030 

UNPTIM 

0Q3F 

0100 


3 0 31 

INTSTK 

0018 

3 0 61 


0032 

UNPIO 

0041 

3101 


OQ 33 

'JNPIOF 

0043 

3102 


0 03 4 

C0MPV4 

OQOC 

0043, 0049 



T5 


PAGE 


7 


date: 01/27/99 


V--- A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 











C3HPV4 

EXIT3 

REQERR 

0034 
U0B8 
0 026 

EQUAL 

EXIT4 

T5 

0 O^rA 
0 095 
0 024 

EXl 

I 

T50X 

Q‘3 81 
0 0 00 
0 0 61 

EXll 

INTSTK 

UNPIO 

0 0 72 
0 u 3 1 

0 0 3 2 

£X4 

jeCNCL 

UNPIOF 

0099 
0029 
003 3 

EXE 

LOCF 

UNPTIM 

010 6 
0028 
0 03G 

EXIT 

LPMSK 

ZERO 

00 5-4 
0 0 3 5 
0 0 3 o 

EXITl 

LPTRS 

Q070 

0Q27 

EXIT2 

asAv 

0 Q 86 

0111 


°A3F 


DATE; Gi/27/99 


00 Gi 
0 D 0 2 
GO 0 3 
GOD ^ 


NAM T3 DECK-IO M68 MSOS 5.D 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


00 0 6 


T3 STATJS REQJEST PROCESSOR 


GG09 

0 0 11 
0 012 

0013 

0014 

0015 

0016 
0C17 
0018 
0019 
0 0 20 
G J.21 
G022 
0023 
0 0 2 4 
0025 
00 26 
002 /' 
03 28 
0D29 
0C3Q 
0G31 
lu32 

0 0 3 4 


* THIS IS THE STATJS REQUEST PROCESSOR 

^ IT GIVES THE REQUESTER IN THE A, Q, AND I REGISTERS, 

^ IN-ORMATION ABOUT AN I/O DEVICE. 

^ THE FIVE INPjr PARAMETERS ARE 
L LOGICAL UNIT 

A RELATIVE/ INDIRECT INDICATOR 

T THIS PARAMETER IS ALWAYS ZERO 

X INDIRECT/RELATIVE INDICATOR. 

0 PART 0 / PART 1 REQUEST TYPE INDICATOR 

UPON ENTRANCE, EIGHT VOLATILE STORAGE LOCATIONS 
HAVE BEEN SAVEO. THE EIGHT LOCATIONS ARE AS 
FOLLOWS 

^ 0 - S VALUE AND Q REGISTER UPON RETURN 

- 1 - PHYSTB TABLE LOCATION AND A REGISTER UPON 

^ RETURN 

^ 2 - TEMPORARY STORAGE AND I REGISTER UPON RETURN 

^ 3 - RETURN LOCATION 

- 4 - LOG. OF REQUEST PARAMETER LIST - PHYSTB 

^ 5 - LOG. OF REQUEST PARAMETER LIST 

^ 6 - EQUIPMENT TYPE AND STATUS 

^ 7 - LOGICAL UNIT NO. 

^ 8 - INDIRECT INDICATOR 

^ if. 3f. If. ^ if. ^ if. if. if. ^ if. ::f. 3/. i;. jf. if. 



0 0 3 6 


ENT 

T3 

C'* 

00 38 


EXT 

LOGIA 


0 0 3 9 


EXT» 

REQERR 


0040 


EXT 

JBCNFG 

o 

0 0 42 

00 03 

EQU 

RL(3 ) 


OQ 43 

0 0 B9 

EQU 

REQXT ( $B9) 


0344 

GO 23 

EQU 

ONEBIT($23) 


0 0 4 5 

0 0 22 

EQU 

ZERO ($22) 

•w' 

0 3 4 6 

0 0 02 

EQU 

LPMSK (2 ) 


0045 PDGOw C1Q8 T3 
0349 POOOl 0133 
u3 5C PC 00 2 Cl 03 


LOA- 8,1 
SAM STAT---1 
LDA- 3,1 


CHECK FOR INDIRECT 
SKIP IF INDIRECT 
REQUEST 


SUMMARY-llOMSSaOuOl 
M68QG3G2 
Mo8j0a03 
M68Q 0 004 


H680Q00& 


M680 0 009 

MoSuOOll 
M6800012 
M68C0013 
ModO 0 014 
M5830015 
M68G 0016 
M6800017 
M68Q 0018 
M5B30019 
M68DCQ20 
M680Q02i 
M68GG 022 
M68 j 0 023 
M692 0 024 
M68Q0Q25 
H680 0 025 
M58'jao2r 
M680 0 028 
M68a0029 
M6800030 
M&8CG031 
’‘^MSOS 4. 0M680 Q032 

M5800a34 


Mo800 036 

’‘^MSOS 4,1»^M680G 058 
M68000S9 
M58Q0 040 

M6630042 
M58G0043 
M6800 044 
M583 0 045 
M630Q046 


-^^MSOS 4.uMo8Q0 0‘t8 
*^MSOS 4.GMo8GGQ49 
M680 O 050 


o 

'V,.- 

C) 

o 

o 

o 

o 

4.-' 

o 

o 

o 

o 

o 

o 

o 


T3 



GC51 

Pu i30 3 

0 9 03 



INA 


CG52 

P0 004 

5103 



STA- 

\ 

0 053 

P 0 0 0 5 

El 05 


STAT 

LOQ- 

r t 

Q 0 5 

P00u5 

C622 



LDA- 


CO 5 5 

Pfl 00 7 

uFCl 



ALS 


0 0 5 6 

POOOH 

0124 



SAP 


0 0 5 7 

P0u09 

G201 



LDA- 


0 0 58 

P 0 a G A 

A02D 



AND- 


00 59 

POOOB 

0 101 



3 A Z 


0 0 6 0 

POOGC 

1817 



JMP^^ 


Q j61 

POQOD 

C201 


STATI 

LDA- 


0 0 62 

P 0 0 0 E 

AQ OE 



AND- 


0 0 53 

FCOOF 

0 8 42 



CLR 


0 0 6 4 

POOlO 

u F E6 



LLS 


0 0 6 5 

POOll 

QF46 



A RS 


00 66 

PCG12 

lAOl 



JMP'^ 


0 G 5 7 

P 0 0 1 3 

1809 


LUT B 

J !T P '4 


0 0 6 3 

P00l4 

1802 



JMPE 


0 0 6 9 

P 0 0 1 5 

1804 



J M P 


0 0 7 G 

PQ016 

El 05 


LUAl 

LDQ- 


0 0 7 1 

PG017 

0832 



A A G 


00 72 

P0018 

1803 



JMP^ 


00 7 3 

PQ019 

AO OC 


LUA2 

AND- 

•w' 

0 0 7-^ 

POOIA 

0822 



TRA 


Ou 7 5 

P0ui(3 

C622 


LUIA 

LDA- 


0 G 7 6 

POO 1C 

AO 11 


LUAO 

ANO- 


0 J77 

POOID 

610 7 


STATE 

STA- 

1 

-.-F 

0078 

POOIE 

0104 



S AZ 


00 79 

POQIF 

0133 



SAM 


00 3 u 

P0020 

GC16 



LDA- 


0 0 3 1 

PC021 

9107 



S U 


0 0 3 2 

P0022 

0122 



SAP 


0u3 3 

P 0 0 2 3 

18G0 

X 

ERR 

JMP 



P002 4 

7FFF 

X 



o. 

00 85 

P0025 

E107 


STAT5 

LDQ- 


0 0 3 6 

P0D2G 

EEIO 



LOO* 


0GB /’ 

PC027 

C206 



LDA- 


0 0 8 6 

PuQ28 

610 4 



STA- 


0 3 8 9 

PQQ29 

C2 0B 



LDA- 


0G9Q 

PO 02A 

09FE 



INA 


009 1 

dQOZB 

6102 



STA- 


0 J 92 

Pu 02C 

C2 C8 



LDA- 

'w' 

03 93 

P0020 

6522 



ST A- 


03 9 i^ 

P0 02E 

G2 OC 



LDA- 


0 0 9 5 

P002F 

6101 



STA- 


0 0 9 6 

POO 30 

C400 

X 


LOA 

U 


pao3i 

7FFF 

X 




0 0 97 

PC 032 

0102 



3 AZ 


00 9 8 

P0033 

CGEA 



LDA- 

,-—N 

0 3 99 

PO 0 5 t 

6103 



STA- 

o 

0100 

P0 0 35 

1489 


STAT17 

JMP- 


PAGE 


3 

3.1 

5 . 1 

(ZERO) ,Q 
1 

STATi 

1,0 

ON£8IT+iO 

STATI 

ERR 

1,Q 

LF^i3K + 12 

a 

6 

6 

LUT8,Q 

LUAO 

LUAl 

LUA2 

5,1 

Q 

LUIA 

LPH5K+10 

Q. 

(ZERO ) , Q 
LP'13K + 1 5 

7.1 

ERR-^-i 

ERR-^-1 

(LOG!) 

7,1 

3TAT5-^-l 

reoerr 


7.1 

(LOGl) ,Q 

6,0 

4.1 

11, Q 

-1 

2.1 
8,Q 

(B22 ) , I 
12, Q 
1,1 

JBCNFG 

STATI 7 
SEA 
v3 I 

' (REQXT) 


date: ai/27/99 


INCREASE return BY ^ 

LOC. OF REQUEST 
IS D BIT SET 

NO, PROCESS ALL CASES 

YES, DO NOT ALLOW RELATIVE INDICATOR 

FOR LU TO BE SET ( A = 1) 

NOT SET OK 
SET OUTPUT JP02 

CHECK SETTING OF A PARAMETER BY 

PUTTING A PARAMETER IN Q 

AND LU PARAMETER IN A 

PROCESS ACCORDING TO CONTENTS OF Q 

LU IS ACTUAL LU NUMBER 

LU IS SIGNED INCREMENT TO LU NUMBER 

LU IS INDIRECT THRU 0 - $3FF 

GET PARAMETER LIST ADDRESS 

ADD SIGNED INCREMENT TO GET LU ADDRtSS 

MASK FOR ONLY $3FF BITS 

PICK UP ACTUAL LU NUMBER FROM CORE 
REMOVE POSSIBLE BIT 15 

CHECKING FOR L.U. NOa ERROR 


ERROR MESSAGE J02 


L.U. NO 

PHYSTB LOG. OF REQUEST 
PARAMETER LIST 

INTO 

VOLATILE - I REGISTER 
SET WORD 8 OF PHYSTB IN 
VOLATILE - Q REGISTER 


VOLATILE - A REGISTER 


M68j0051 
M6800052 
M6830053 
M6 80 u Q 5 4 
M680 0 05 5 
M680Q056 
M6800057 
Mo80QQ58 
M68 uG 059 
M639 0 0 60 
M680 0 061 
H53JuG&2 
Md8Q00d 5 
M68Q 0 054 
M680 0 Ob 5 
M68Q G 066 
M 6 8 0 0 0 6 7 
M68G 0 068 
Mb83G069 
M680Gu70 
M6800071 
M68Q0072 
M63G 0 073 
M&800 074 
H6800075 
M6800076 
H680 0 077 
M 680007 8 
M68a0079 
H6800Q8Q 
M68Q 0 081 
H6830G82 
M680 0 083 


M58 J 0 085 
M68G 0 086 
M680 0087 
M6800088 
MoSOOOSg 
H6800 090 
M5600091 
M68j0092 
M6800 093 
H580 0 09h 
M 66 j 0 095 
M680Q096 

M&800 097 
M66j 0 098 
M6800099 
M68aDlG0 


O 

o 

C-' 

o 

o 

o 

c 


o 


o 


o 

o 

o 

o 

o 

o 

o 

n 


T3 


PAGE 


3 


DATES 01/27/99 


0132 Pi3 036 7FFF X LOG! ADC LOGIA 
01C3 end 

PGH= 0057 ( 55) COM = 0000 ( 0 ) DAT = 0000 { 


M680 010 2 
M 08 QOIO 3 


T3 


PAGE 


date: Ql/27/99 


4 




C) 


o 

E U 1 \l 

A L E N 

C E S 




o 

DEF . LINE 

name 

VALUE 


REFERENCED AT 

LINE NUMBER 


0 u G 0 

I 

OCFF 

(000253) 




0 042 

RL 

DUG 3 

(000003) 




0 0 43 

REQXT 

0089 

{ 000185) 

0 IGQ 



0 0^^ 

ONEEIT 

0023 

(0C0G35) 

0 0 58 



3 0 w5 

ZERO 

Qu22 

(000034) 

0054, 0075 



0 0 M- 6 

LPMSK 

0 0 0 2 

(003002) 

0062, 0073, 

0 076 




o 


o 


I I 


o 

o 



o 


o 


o 


o 


o 

o 



T3 


3AGE 5 


DATEJ 01/27/99 

r H BO 

L S 





DEF. LINE 

NAME 

AUORESS 

REFERENCED AT 

LINE 

NUMBER 

0 0 36 

T3 

00 0 c 

0 0 36 



0 0 53 

STA T 

00 0 5 

0 0 49 



0 361 

3TAT1 

GOOD 

3G55» 0059 



0 0 6 7 

LUTB 

0013 

0 0 66 



u 0 7 u 

LUAl 

GQ16 

0 0 68 



G G 7 3 

LUA? 

0019 

0 0 69 



0 G 7 ? 

LUl A 

OQIB 

0 0 72 



OC 7 6 

LU AU 

OOlC 

0 067 



OG 77 

3TAT4 

OOlO 




G 0 8 3 

ERR 

0023 

0060, 0078, 

0 079 


0 0 8 6 

STATE 

002 5 

j 0 82 



U iOG 

STAT17 

0 03 5 

0 0 97 



G 102 

LOGl 

0 03 6 

0080, 0086 




T3 


PftGE 


6 


DATE; 01/27/99 



o 

E X T E R 

N A L S 


o 

DEE. LINE 

NAME 

VALUE 


0 0 38 

LOGIA 

0 0 3 6 


u >} 3 9 

REQERR 

00 2 4 

o 

0 0 90 

JBCNFG 

0 0 31 

o 





RcFERENCED at line number 

0 102 
0 0 83 
0 0 96 


O 


O 

o 

o 

o 

o 

o 

o 

C) 

o 
{ \ 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


=aGE 7 DATEJ Cl/27/99 


A L 

P H A 

F5 E T I C A L 

S 0 T 

0 F 

S Y M S 

0 L S 

^ ^ 










E99 
LJA2 
ST AT4 

0 033 
0 073 
u07 7 

I 0 00 0 
LUTB 0067 
STATS 0085 

JBGNFG 

ONEBIT 

T3 

00 40 
0 0 44 
0 0 36 

LOGl 

REQERR 

ZERO 

iL iLiZ 
00 39 
0 0 43 

LOGIA 

REQXT 

0038 

0043 

LPMSK 

RL 

0 0 ^*-6 
0 042 

LUIA 

STAT 

00 75 
0 0 5 3 

LUAO 

STATi 

0 075 
0 061 

LUAl 

STAT17 

0070 

CiOO 


V..-' 


JOB PRO 


PAGE 


DATEJ Ci/27/99 


u 

O 

O 

o 

o 

o 

o 

o 


u 

o 

o 

o 

o 


0 0 0 1 


0 J 0 2 


Gj 0 3 

V- 

CDO 



0 C 0 b 
C : D 3 
GjID 


00 1 ? 
0013 
0 Q 1 
0015 

0017 
00 1a 
0019 
00 20 
0 3 21 
0022 
0 0 23 
0 3 ?- 
00 2 5 
0 0 2 6 
00 2 7 
00 28 
00 29 
0 0 3 0 
00 3 1 
0 0 32 
0 033 
003 4 
0 0 3 5 
0 0 3 6 
03 3 7 
0 C 3 8 

00 39 
00 4 0 
00 41 

0 j 43 
0 0 4 4 


0340 
0 3 4 7 
0043 
Q j 49 


NAM J03PR0 DECK-ID Ho9 MSOS 5,0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION* LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1975^ 

^ JOB PROCESSOR SECONDARY CONTROL MODULE 


P(j l) li 0 
POGGl 
P 0 OC 2 
P0 0G3 
POuO-^ 


00 OA 
00 11 
0 012 

CO 02 
00 D9 

0 0 EA 
0 022 


C8FE 
6C 4D 
48 IF 
D 8 iJ 0 

0 0 AB 


ENT 

ENT 

ENT 

ENT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT"- 

EXT 

EQU 

EQU 


JO 8 TWO NUM 
STA^ 

JPl 


J33TW0 

RF3 

J03T 

RI 


ERROR RETURN FROM DUMMY 1,2,3 


TRNVEC 
JBPROE 
MIBJF 
JPSWT 
JBGNFG 
RECOV 
ERRMSG 
FILE2 
NSTACK 
TRANV 
lUP 
Hie 
FI.E3 
JOBIND 
INPTV4 
LOGiA 
BATCLU 

VINPV4 

ONE, TWO, THREE 
JBCFGZ 
HFF ( J A ) 

H7FFF (Sll) ,HFFFF($12) 


ABS. ADDRESS OF TRANTA BUFFER IN 
ENTRY POINT TO JOBENT (TRVFC) 
ADOR. OF JOBENT MIBUF (TRVEC) 
SWITCH IN TRVEC SET BY JOBENT 
JOB CANCEL FLAG 


(TRVEC) 


EXT BATLST 
EQU LPH3K(2I 
EQU REQXT{$B9) 

EQU OISPCSEA) 
EQU ZER0($22) 


$C8FE 
(~ 2 ) 
STQ-^f- SAVQ2 
STA TRAMTA 


ENTRY POINT 
SAVE Q REG, 


SUMMARY— 

M5930Q02 
M 6900403 
Md9Ju004 


Mo9Q0Q06 
^^MSOS 4.UH59Q00G8 
H590 0010 


M693 a 01 2 
H6900Q13 
^-^MSOS 4.1*^^M590 00l4 
M593Q015 

JOBENT Mo9G0017 

M6900Q16 
Mo9.a0i9 
M&900U20 
H 6 9 C u Q 2 1 
M690G022 
M39G0023 
M690G024 
M69Q0Q25 
M69D0025 
Mb9D0027 
M89D0028 
MS93 0 029 
^^MSOS H. GM69u 0030 
^^MSOS 4.GH69U0J31 
'^^HSOS 4.0M690 0032 

M6900 033 
M690 0034 
M69Q0035 
M 5900036 
H690 0037 

1 32-'^518 4»*-^’^'S^^*«' 

M590G038 

M69D0Q40 
’^^MSOS 4.QM59Gu041 


Mo900 0<43 
Mo9G0044 
MS 9 } 0 0 4 5 
^^MSOS ^.0M69000^6 


G 

O 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 


( ) 


f ■; 


u 


(J 


n 


O 


o 


c j 




O 




o 

o 


o 

C) 


J0BPR3 


°AGE 


date: oi/27/gg 


0 0 5 0 

PC 3 0 5 

8000 



ADD 


P 0 0 0 6 

GOAF 




Gu5 1 

P0u07 

o40 0 

X 


STA 


PO0C8 

7FFF 

X 



0 0 5 2 






0053 

P0009 

0A07 



ENA 

0 0 5 4 

POOOA 

8400 

X 


ADO 


Pu GO B 

7FFF 

X 



0 0 5 5 

PGuuC 

6QFF 



STA- 

0G56 

POOuD 

0CF9 



ENQ 

00 5 7 

P 0 0 0 E 

C4FF 


LOOP 

LDA- 

00 58 

POOoF 

6AG0 



STA 


POOlu 

0 0 AC 




0 0 5 9 

POOH 

DOFF 



RAO- 

0 0 6 L 

P0012 

GDOl 



INQ 

00 5 1 

P0U13 

0 141 



SQZ 

0 0 5 2 

P0014 

18F9 



JMP«- 

00 63 

P0015 

E80C 


0UT2 

LDQ^ 

0 0 5 4 

P 0 0 i 6 

017B 



SQM 

0 0 5 3 

POO 17 

C400 

X 


LDA 


POQia 

7FFF 

X 



00 56 


0018 

p 


EQU 

0057 

PQ019 

0115 



SAN 

03 5 8 

POOIA 

0 80 4 


OUT2!\ 

SET 

0 0 5 9 






0 3 7 0 

PGOin 

6CFC 



STA» 

00 7 1 

POOiC 

EA GO 


0UT3 

LDQ 


POOID 

0 092 




00 72 

P 00 l£ 

lAEl 



JMP> 

0073 




4 


00 7 4 

Pfl OIF 

0 12C 


0UT3A 

SAP 

00 75 

PCQ2U 

18FB 



JMP4 

0 3 7 6 

PuLi21 

0 0 0 0 


SAVQ2 

NUM 

00 7 7 

P0022 

E4 00 

X 

JB 

LOQ 


PGG23 

7FFF 

X 



0 0 7 8 






00 7 9 






00 9 0 






0j51 




if. 


0 0 82 




if 


00 8 3 

P0024 

'.‘8 G 0 



3TQ 


P0025 

0 0 8C 




00 9 4 

P (j 0 2 b 

0168 



SQP 

00 8 5 

P0 027 

0 8 44 



CL R 

00 8 6 

P0028 

6C00 



STA 


PC 02 9 

00 A3 




0 3 9 7 

P0 02A 

180 0 



JMP 


P002B 

C 0 AC 




00 8 3 

P002C 

0 3 22 


JBP 

TRA 

0 0 9 9 




if 


00 90 






00 91 

PDG2D 

08 04 



SET 

0092 

P 0 0 2£ 

6CE9 



STA» 


=XTRANTA- 

TRANV 


7 

TRNVEC 


JOBTWO 

ADD. OF JOBPRO TRANTA TABLE STORED 
IN TRVEC. 


^''^MSOS g.uM5gQQ0L7 


I 

-6 

(I) 

TRANTA4-13. 


a 


I 

1 

OUT2 

LOOP 

SAi/02 

JOBINO 


JOBI ( 1) 

0UT3A 

A 


(JOBI ) 
TRANTA, Q 


JOBTWO, Q 


J8P 

OUT3 

0 

JPSWT 


INPBUF 

JBPRO-^' 


A 

( HI B1 ) 


-1 


J03P 

Q 


A 

(JOBI) 


Md9j u (J4 8 


•^^MSOS H. 


Mb90 0 049 
M59G 0050 
OMSgOOuBi 


' ^•^MSOS 

HOVE CONTENTS OF DPI, RI, AND LOAOEP^^HSOS 4. 
AND ERROR NUMBER, STACK AODR. JOB FLA=^^HSOS 4. 


M690 0052 
0Mb9pu053 
G Mb9 0 U G 5 4 
GM69Q 0055 


^^MSOS 


SKIP IF Q IS SET NEC. 


^^HSOS 4 


M690 0 056 
QMo900057 
Hb90 0 058 
[•1590 0 0 59 
Md 9QQ060 
M5900u61 
GMq9G0052 


EITHER INITIAL CALL OR BACK FROM 
LIBEDT OR RECOVERY 


^^MSOS 4. 
^^HSOS 4. 
^^HSOS 4, 
’^^MSOS 4. 
^^MSOS 4. 
^-H-ISOS 4, 


QH6900063 
UM&9u0Q54 
0M590 0 055 
GHo9G 0 05 d 
uHo90G0o?' 
UM69GG068 


JUMP THROUGH THE ADDRESS IN THE TRANTA 
TABLE TO THE PROPER ROUTINE. 

--MSOS 4. 

^*MSOS 4. 


JPSWT IS SET NEG. AFTER RETURN FROM 


M69B 0 069 
Mo90007G 
DH 5900071 
0H6900072 
N690G073 

Mo 90 0 07 4 


LIBEDT AND RECOVERY. JOBENT STORES THE 
MIINP BUFFER ADDRESS IN HERE. IF A NEW 
J P STMT. IS READ IN 8Y JOBPRO, THE ADDRESS 
OF MIBUF IN JJBENT IS STORED IN INPBUF 
AT TAG RD3. 

STORE MIINP BUFFER AODR IN TRANTA TA^^MSOS 4. 


M59Q0075 
M59G 0 076 
Mo90 0 Q77 
Mo930078 
M6900079 
0M690 0080 


CLEAR MIS SWITCH ^^MSOS 

TYPE ' J' AND INPUT CONTROL STATEMENT 


Mo9u 0 0 81 
M69G0082 
GM590 0 083 


M6900 084 


T7 OR UPLOAD TERMINATED ON A CONTROL’^^MSOS 
STATEMENT. JOBINO IS BUFFER ADDRESS ^^MSOS 
OF CONTROL STATEMENT. *^MSOS 

^^MSOS 


0M5900085 
UM693 0086 
QM69G0087 
0M6900 088 

RESET FOR NORMAL CONTROL CARD PROC. »^M50S 4.0H59G0089 


4 I 
4. 

4 » 

4 < 


o 

o 

o 

o 


( \ I 


I ; 


C j 


o 


o 

o 

o 

o 

o 

o 


o 


JOBPRO 


DATE.* 01/27/99 


PAGE 3 


0 0 9 3 

P002F 

P0030 

1800 

0132 

JBPRD 

JMP 

SSI 

00 9 5 

P0G31 

432C 

JPTA3 

ALF 

i» K, 

0 3 9 o 

PD032 

42FF 


NUM 

S42FF 

Oj 97 

POO 33 

55FF 


NUM 

$5 5 F F 

0-98 

P00 3r 

56FF 


NUM 

$5bFF 

OG 99 

POO 35 

5AFF 


NUM 

i5AFF 

G 1 0 0 

P003& 

5352 


ALF 

1 , SR 

0101 

Pi3 037 

FFFF 


NUM 

SFFFF 

013 2 

P0038 

4 5 4F 


ALF 

1,E0 

0103 

P0u39 

562C 


ALF 

1 » V, 

01 J 4 

PG03A 

43 53 


ALF 

1,CS 

010 5 

PG03B 

41-4 


ALF 

1, AD 

013 6 

P0C3C 

4253 


ALF 

1 ,B5 

010 7 

P0030 

522C 


ALF 

1 » R» 

0108 

P003E 

4A4F 


ALF 

1 ,JO 

0109 

P003F 

4 3 54 


ALF 

1 ,CT 

0 1 1 G 

P 0 0 4 0 

50 41 


ALF 

1 ,PA 

0111 

P0Q41 

554E 


ALF 

1 , JN 

0112 

P0D42 

4649 


ALF 

1 »FI 

0113 

P0043 

50 55 


ALF 

1 ,=’U 

uILh 

PO 0 4 4 

4D4F 


ALF 

1,M0 

0115 

P0045 

52 45 


ALF 

1,RE 

0116 

POO 46 

4 4 45 


ALF 

1,DE 

0117 

POOH 7 

434C 


ALF 

1,CL 

0118 

P0048 

4F50 


ALF 

1,DP 

0119 

P0Q49 

31FF 


NUM 

S31FF 

012 0 

P0 0 4A 

32FF 


NUM 

S32FF 

0121 

PGOwO 

33FF 


NUM 

$33FF 

0122 

PO G4C 

0 0 00 

JPTABL 

BSS 

JPTABL ( 0) 

0123 

P004C 

0 0 00 

SAV G 

NUM 

$00 0 0 

012 - 

PO U4D 

0 0 0 0 

TEMP 

NUM 

0 

012 5 

POO o-E 

7FFF X 

F2 

ADC 

FILF2 

012 r 

PGO 4 F 

E522 

JOBP4 

LDQ- 

($22) , I 

ul 2 8 

POOS 0 

ClQl 


LDA- 

1, 1 

ol29 

P0Q51 

QFE 8 


LLS 

8 

C13u 

P0052 

48FA 


STQ- 

TEMP 

ul3l 

P0053 

AO OA 


AND- 

SA 

0132 

P00 54 

09 D5 


INA 

-$2A 

013 3 

P0055 

0101 


SAZ 

1 

013 4 

POGo-B 

18 49 


JMP^ 

J03T 

0 1 3 O' 

PQ0 57 

C 8 04 


LDA''‘ 

TRANTA+12 

013d 

P0058 

OllE 


SAN 

JOLK 

0137 

P0 0 59 

G3DB 


LD A- 

JPT A8+4 

G138 

POflSA 

B3 F2 


EOR'f 

TEMP 

0139 

PO u5B 

0107 


SAZ 

JOLKAl 

0140 

P 0 0 5C 

0810 


FOR4 

HEXOF 

Ql4l 

PO 050 

0 105 


SAZ 

JOLKAl 

0 i-,2 

P0Q5E 

C 8 DF 

JCHK 

LOA» 

JPTAB+13 

0 1 4 3 

P0Q5F 

88 ED 


EOR4 

TEMP 

014- 

P0060 

OlOD 


SAZ 

JOLKA 


statement already input, move to sm bue 


M6900090 


K JP REO. NO. 0 
B JP REQ. NO • i 
U JP REQ. NO. 2 
V JP REQ. NO. 3 
Z JP REQ. NO. 4 
SR JP, REQ. NO . 6 
^ JP REQ. NO. 6 
EO JP REQ. NO. 7 
V, JP REQ. NO. 8 
CS JP REQ. NO. 9 


AO 

JP 

REQ. 

NO. 

A 

BS 

JP 

REQ. 

NO. 

8 

R, 

JP 

REQ. 

NO. 

C 

JO 

JP 

REQ. 

NO. 

D 

GT 

JP 

REQ. 

NO. 

E 

PA 

JP 

REQ. 

NO. 

F 

UN 

JP 

REQ. 

NO. 

10 

FI 

JP 

REQ. 

NO. 

11 

PU 

JP 

REQ. 

NO. 

12 

MO 

JP 

REQ. 

NO. 

13 

RE 

JP 

REQ. 

NO. 

14 

OF 

JP 

REQ. 

NO. 

15 

CL 

JP 

REQ. 

NO. 

16 

OP 

JP 

REQ. 

NO. 

17 

1 

JP 

R EQ » 

NO. 

18 

2 

JP 

REQ. 

NO. 

19 

7 

4/ 

JP 

REQ. 

NO. 

lA 


“-■«‘MS0S 

^^msos 


^^MSOS 


H69GU092 
Mo9G0093 
M690 0 Q9A 
M690 Q u95 
M690Q096 
Md9Q 0 097 
H6900098 
‘r. 0HB90QQ99 
M690 O1QO 
-r. 0M59C 0101 
Mo9 j 0 10 2 
Mb9Q0103 
M690Q104 
M690C105 
Md9D0106 
M59Q0107 
Hd900108 
M6900109 
H59 j 0 11 Q 
Mb900iil 
M5900112 
M590G 113 
M590C llL 
M69j0115 
M59GQ11 6 
H690G11? 
M59jQ118 
Mo900119 
.M690Q120 
■*. uM69l) 0121 
-f. 0H&90 0122 


GET FIRST TWO WORDS. 


SAVE SECOND AND THIRD CHAR. 
CHECK FOR ASTERICK 


IS A JOB IN PROGRESS 
YES 

LET AN THRU 


^^^MSOS 

^^MSOS 

^^MSOS 

^^MSOS 


TEST FOR BLANK 

NO-3UT MAY BE A JOB CARO 

* ^M SOS 

LET JCRDV4 DO THE REST OF THE CHECK ^^‘MSOS 


M5900124 
M6900125 
M690Q126 
M6900127 
MS900128 
H6900129 
M690ul3G 
M5900131 
4. 0M6900132 
QM5900133 
4. OM6900134 
4. DM59G0135 
M5900136 
M&900137 
M690ai38 
H69J0139 
OM690014G 
4. OH690 0 141 


JOBPRO 


PAGE 


date: Ci/27/99 







01 A'3 

FOOol 

C8D7 


LDA^‘ 

JPTAB^-3 

V, ALLOWED TO START INPUT 
FROM OTHER THAN STANDARD 


0 1 -> b 

P0062 

Bfi FA 


EOR4 

TEMP 

o 

j 1^7 

P u 0 6 3 

CiuA 

JOLKAl 

SAZ 

JOLKA 


01^8 

P0 0 6-* 

C 0 u 0 


LDA 

=NE3135 




P0flo5 

3135 






0149 

P0066 

183B 


JMP- 

J03T1 

ABORT THE JOB 


0 1 5 Q 

PQu67 

C8Q6 

JOLK 

LOA^- 

TTYEOF 

- EOF FOR TTY 


0151 

PO 0 68 

0 8 74 


EAU 

A 



0152 

P 0 u 6 9 

0114 


SAN 

JOLKA 



0153 

OQG6A 

1800 


JMP 

TERMA 

terminate job 

C 


PO 06B 

0182 





015 4 

P006C 

0 QDF 

HEXDF 

NUH 

'BOF 



015 5 

P0 06O 

47FF 

TTYEDF 

NUM 

$47FF 



015 6 

PO Q6E 

OC lA 

JOLKA 

ENQ 

JPTABL- JPTAB 

-1 SEARCH THE TABLE 

o. 

0 1 p 7 

P006F 

CACl 

RETRY 

LOA^ 

JPTA B,Q 

CHECK FOR REQUEST WORD. 

0158 

P0070 

B8DC 


EOR^ 

TEMP 



0159 

P0 071 

0105 


SAZ 

J03P6--^-l 



DISC 

P00 72 

B8F9 


EOR^ 

HEXOF 



0161 

PO 073 

01G3 


SAZ 

J0BP6-^-l 



0162 

P007-* 

ODFE 


INQ 

-1 



0163 

PG 075 

0 171 


SQM 

1 

LOOP AROUND FOR NEXT STATEMENT 


016^ 

POO 76 

18F8 


JMP^- 

RETRY 

o 

016- 

POO 77 

4842 

JOBP6 

STQ^ 

QREG 

REQUEST NUMBER 

0166 

P0078 

58C0 


RTJ 

JBKMIB 

CHECK FOR JOB CANCEL 



PO 079 

0 0 DE 






Q 1 S 7 

P0Q7A 

582A 


RTJ“- 

MVTBL 

MOVE TRANTA TABLE TO JOBENT 


0168 

P007B 

E83E 


LOQ* 

QREG 



016 9 

P007C 

QAGO 


ENA 

0 



0170 

P0 0 7D 

017E 


SQM 

IDXT8L 

JPLOAD CONTROL STATEMENT 


017 1 

PO 07E 

0151 


SQN 

1 



017 2 

P0Q7F 

1813 


JMP^ 

I0XTBLF6 

K 


Q173 

PG08U 

QDF7 


INQ 

-8 



017'* 

P0 081 

C 161 


SQP 

1 



017 5 

P008 2 

01 7B 


SQM 

IOXTBL+2 

^,d,SR,U, V,Z,EOF 


017 6 

PQ 083 

QOFB 


INQ 

-4 



0177 

P0u8*^ 

0161 


SQP 

1 



0178 

P 0 0 8 5 

01 7C 


SQM 

IDXTBL+6 

C S Y , V , A DR , A DF , B SR , B S F 


0179 

P0 0 86 

0 1 4A 


SQZ 

I0XT8L^-5 

P 


018 0 

PG087 

QDFB 


INQ 

-4 


w’ 

0181 

P0088 

0177 


SQM 

IDXTBL+4 

JOB,CTO,PAUS 


018 2 

PO D89 

0 0F7 


INQ 

-8 



0133 

PQ Q8A 

0174 


SQM 

lOXTBLl- 3 

REWIND, FILES 

O 

0134 

POO 8B 

1833 


JMP4 

J03P9 

1,2,3 

018 5 

PCQ8C 

09F7 

lOXTBL 

INA 

-8 

JPLOAD 


0186 

P0 08D 

0901 


INA 

1 

AFILV4 


ul3P 

PO G8E 

0902 


INA 

2 

JPSTV4 


018 8 

PQ 08F 

0 90 1 


INA 

1 

JPFLV4 


0139 

P0090 

G902 


INA 

2 

JCR084 


0 1 9 u 

P 0 u 9 1 

0 9 01 


INA 

1 

RESTOR 


0191 

PO 092 

0 903 


INA 

3 

JPCHGE 

{'^'] 

G192 
u i 9 3 

P0 093 

QCOQ 

J3PEX 

ENQ 

G 



P0094 

6 8 06 


STA^ 

INDEX 



0194 

P 0 0 9 5 

C400 X 


LDA 

J8PR0E 



Pu096 7FFF X 


O 



^^MSOS 

GM5900142 


^^HSOS 

4 • 0M69 u 0 i‘+3 



M690 0144 

O 

^^MSOS 

4. 0M6900145 

'^^MSOS 

^^^MSOS 

’f^MSOS 

’f^MSOS 

4. 0M69D0146 
4» GM690D147 
4. 0M69G 0148 
•*. QMd9QQ149 

O 

^^MSGS 

4. OM6900 150 



H69C0151 

o 

^^MSOS 

-.0H6900152 


^^HSOS 

4. OM6gOG153 



M6900154 

M690G155 

M59Q0156 

M5930157 

M590G158 

c 

r~) 


M6900159 

M690015G 

M6900161 


^^'•HSOS 

4. 0M6900162 

■ 

^-MSOS 

4. 0M6900163 


^^'MSOS 

4. OM6900164 


’f^MSOS 

4. OMegOGloS 


»^HSOS 

4. 0M69Q0166 

\ } 

»^MSOS 

4. 0M590G167 


-»MSOS 

4.OM6900168 


■^^MSOS 

4, 0M6900169 

' O 


M690017D 

^^MSOS 

4. OM690 0171 


^^MSOS 

4,0M59GD172 



M69Q0173 

Q 

^^MSOS 

*r. OM69Q0174 


Mo93 017 5 


^♦MSOS 

4.0Mo900176 


»^MSOS 

4. QMS 90 0177 


^^MSOS 

4. 0M69Q0176 

»^MSOS 

4. QM69D 0179 


»^MSOS 

4. 0H690Gi8Q 


’^^MSOS 4. 

i^«^M690 0181 

o 

, -^^MSOS 

4. OM6900182 

^^MSOS 

4. QM69Q0185 


♦^MSOS 

4.GH6930i84 


^^MSOS 

4. 0M&90Q185 

o 

^^MSOS 

4. GM6900186 

”--MSOS 

4. GH 6930187 


^^MSOS 

•+. CM69G 0188 


^^HSOS 

0H&900189 

o 

*-MSOS 

T. GM693 0190 

^^HSOS 

-r. OH 690 0191 



O 
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019 5 

P0097 

6GFF 



STA- 

I 




-^HSOS 

'4 * 

0196 

PO 098 

C802 



LDA^ 

INDEX 




^^HSOS 

4. 

019 7 

P0099 

14FF 



JMP- 

Cl) 




^ ^M SO S 

4 -• 

0198 

P009A 

GOGO 


INDEX 

NUM 

0 




»^HSOS 

4 . 

0199 

P0 09B 

5832 


TERM 

RTJ^ 

RELFIL 




’^^MSOS 

4 • 

020 0 

P009C 

DA07 



ENA 

7 

A JOB 

IS ABNORMALLY TERMINATING 

SO 

^^MSOS 

4. 

02u 1 

P0Q9D 

0 8 02 



SET 

0 

SCHEDULE FILE MOD TO CLOSE OPEN 

JOB 

-^HSOS 

4 ft 

0 2 0 2 

PQQ9E 

18F5 



JMP- 

JBPEX+1 

FILES- 

RETURN WILL BE AT CLSDON 


’^^-MSOS 

•4 ft 

02 0 5 

P009F 

C 0 li 0 


J03T 

LOA 

=N$3033 

SET UP 

03 ERROR CODE 


^^MSOS 

4 ft 


P 0 0 A 0 

30 33 








^^-MSOS 


020 6 

POOAi 

ECu5 


J03T1 

LDQ^ 

(TRNTB) 

JOBENT 

TRANTA TABLE 


4 ft 

020 7 

P00A2 

620A 



STA- 

10,0 

STORE 

ERROR IN TRANTA ERROR. WORD 

»»MSOS 

4 ft 

020 8 

PQQA3 

18F7 




TERM 


TRANTA TABLE TO JOBENT 


♦-^HSOS 

4 ft 

020 9 




^ if. If. :sf. 

THIS ROUTINE 

MOVES THE 

^ ^ V ^ ^ ^ 


0211 

PO OAt 

0 0 0 0 


HVTBL 

NUM 

Q 




^^MSOS 


0212 

PGQ A5 

C4C 0 

X 


LOA 

TRNVEC 

GET TRN TBL ADDR IN JOBENT 


4ft 


PO 0A6 

OOOB 

X 









0213 


0 0 A6 

p 


EQU 

TRNTBC'^-l) 




^^MSOS 

4 ft 

021- 

P00A7 

60FF 



STA- 

I 

FROM 

TRVEC AND SAVE 


^^MSOS 

4 ft 

0215 

P00A8 

OCOE 



ENQ 

LENGTH 






0216 

P0CA9 

CA06 


HOVE 

LDA^ 

TRANTA , Q 

TRANSFER TRANTA TABLE TO JOBENT 


‘i^^MSOS 


0217 

POOAA 

66FF 



STA- 

CD ,0 




4 ft 

0218 

POOAB 

G1 42 



SQZ 

2 






0219 

POOAC 

QDFE 



INQ 

-1 






0 22 0 

POOAO 

18FB 



JMP^ 

MOVE 






0221 

PGQAE 

1CF5 



JMP«^ 

CMVTBL) 







0M59Q 0192 
OM5900iq3 
0M6 930194 
0M593 0135 
OH&90019B 
GMo900197 
0M690Q198 
GMb900199 


3M6900202 

0MQ9Q0203 
0M5900204 
CM59Q Q2Q5 
M69j 020b 

Mo90 0208 
0M6900 209 

OM6900210 
GM&90U211 
M690u212 
M6900213 
0M&9Q0214 
M690 0215 
M590Q216 
M690D217 
M593 0 21 8 
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c 

0223 




^ VECTOR TABLE FOR JOB 

PROCESSOR 



M69D0220 

c 

o 

0223 

POOAF 

7FFF 


TRANTA 

KUM 

S7FFF 

0 - ABSOLUTE LOCATION OF JOBTWO 



M69G 0222 

o 


0226 

po jeo 

0 0 2F 



ADC 

JBPRO-J OBTWO 

1 - RETURN WHEN STATEMENT ALREADY 

INPUT 


M6930223 



022 7 

PDLiPl 

0 0 0 0 


INPBJF 

MUM 

0 

2 - ABS. ADDR. OF INPUT BUFFER IN 

• JOBENT 


M6900224 


Q 

022 8 

PQ 0B2 

0 007 



ADC 

J0BP-J38TW0 

3 - RETURN WHEN NO STATEMENT - ^ J ' 

..PRINTED 

M&900 225 

^ c 

022 9 

P00B3 

0197 



ADC 

GLSDON- JOBTi-JO 4-RETURN AFTER FILES CLOSED 

..’^H^HSOS 

4. 

0M6900226 


0230 

PO 0B4 

D0D3 



ADC 

FILHD-JOBTWO 

5-ROUTINE FOR FILE MODS 

■ ^^MSOS 

4 • 

QM590022 7 



0231 

PO 0P5 

0 098 



ADC 

TERM-J08TW0 

6-START ABNORMAL JOB TERMINATION ■ 

»^MSOS 

4. 

OM5900228 


o 

0232 

PGCB6 

OOGO 


BPS 

NUM 

0 

7 - BREAKPOINT SWITCH 



M693Q229 


0233 

P00B7 

0 0 0 0 


RI 

NUM 

0 

8 - RECOVERY ON/OFF SWITCH 



M59QQ 230 



0234 

P0 036 

00 GO 


LOADER 

NUM 

0 

9 - LOADER ENTRY POINT 



M690 0 231 



0235 

P0GB9 

0 0 00 


OR EG 

NUM 

0 

10 - REQUEST NUMBER 



H6900232 


o 

0 2 3 6 

POOBA 

0 0 0 0 


STCK 

NUM 

0 

11 - LOCATION OF PROTECT PROCESSOR 

REQ STACK 

M590C253 


0237 

PO OBB 

0 0 0 0 


JFLG 

NUM 

0 

12-INDICATES IF A JOB. IS IN PROGRESS^ ^HSOS 


UM59GQ234 



0 23 8 

POQBC 

7FFF 

X 

NN 

ADC 

N3TACK 

13 - NO. OF ENTRIES IN PROTEG STACK 



M690 0235 



0 239 

POOBD 

GQD6 



ADC 

RF3-J0BTW0 

14 - RETURN TO RELEASE FILE 3 "OUTPUT J" 


M5 90 0 23 6 



0240 


00 OF 



EQU 

L£.NGTH( ^-TRANTA-1) 

^-MSOS 

4 * 

GMo9G0237 

o 


0242 

POGBE 

CAOA 


JOBP9 

LDA^ 

TABLE, Q 

GET ADDRESS OF PROGRAM 



H6900239 



0 2 45 

P 0 0 BF 

0834 



AAQ 

A 




M690 0 240 

i 

1 } 

0 2 44 

P 0 0 C 0 

0902 



INA 

TABLE-J3BP10 



M59Q0241 



0 2 45 

PO OCl 

68 05 



STA’ 

J3BP10 




M690G242 



0246 

P00C2 

C8C0 



LDA 

SSIl 

RESTORE INPUT BUFFER POINTER 



M6900243 


0 


P 0 0 C 3 

0 0 C5 










024 7 

P00C4 

&QFF 



STA- 

I 




M69GQ244 



0 2 4 8 

PC 0 C 5 

58 QO 



RTUP 

4 




Mo 9 j 0 245 



0 2 49 

P0GC6 

0 0 0 0 


JO8P10 

NUM 

S 0 G Q 0 




M59a024b 


o 

0250 

P0DC7 

1810 



JMP^ 

JO BP 

GET NEXT STATEMENT 



M590 0247 



0252 

P00C6 

7FFF 

X 

TABLE 

ADC 

ONE 

RELATIVE TRANSFER TABLE 



M59J 0249 



Q2 53 

P00C9 

7FFF 

X 


ADC 

TWO 

USERS PROGRAMS. 



M5900 250 



0 2 5 4 

POOCA 

7FFF 

X 


ADC 

THREE 




M6900 251 

o 


0255 




^ USER 

GAN 

ADD PROGRAM NAMES HERE. 



M6900252 


025 7 

PO OCB 

7FFF 

X 

F3 

ADC 

FILE3 


»"^MSOS 

4 « 

OM5900254 



0 258 

POOCC 

7FFF 

X 

Miai 

ADC 

MIB 




M69JQ255 

c 


0 25 0 

PO OCD 

oeoo 


RELFIL 

NOP 

0 




M&9G0257 



0 251 

POOCE 

58 00 



RTJ 

JB<MIB 




M69J 0258 


i I 


POOCF 

0 088 








H5900259 

o 

\ t 1 ■ 

0252 

PDODO 

G 8 42 



CLR 

Q 





0253 

PGGDl 

4CFA 



STQ^ 

(MIBl) 

CLEAR MIB FLAG 



M5900 260 



025- 

POQ02 

IGFA 



JMP’f 

{RELFIL ) 

RTS 



M 5 9 0 0 2o 1 


o 

0 2 5 6 

P0003 

58 F9 


FILH3 

RT 

RE-FIL 




M6900263 

u 


025 7 

P00D4 

DADO 



ENA 

0 


^^MSOS 

'4 # 

QM593 0254 

o 


0258 

P00D5 

18B7 



JMP^ 

IDXTBL+1 

SCHEDULE THE SECOND PORTION OF 

»'^MSOS 

4* 

OM5900265 


025 9 




¥ 



THE FILE HANDLER 

’^^^MSOS 

^ • 

0M59G 0266 


o 

o 












o 

o 
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G27 : 

PG0D6 

58F6 


RF3 

RTJ^ 

relfil 



M690 0267 

02?1 

P00D7 

CCOO 


JOBP 

LOA 

{ lUPP) 

CHECK FOR TYPE PF INPUT 

^»MSOS 

4. 0M6 93 0268 


P00D8 

0165 







M690 0 259 

ullZ 

POO 09 

6828 



STA^^ 

READLU 



0 2 7 5 

POOOA 

AOOA 



AND- 

SA 

MEDIUM 


M693 0 270 

027 4 

POODB 

90FD 



SUB- 

$F9 

INPUT COMMENT DEVICE 

»^MSOS 

4. 0M5900 271 

0 275 

PGODC 

0103 



SAZ 

J33P1 

YES 

^f^H^MSOS 

4. 0M590G272 

0 2 7 6 

POODD 

8 0Fn 



ADO- 

$F0 


^^MSOS 

4. OM 5900273 

0277 

PO ODE 

90 GO 



SUB 

= NBFO 


^^MSOS 

4 • 0M69 0 0 274 


POODF 

OOFO 






1 . 


0278 

POOEO 

6873 


JOBPl 

STA^ 

COMSW 


»*HSOS 

4. 0M69G0275 

0279 

POOEl 

OllB 



SAN 

jaspsi 

DON'T PRINT A -J- ON THE LIST DEVI 

CE^^MSOS 

4 • 0M59 0 0 276 

C23G 

PG0E2 

58 7A 


WRIT 

RTJ- 

J8KILL 

CHECK FUR JOB CANCEL FLAG SET 


H59j0277 

G231 

P00E3 

5i*F4 



RTJ- 

(SF4) 

OUTPUT J 


M59J0273 

G2S2 

POOE^f 

ODOO 



ADC 

$DQG»W?ITl-WRIT-2 

«^^MSOS 

4 . 0M690 0 279 


PO 0E5 

0 0 07 








0283 

P00F6 

00 00 


WRITHO 

ADC 

0 



M69QQ280 

028-r 

P00E7 

18FC 


WRITLU 

ADC 

$13FCi $2 



M6900281 


PO QE8 

0 0 0 2 








0255 

P00E9 

0 0 70 



ADC 

WRTTO-^+5 



M690 0282 

028 6 

PuOEA 

1 4F A 



JHP- 

( OISP ) 


' »’^MSOS 

4. uM6900285 

C2S 7 

POOEB 

0161 


WRITl 

SQP 

J0BP61 


»^MSOS 

4. 0M590 0284 

02 88 

POOEC 

18F5 



JMP^^ 

WRIT 



M59CQ285 

0 289 

PQOED 

CCOO 


J08P51 

LOA 

(F2) 

FIND ABS. LOG. OF SM 

^^MSOS 

4. QM690 0 28 6 


POOEE 

FF5F 








0 29 0 

POOEF 

8 000 



ADD 

=X3M1- JOBTWO 



M5900287 


POOFO 

0163 







M6900288 

0291 

PflUFl 

60FF 



STA- 

I 



0292 

P00F2 

CC29 



LDA'^ 

(5T ABU" ) 

GET ADDRESS INPUT BUF IN JOBENT 

^^•MSOS 

4. GM690 0 289 

0293 

P00F3 

6 8 0 4 



STA^ 

SET + 1 


^^MSOS 

4. 0M5900290 

0294 

POOF^ 

OAFF 



ENA 

-G 

SET BUFFER TO $FFFF 


M6900291 

0295 

P00F5 

0C23 



ENQ 

L-1 



M59G0292 

02 9 6 

POOF6 

6600 


SET 

S T A + 

OiQ 

STORE IN MIBUF IN JOBENT 

»^MSOS 

4. 0M69G 0 293 


P0OF7 

0 00 0 








0297 

POOF8 

6A6B 



STA^ 

SM1,Q 

STORE IN LOCAL BUFFER 


M69Q 0294 

0^98 

PO 0F9 

ODFE 



INQ 

-1 



M&90 0 295 

0299 

POOFA 

0 171 



SQM 

REAOR 



M690 0 296 

0 3 0 Q 

PG QFB 

18FA 



JMP^ 

SET 



Mb900297 

Q u 1 

PGGFO 

5860 


READ? 


JBKILL 

CHECK FOR JOB CANCEL FLAG SET 


M69Q 0298 

0 50 2 

POOFO 

C400 

X 


LDA 

MIBJF 

SET BUFFER ADDRESS IN CASE 


M59j Q 299 


POOFE 

7FFF 

X 







03 0 3 

PO J FF 

68 07 



STA^^ 

READLU+2 

MONITOR IS IN UPPER BANK 


M69Q0300 

0 30 -r 

POlO D 

54F4 



RTJ- 

(SF4) 

READ JP STATEMENT 


M69Q 0 30 1 

0 3 0 5 

POiOl 

08 CO 


REOPAR 

NUM 

$800,0 



M690 0 302 


PG1C2 

0 OGO 








0 3 0 6 

P 0 1 0 3 

0 0 0 0 


RDTHD 

ADC 

0 



M69 0 0 30 3 

03 0 7 

POl 04 

OOGO 


READ-U 

ADC 

0 ,L + 1, ( MI8UF) 



M69G 0 304 


PG105 

DO 25 








P 0 1 C & 

80 FE 

X 







0 3 0 8 

P0iu7 

C8FB 


R02 

LDA» 

RDTHD 

CHECK FOR COMPLETION OF I/O 


M69003G5 

0 30 9 

P01O8 

0101 



SAZ 

ROl 



M69G 0 306 

03 1C 

P0109 

18FD 



JMP^ 

R0 2 



M690 0 30 7 

0311 

P 0 1 0 A 

C8F9 


ROl 

LDA^ 

READLU 

CHECK FOR I/O ERROR 


M593 0 30 8 


JOB PRO 


PAGE 


DATES 01/27/99 


0312 

PO loB 

012E 



SAP 

RD3 

G313 

PQ 10 C 

0FC4 



ALS 

4 

03L4 

poion 

0139 



SAM 

RDIA 

0315 

POlOE 

CC GO 



ENQ 

0 

0316 

POlOF 

GFEC 



LLS 

12 

0317 

POllQ 

E600 

X 


LOQ 

LOGIA, Q 


PQlll 

7FFF 

X 




0518 

Pull2 

C20C 



LDA- 

12, Q 

0319 

PG113 

0FC4 



ALS 

4 

0 320 

PU114 

0122 



SAP 

RDIA 

0321 

P0115 

18u0 



JMP 

TERMA 


P011& 

G0D7 





C322 

P0117 

18 0 0 


RDIA 

JMP 

RE5TR 


PO 118 

0 116 





032 4 

P0119 

8106 

X 

SMI A 

ADC 

CMIBUF) 

0 3 26 

PQllA 

E 4 GO 

X 

RD3 

LDQ 

MIEJF 


P0118 

0119 

X 




0327 


OllB 

P 


EQU 

STABUF 

0323 

POllC 

16 46 



JMP» 

SSI 

03 29 

PGllD 

0C23 


SMCKS 

ENQ 

L-1 

0 3 3 0 

POllE 

CCFC 



LOA^ 

ISTABU- ) 

0 33 1 

POUF 

681G 



STA^ 

SMCKS241 

0332 

P0120 

681E 



STA^ 

SMCKS 3+1 

0 3 3 3 

Pul21 

CA42 


SMCKSl 

LDA^ 

SMI ,Q 

0334 

Pul22 

BO 12 



EOR- 

HFFi- F 

0 3 3 5 

P0123 

0108 



SAZ 

BCKGNO 

0336 

P0124 

CA3F 



LOA^ 

SMI, Q 

0337 

P0125 

BO 00 



EOR 

=N$20FF 


P0126 

20FF 





0358 

P012 7 

0104 



SAZ 

BCKGND 

033 9 

P0128 

CA3B 



LOA-^ 

SM1,Q 

05 40 

P0129 

BOO 0 



EOR 

=NS2020 


PQ12A 

2020 





G341 

P012e 

0117 



SAN 

SMX 

0 342 

PG12C 

CO 12 


BCKGND 

LOA- 

HFFFF 

u 3 4 3 

PQ12D 

6 A 3 6 



STA» 

SMltQ 

U *t 4 

P012E 

66 GG 


SMCK32 

STA + 

0 , Q 


PO 12F 

0 0 0 0 





0 3 4 5 

P013u 

0 OF£ 



INQ 

-1 

C 5 4 6 

PG131 

01 41 



SQZ 

SMX 

0347 

P0152 

18EE 



JMP» 

SMCKSl 

0348 

P0133 

CA3Q 


SMX 

LOA=^ 

SM1,Q 

0349 

P0134 

AQ 0 A 



ANO- 

HFF 

0 3 5 0 

P0135 

0028 



EOR- 

$28 

0 5 5 1 

PQ156 

0102 



SAZ 

SMXl 

0 352 

PQ137 

CA2C 



LDA^ 

SM1,Q 

03 5 3 

PC 13 8 

1805 



JMP^ 

SMCKS3 

035 4 

P0139 

CA2A 


SHXl 

LOA^ 

SMI ,Q 

0 5 5 5 

PO 13A 

AOIA 



aND- 

$1A 

0 3 5 6 

P013B 

BOOA 



EOR- 

HFF 


IF A READ ERROR, 

TTY ERROR 

PSYTAB OF INPUT DEVICE 
LOOK FOR EOF 

EOF--TERNINATE JOB 
RESTORE INPUT ON FAILURE 


M59J 0 30 9 
»-^HSOS 4.0MbgOG31G 
^^MSOS 4. 0M69D 0311 
»»MSOS 4. OH6900312 
-^■■^‘MSOS 4.GM5 900 313 
^^MSOS 4.0H690G314 

^^MSOS 4.0M6900315 
^^MSOS 4«i-Mb93u3i6 
^^MSOS 4,0Mb9uD3l7 
, ^-MSOS 4. 0M690 0 318 

^^MISOS 4. uMb9 0 0 319 


A8S AODR. OF INPUT BUFFER IN JOBENT Mb9u0o2i 


^^HSOS 4* 0M69Q0 323 


TRANSFER MIINP BUFFER 

AODR. OF INPUT BUFFER IN JOBENT 


GET WORD FROM STATEMENT 
IS WORD SFFFF 
YES, STORE INTO BUFFERS 
NO 

IS WORD S20FF 


BUFFER 


^^MSOS 4. DH59Q 0 32 4 
M&9G0325 
M690 0 326 
^^HSOS 4, GMo900327 
<^'^MSOS -r,0M6930328 
^»MSOS 4 . OM6900329 
H690 Q 330 
M6900331 
M690 0 332 
M6900333 
M5900 334 


YES, FILL ENTIRE WORD WITH SFFFF 
NO 

IS WORD S2D20 


Mb9D0335 
H59Q0 336 
Mb9GD337 


NO, MUST-HAVE A VALID CHARACTER 
YES, FILL ENTIRE WORD WITH SFFFF 
IN LOCAL .BUFFER 
AND IN JOBENT BUFFER 


M6900338 
M590 0 339 
M69u 0340 
M59Q0341 


LOOP 

IS LOWER CHARACTER A SPACE ($20) 
(S002G) 

YES, BACKGROUND LOWER CHARACTER 
NO, ENTIRE WORD IS VALID TO PROCESS 

PUT SFF INTO LOWER CHARACTER 
(SFFOO) 


H690 0 342 
M59C0343 
M590 0 344 
M5900345 
Mb93 0346 
M599 0347 
M690 0 348 
M5930349 
M6900350 
M69G0 351 
M6900352 
Mo9G0353 



o 

o 


o 

o 


o 


H69D 0 354 
M593 0 355 


MS 9 u 0 35 o 
HS9Q 0 357 
^^MSOS ‘+.0M&9D 0 358 
^^-MSOS 4.0Mb90 0 359 
^^MSOS ‘+.QMb90 0350 
^•^MSOS 4»QMb9GG3&i 
^^^HSOS 4.0M69a0 352 
M690 0363 
MS 90 0 36 4 


M590 0 355 
MS90 0366 
M69}C357 
H590 0 35 8 
MS9 j 0 369 
HS900370 

M6900371 
M59G C 372 
Mb900373 

^^MSOS H.GM59Q0375 


c, 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 


o 

o 



JOBPRO 
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DATE! 01/27/99 


o 

o 

o 


u 




o 

o 

o 

o 


o 


C.) 


0 0 3 G 




THIS 

SUBROUTINE Cl 

0381 




» MIB 

FLAG FDR JOB 

0583 

PO 157 

0 0 CO 


JOKMIB 

ADC 

0 

038^ 

PQ158 

5 8 0 4 



RTJ^ 

JB<ILL 

0 5 3 6 

PU 159 

D4G0 

X 


RAO 

MIB 


PJ 15A 

oocc 

X 




038 6 


015A 

p 


EQU 

MIBFLG ( 

038 7 

poise 

ICFB 



JHP^^ 

(JBKMI3 ) 

03 3 8 




^ THIS 

SUBROUTINE C 

0539 





THE DI5P. TO 

0391 

PO 15 c 

OOGO 


JBKI-L 

ADC 

0 

039 2 

PG15D 

C 4 0 0 

X 


LDA 

J BC NF G 


P015E 

7FFF 

X 




0 3 9 3 

PQ15F 

C IGl 



SAZ 

RETURN 

0 39- 

P 0 loG 

14EA 



JMP- 

(SEA ) 

039 5 

P0161 

ICFA 


RETURN 

JMP^ 

(J3KILL) 

0393 




^ THIS 

ROUTINE SAVES 

0399 




^ DEFINE BY 

LOCATION 

04i 1 


0 0 24 



EQU 

L (3b) 

OtD 2 

P0162 

5826 


SSI 

RTJ- 

SSIl 

0403 

PO 163 

0 024 



BSS 

SMI (U 

0 4 irf 4 

PQ187 

FFFF 



NUM 

$F FEE 

04 u 5 

P0188 

QL 00 


SSIl 

0 

0 

0 40 6 

P0169 

C8FE 



LDA^’‘ 

SSIl 

0 4 0 7 

Pjl8A 

60 FF 



STA- 

I 

G4 0 8 

POISE 

48 OB 



STQ^ 

BUFPTR 

e-^ 9 

PG18C 

48 00 



STQ 

INP3UF 


P0180 

FF23 





0 410 

P018F 

0C23 



ENQ 

L-1 

0411 

P018F 

CE07 


LOPl 

LOA» 

( 6 JFPTR ) 

U4I2 

PO 190 

65FF 



STA- 

(I) ,Q 

Q 413 

PG191 

0142 



SQZ 

OUTl 

0 41 4 

P0192 

OOFE 



INQ 

-1 

0 415 

P0193 

18FB 



JMP’^ 

LOPl 

0 416 

PD194 

4CC5 


OUTl 

STQ^ 

(MIBFLG ) 

Q417 

P0195 

1887 



JHP- 

SMCKS 

Q418 




¥ 



0419 

P019 6 

00 0 0 


BUFPTR 

ADC 

0 


CHECK FOR JOB CANCEL FLAG SET 
NOT SET SET MIB SWITCH 


^^HSOS 


i M69[iuJ77 
M6900 378 

M&90 0380 
M5900 351 
4. GM890 0382 


RETURN TO SENDER 


IF SET, 


■ ^-MSOS 4. 0M5900383 
M 6 9 'j 0 3 8 4 

IT EXITS TO Mo90Q385 

M5930 38b 


CHECK FUR JOB KILL MODULE ACTIVE 


Md90 0 33 8 
M5900389 


M&90C39Q 

M39Q0391 

NOT ACTIVE- RETURN WITH INHIBITED INTERRUPTS M59Q0392 


THE JOB PROCESSOR STATEMENT 


MOVE STATEMENT TO INTERNAL BUFFER 
STATEMENT BUFFER 

ABS LOCATION OF SMI BUFFER 

I POINTS TO BEGINNING OF INPUT BUFFER 
SET 3UFPTR TO POINT TO SOURCE BUFFER 


PICK-UP FROM USERS 

INTO LOCAL 

IF 0 ZERO - DONE 


next word 

CLEAR MIB SWITCH 
get LOCAL BUFFER 
BACKGROUNDED 
POINTER TO USERS 


AND BUFFER IN 
BUFFER 


M6900395 

M6930396 

«^^HSOS 4,C>Mo9a 0 398 
M69a0 399 
M69G04Q0 
M&9G0401 
M69I 0 40 2 
M59D C ^03 
M590 0 404 
M6 9 j 0 -f 0 3 
M6 90 0 40 6 


M5 9 0 0 4G 7 
M59 0 G 4 O 8 
Md9QQ409 
Mb 9 0 0 4 I 0 
M690C411 
M69 j U 412 
CJMb900 413 
Mb9 0 0 41 4 
M590G415 
Mo9G 0 416 


^^MSOS 

JOBENT 


o 

o 

o 

o 

(~) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


JOBPRO 


PAGE It 


date: 01/27/99 


0421 



0422 



0423 



0424 



0 42 5 

PO 197 

C8 0 0 


P0198 

FF20 

0 42 6 

P0199 

0122 

0 4 2 (' 

PG19A 

C80Q 


P019B 

009B 

Q428 

P019C 

E4G0 


P019D 

7FFF 

0429 

PQ19E 

4815 

0 4 3 0 

P019F 

o623 

0^51 

POIAD 

DD27 

0432 



0433 

PGlAl 

40 FF 

G - 3 4 

P01A2 

0CO8 

0 45 5 

P01A3 

C722 

0 4 3 o 

PD1A4 

0 8 64 

0 43 7 

P01A5 

0104 

0-3 8 

POIA 6 

D8QC 

0439 

PQIA 7 

0001 

0 4 4 0 

P01A8 

0141 

Q 44 I 

P01A9 

18F9 

0 4 4 3 

POIAA 

5802 

044 4 

POIAB 

18 OE 

0 44 5 

POIAC 

0 BOO 

0 44 6 

POIAO 

5 4F4 

0447 

PGIAE 

GC 00 


PO lAF 

U 0 0 0 


PQ IBJ 

0 0 0 0 


POIBI 

18FC 

0 4 48 

PulB2 

0 0 0 0 

0449 

PO 1B3 

0 0 0 0 

0 4 3 0 

P01B4 

C8FB 

0451 

P01E5 

OlDl 

0-52 

P01F.6 

18FD 

0 40 3 

P01B7 

E8F9 

0454 



0-5 5 

PQ1B8 

1CF3 

0-56 

P01B9 

CO 00 


POIBA 

18FB 

0 4 5 7 

PQies 

68 F5 

0 45 8 

POIBC 

COFC 

Q + 59 

PGIBD 

90 FB 

0460 

POIBE 

QlOl 

04bl 

POIBF 

58EC 

Qi^62 

POICO 

O8F0 

0 46 3 

PO iCl 

0 ADC 

0 464 

P01C2 

68 EF 

0 ‘+65 

P01C3 

CC&A 

0 4 D 6 

PQ1C4 

68 05 


^ THIS AREA IS ENTERED AFTER TERM LOGIS HAS CALLED FILE ^^MSOS 

MODULE TO Cl-OSE JOD FILES FOR ABNORMAL TERM. ^ ^ 

ERROR CODE »^MSOS 

MINUS FOR =^T RESPONSE TO 
LOADER ERROR 

PICK UP ADDRESS OF ERRH IN J08ENT 
STORE IN WRITE RED. 

STORE CORRECT ERROR NO. IN SM IN JOBENT 
Q POINTS TO MIP3UF-H IN JOBENT ^-^MSOS 

MIP8UF IN JOBENT 

-^MSOS 
»^MSOS 

’^^MSOS 
^-'‘MSOS 
’^^MSOS 
^»MSOS 

WRITE ERROR MESSAGE 


CLSDD N 

LDA 

TRANTA410 


SAP 

J 


LDA 

NAME+2 

J 

LDQ 

ERR MSG 


STQ^ 

JSTART 


STA- 

($23) ,0 


INQ 

L + 3 

-¥• 

STQ- 

I 


ENQ 

-L-3 

J1 

LDA- 

(ZERO) ,8 


TCA 

A 


SAZ 

J2A 


RAO^ 

JN 


INQ 

1 


soz 

J2A 


JMP^ 

J1 

J2A 

RTJ-" 

WRERR 


JMP^- 

ERRAG 

WRERR 

NOP 0 


RTJ- 

($F4) 


NUM 

$C0Q» $0 , $ 

JN 

NUM 

$0 0 0 0 

JSTART 

ADC 

0 


LDA» 

JN-2 


SAZ 

1 


JMP^ 

v-~ ? 

if 

LDQ^ 

JN-1 


JMP^ 

( WRERR) 

ERRAG 

LDA 

=N$18F3 


STA^ 

JN-1 


LDA- 

$FS 


suo- 

$FB 


SAZ 

GONXTl 


RTJ^ 

WRERR 

GONXTl 

RAO^^ 

JN-1 


ENA 

0 


STA- 

JN 


LDA^‘ 

(IJPP) 


STA^ 

MLU 


CHECK FOR A NULL CHARACTER 


STARTING ADDRESS OF NIPBUF IN JOBENT 
WAIT FOR COMPLETION 


CHECK FOR ERROR ON HRITTING 
2 CARDS DELETED 


LU OF COMMENT DEVICE 

LU OF STO. PRINT DEVICE 

IF. EQ. PRINT MESSAGE ONLY ONCE 


CLEAR WORD COUNT 
INPUT DEVICE 


^^MSOS 

»^HSOS 

^•^^MSOS 

^^MSOS 


MB9D 0 4i 8 
A. OM6900 4i9 
-I-. QM690 0420 
4. 0M590 0 421 
4. 0M69QG 422 

M59 u 0 42 3 
Mo9G Q 42 4 

M69 0 0 h2 5 

M&90Q426 
Mb90 0 42 7 
4. GM59Q0 h28 
M&9 J 0 42 9 
M5 90U43 0 
4. uM690 0 431 
4. GHo9u0 43 2 
M690 0 h 33 
4. 0Mo90 0 h3 4 
4. QM&9Q 0 h 35 
4. GM&9Q 0 43 6 
4 . u Mo 90 0 43 7 
M5900438 

M69G 0440 
Mo9 G 0 441 
Mo 90 0 442 
M690Q443 
M690Q444 


M&90 0 44-5 
M690 0 44b 
M59Q0447 
Mo9 0 u 446 
M693 0 449 
M69G u 450 
M69C u 451 
M690 0 40 2 

H69 iJ 0 40 3 

M59 3 0 454 
Ho 9 0 0 40 0 
M69 j 0 45 6 
M69G 0 45 7 
M69G0 4O8 
Mb9Q 0459 
4 . 0 Md9 0 G 40 0 
4. 0M690 0 461 
4. CMo900462 
4.0M5900463 


.inRPf?n 


P^\GE 12 


DATE! Gl/27/99 



-^'•MSOS 4.uMo9LJ0Hb4 
«-^HSOS 4.0 Md9Q0465 

»^MSOS 4.QM59Q0Hbb 
*"^MSOS 4 • 0H69u 0 4-b 7 
^^MSOS 4. 0M69QCJ468 
^^MSOS 4,DMb9QG469 
,*^MSOS 4.0Mb900470 
'.♦^MSOS 4.0Hb9u0471 
^^^MSOS 4.0M69C0 472 

^^iMSOS 4.0M59QU473 
«-*MSOS 4.UM690 0474 
»^MSOS 4.0M690 0 475 
»^MSOS 4.QMb9QQ476 
»"^HSOS 4.GHb9u0477 
^^MSOS 4. 0Mb9a0478 
’f-^^HSOS 4.0Mb90Q479 
’^^^HSOS 4. 0M593 0480 
^^MSOS 4.GMb900481 
»^MSOS 4.0Hb9a0HS2 
M6900483 
Mb 90 0 43 4 
Mb93G485 
^^^MSOS 4.0Mb90G48b 
Mb93 0 487 


»"*^MSOS 4*0Mb90 0 488 
’^^MSOS 4.uMb9G 0489 
Mo90 0 490 
Hb90 0 491 

M59GQ 492 
M69Q0 493 
M6900494 
Mb93 0 49b 
Mb 93 0 49b 
Mb90 0 497 
^^MSOS 4. GMb900498 
»^MSOS 4, 0M6900 499 
M690 Q5GG 
Mb9G 0 501 
Mb93 0 5GZ 
Hb9G05Q3 

Md90 0 50 4 


r ' 

O 

O 

o 

o 

o 

o 

/'***'\ 

X,,.* 

c 

o 

o 

o 

o 

o 

o 

o 

o 


Md 9 3 0 50 5 
Mb 90 0 5C6 
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date: 01/27/99 



M590 0507 
M59a 050 8 
M693 0 509 

132^5154 

132*5184»’^^-^’^^»^ 
132-s^518 4»»-»’-^»'*^'^ 
132 ^ 5184 »^»»^»-^^ 

132^5184*'^»*'-^»»’^ 

132 ^ 5184 ^«^»'f-»»»«'- 

132^518 v-f 4r 

132^518^-^-^-'^^*^^ 

132'^5184^’^'^'‘^*’’^ 

132-5l84^^^-»»»«- 

132^5184'»'’^'*'^^^^^'- 

132^5i8‘r«‘«^^*-’^^-^ 

-^^MSOS t.uMo93 05i0 
^^HSOS 4. 0 Md 900511 
^^MSOS -r. uMo9Qfl 512 
-^MSOS 4.0Mo900513 

M59j 0514 

M69Q 0 51 5 

M6900516 

M59j 0517 

^^MSOS H. GHo900519 
^-MSOS 4.0MSgjfl52e 

+»MSOS H. GMo90u52i 
^^HSOS 4-. GM690 C 522 
^^^MSOS 4.0M6900523 
^^MSOS 4.0M69Q0524 

^^HSOS 4. 0M6900525 

"^^MSOS 4.0Ma9u 0 52b 
^»MSOS 4. OM6900527 
^^HSOS 4.0M&9GQ528 

^^MSOS ^.0M59QQ529 


c 

C’ 

o 

o 

o 

o 

c 

c 

o 

o 

o 

c 

o 

o 

o 

o 





JOOPRD PAGE date: 01/27/99 


0p5 1 

P022E 

CO 00 

RESTR 

LDA 

=NS18F3 



-^390 

M690 0 53 0 


P0 22F 

18FD 








0 5 52 


022F 

P 

EOU 

COMDEV( ^-1 ) 



^^MSOS 

H, 0M6900531 

05 53 

P0230 

6CFC 


STA^ 

(IJPP ) 




M69u0532 

05 5 4 

P0231 

1800 


JMP 

JDBP 




M6900533 


P0232 

FEA4 








0 5 5 5 

P0233 

OOGO 

SAVIT 

ADC 

0 




M69j 0 534 

0 5 5 o 

PD234 

2Q4A 

NAME 

ALF 

3 , JOB 



’^^MSOS 

4 • 0M69G 0 535 


P0235 

4F42 









P0236 

2020 








0557 

P0237 

20 4i 


ALF 

5, ABORTED 



^^MSOS 

4. OM690Q53& 


P0238 

42 4F 









Pu239 

5254 









P023A 

45^4 









P023B 

20 20 








0 5 5 fa 

P023C 

2A54 

STRTEE 

ALF 

1,^'T 




M690 0 53 7 

0559 




END 





M6900538 

PGM = 

0 23D 

( 

573) COM 

1 = 0 00 0 ( G ) 

DAT = 0-UQ ( 

0) 
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U 


o 

E a u I V 

A L E N 

C E S 


o 

DEE. LINE 

NAME 

VALUE 



QGOO 

I 

GOFF 

( 000255) 


0 0 3 7 

HFF 

000 A 

{ 00 OQlfl) 

, ^ 

0 038 

H7FFF 

Oull 

(000017) 

0 038 

HFFFF 

0012 

( 0 0 0 013 ) 


0 0 40 

LPHSK 

6002 

(000002) 


0U41 

RFQXT 

00B9 

(GQQ185) 

o 

0 043 

DISP 

GCEA 

{ 00Q2S4) 

0 044 

ZERO 

u022 

(000034) 


U 240 

LENGTH 

0 G G E 

(000014) 

C) 

0 40 1 

L 

0 u 2 4 

(000036) 


REFERENCED AT LINE NUMBER 

3Q55» 0657, 0059, 0195, 0197, 0214, 
0349, 0356 

0334, 0342 
3 517 

0285 , 0492 
0 435 
0 215 

j295, 0307, 0329, 6367, 0^63, Q^IG, 


O 

o 

o 

o 

o 

o 

o 

r"\ 

'v..-' 


o 


0217, 0 2^ 7, 0291, 0407, 0 412, 0 433, 0547, 0548 


0431, 0^34 


O 

o 

C) 

o 

C' 

o 

o 

Q 

o 

o 

o 

o 


o 


JOBPPO Pi\GE 16 date: 01/27/99 


s y ;i B 0 L s 


OEF. LINE 

NAME 

ADDRESS 

RE'ERENCED AT 

0 012 

JO0TWO 

u 0 0 G 

0012, 

0 0 5 0 , 

0 313 

RF3 

0006 

00 13, 

0239, 

0 Cl4 

J03T 

009F 

0014, 

0,134 

0015 

RI 

00B7 

0015, 

0 541 , 

0 0 48 

JPl 

00 0 2 



0 057 

LOOP 

OQQE 

0 062 


0 063 

0UT2 

0015 

0 0 61 


0 0 6 6 

JOBI 

0018 

0 0 70 , 

0 092 

0 068 

0UT2A 

CiOlA 



0 071 

OUT3 

QOIC 

3 0 75 


0074 

0UT3A 

OQIF 

0 067 


0 0 7 6 

3A VQ2 

0021 

a 0 48 , 

0 06 3 

0 0 7 7 

J8 

0022 

0 0 64 


0 0 88 

J8P 

0Q2C 

0 0 74 


0093 

J8PR0 

0G2F 

3084 , 

0226 

0 09 5 

JPTAB 

0031 

0137, 

0 142, 

0 12? 

JPTABL 

004C 

3156 


0123 

3AVQ 

0 0 40 



0124 

TEMP 

Q04D 

3130 , 

0138, 

0125 

F2 

004E 

0 0 47 , 

0289 

012 7 

JOBP4 

004F 

0 373 


0 142 

JCHK 

Q05E 



G147 

JOLKAl 

0063 

0139 , 

0141 

j 150 

JOLK 

0067 

3136 


015 4 

HEXOF 

G06C 

3 140, 

0 160 

015 5 

TTYEOF 

006D 

3150 


0 156 

JOLKA 

0 0 6 E 

0144, 

0 147, 

015 7 

RETRY 

0 0 6F 

0154 


0165 

J08P6 
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0 0 33 


0 0C2 


0037 

0 D CO 


EQU 

HMATO?($C0) ,SIZECR($F5) 

' M7300037 

C) 



OOFS 




L,/ 


0038 

00 11 


EQU 

H7FFF (BID 

M73QQ038 



o 


o 
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0-3 9 

0 0 B8 


EQU 

COUNT (SD83 


00 40 

0 0 02 


EQU 

LPMSK (2 ) 

,^s, 

0 Ll 4 1 


Jf. 


Vi 


00 42 
0 j 43 

QQOC 


^EQU 

BUFF ($DQ ) 





V V- 


0 4 4 

0 8C2 


EQU 

HA3LU(S8C2) 

o 

u 0 4 5 

0 0 0 1 


EQU 

JOl (1 ) 

0046 

3002 


EQU 

J02 (2) 


U j 47 

0 0 06 


EQU 

JOo lb) 


0 0 48 

0 0 08 


EQU 

JG8 (8 ) 


o 


If. * 

SIZE OF JBKILL OVERLAY 



V- 


0 0 5 0 
OG 51 


* 

>/■ 


THIS VERSION WILL 
WHILE UNPROTEGTEO 


NOT DO CORE SWAPS 
I/O IS IN PROGRESS 


O 

o 


o 

o 

o 

o 


M7330039 

M73000^Q 

^ v^HSOS 4.0M73000 h1 

=^^MSOS 4.QM7300042 
- -”^MSOS 4.0M7301J043 

M730QQ44 
M730 0 045 
M 7 3 j 0 0 4 6 
H73Q 0047 
M730 Q048 


M7300050 

M730Gu51 


(■■■ 

V,.* 

o 

o 

o 

o 

o 

r'', 

o 

(") 

o 

o 

o 

o 
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o 


PAGE 


0 0 5*+ 
0 0 5 5 
0 0 5 6 
0 C 5 7 

0 Li 5 8 
0 0 5 9 

00 0 0 

00 51 
00 5 2 
0D53 
00 5 4 
DQ65 
0066 
00 57 
0 0 5 8 
00 59 





¥- 

ft* Af- -V ? -V* 

POOuO 

C8FE 

PRT 

NUM 

SC8FE 

PQGGl 

6C00 


STA 

(F3) 

PG002 

OICA 



PRTER---1 

PO 0G3 

0162 


SQP 

P0 00 4 

18G0 


JMP 

GET 

PC0G5 

0 0B4 



PRTA 

P00 06 

18 DO 

PRTER 

JMP 

P0 007 

01C6 





¥ 

if. Af 


if.ll. If.!}. If. If. in’. If. If. If. 

PICK UP PRECEEDIMG WORD 

CHECK Q TO SEE IF JBKILL IS REQUESTED 
GO BRING IN JBKILL 

If. If. ^ If. If. If. If. If. If. 


A?- 

Af 

■¥■ 

Af- 

Af 

Af- 


THIS PROGRAM OPERATES AT LEVEL ONE AND IS NOT 
RE-ENTRANT AS MO PROTECT VIOLATIONS OCCUR ABOVc 
LEVEL 1. IT PROCESSES ALL PROTECT VIOLATIONS 
INCLUDING ILLEGAL VIOLATIONS, UNPROT ECTED^ 
PROTECTED COMMUNICATION AN UNPROTCTED MONITOR 
CALLS. IT DOES VALIDITY CHECKING FOR MONITOR 
CALLS WHICH NEED IT. 


M730Q054 
M73C0055 
M730005D 
M7300 057 

M730 0 058 
M73D0 059 

M73Q 0 050 

M7300061 
M73QG062 
M7300063 
M73Q 0 06f+ 
M73uj0o5 
M73Q0 066 
M73yOQ67 
M/3Q0Q68 
M730 0 069 


O 


O 


o 


o 

o 


Qi.71 
i>i7 2 
00 73 
OC 7 1* 
00 7 5 
0 j 7 b 
0077 
00 7 8 
0 3 7 9 
0 0 8 0 
OuSi 
0 0 82 
Qu5 3 


GQ 

0 0 8 5 
00 8 6 
0Q87 
00 38 
u Q 8 9 
00 9 0 
0 0 91 
00 9 2 
CG93 
0094 
0 0 9 5 
G u 9 6 
0 0 9 7 
0098 
0 0 99 
010 0 
0101 


P 0 0 08 

6877 

IPROCi 

STA'^ 

SAVA 

P 00 09 

487E 


STQ^ 

SAVQ 

POOOA 

COFF 


LDA- 

I 

POOOB 

6875 


ST A- 

SAVI 

POO QC 

COEF 


LDA- 

PRLVL 

POOOD 

E4E9 


LDQ- 

($E9) 

PO GOE 

01 44 


SQZ 

K32-»-l 

PQGuF 

AO 11 


AND- 

LPMSKbl5 

POOlO 

G 1 B 1 


SNO 

i 

PGGli 

BQ 32 


EOR- 

ONE3IT+15 

PGGi2 

DIAO 


SOV 

0 

P0013 

o8bE 

K3 2 

STA^ 

SAVPR 

P0G14 

G8GG 

BELOH2 

LOA 

GETTEM 

PO Q15 

QOCO 




PCG16 

9101 


SAZ 

1 

P0017 

luEA 


JMP- 

(SEA) 

PO 018 

C42B 


LDA- 

(CMOTE) 

P0019 

E4E9 


LDQ- 

(SE9) 

POGIA 

0151 


SQN 

1 

POOIB 

AO 11 

if. 

AND- 

NZERO-1 

POOIC 

0 9FO 


INA 

-2 

POOID 

6866 


STA^‘ 

PCELL 

PO DIE 

CC65 


LDA<- 

(PCELL) 

P D 0 1 F 

68 63 


STA^ 

PTR 

P00 20 

6 8 64 


STA^ 

PTR3 

P0Q21 

9C01 


ENQ 

1 

P0022 

4 0EF 


STQ- 

PRLVL 

PD023 

CbB7 


LOA- 

(MASK!) ,Q 

PO 02*+ 

0 40 0 


EIN 


PO 025 

0 821 


TRA 

H 

PQOZo 

C85D 


LDA^ 

PCELL 


SAVE A 
Q 

I 

65K MODE SWITCH o3K=l 


IF NONZERO JOB IS BEING TERNIMATEO 


H7300071 
M7300072 
M73Q0073 
M730GQ74 
^^HSOS uM73aO 075 
--HSOS A.0M7300O76 
^•^HSOS 4.0M7300 077 
^^MSOS GM73Q0Q78 
^^MSOS 0M75a0Q79 
i^^MSOS 4.QM73GQ080 
’^^MSOS 4,OM7300u81 
»^MSOS H. 0M73Q0082 
’<‘^MSOS 4.0M7300083 


IF JOB CANCEL FLAG NOT SET - GO ON 
SET - GO AWAY 

65K MODE SWITCH 65K=1 

CLEAR OVERFLOW INDICATOR 
IF IT WAS A CALL TO A SYSTEM 
MODULE, PCELL CONTAINS THE 
LOCATION OF THE MARK. 

SAVE MARK TWICE 

SET UP LEVEL 1 


M730 Q 084 
M7330035 
M730QQ86 
^«MSOS 4.0M730G087 
^^MSOS 4.0H730Q088 
M7300089 
M7300090 
N730 0091 
M7300092 
M7300 093 
H7330Q94 
M73j 0 095 
M7300096 
M7300097 
M7300Q98 
H730G099 
M73DG100 
»^MSOS 4. UM73001Q1 


o 

o 

0 

o 

o 

o 

o 

o 


G 


O 
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= AGE 
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0102 

0103 

01J4 

P0Q27 
PO 028 
PGG29 
PQ02A 

90F4 
0102 
18 00 
Q28E 

SUB- 

SAZ 

JMP 

$F4 

A-»“l 

C 


CONTAIN AN RTJ- ($F4) . 

GO CHECK FOR ENTRY TO A PRESET 



. GM7300102 
M733 0103 
M730 0 104 


UPROTK 
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date: Ul/27/99 


010 7 




>!■ 

THE INTERRUPT 

010 8 





THEREFORE 

0109 




-¥■ 

1. PTR MUST P 

one 





2. PCELL CONT 

0111 




4 

HO NT . 

0113 

P002B 

E357 


A 

LDQ^ 

PTR 

Oil- 

PD02C 

ODFE 



INQ - 

•1 

0115 

P0Q2O 

C622 



LDA- 

{ZERO) , Q 

0116 

PU02E 

98 00 



SUE 

REQ3 T 


P0Q2F 

0095 





0117 

P0C3 0 

0102 



SAZ 

Au2--^-l 

0118 

P0031 

1800 



JMP 

£ 


P0032 

0 0 82 





0119 

P0053 

E8 4F 


A02 

LDQ^ 

PTR 

012 0 

P0034 

4851 



STQ^' 

RETURN 

0121 

P0Q35 

C622 



LDA- 

(ZERO) , Q 

0122 

P0G36 

OCOO 



ENQ 

0 

0123 

P0C37 

484F 



STQ» 

INDIR 

0124 

P0G38 

0 131 



SAM 

A03A 

0125 

P0039 

1313 



JMP^ 

Al 

Q126 

OO 03A 

OCOl 


AG3A 

ENQ 

1 

012 7 

PG03B 

B021 



EOR- 

NZERO+15 

0128 

PDC3C 

484A 


AO 3 

STG» 

INDIR 

GL29 

P003D 

6845 



STA* 

PTR 

0130 

PQ Q3E 

E0F7 



LDQ- 

TOPMON 

0131 

PC03F 

01GB 



SAZ 

AlA 

0152 

P0Q40 

09FE 



INA 

-1 

0133 

P0U41 

5400 

X 


RT J 

C0MPV4 


P0042 

7FFF 

X 




0134 


0 0 42 

p 


EQU 

COMP 

013 5 

PO U43 

0 90 0 



INA 

0 

0136 

P0044 

01G6' 



SAZ 

AlA 

013 7 

POO 45 

E0F6 


AOS 

LOQ- 

80TOP 

0138 

P0046 

C83C 



LOA^ 

PTR 

0159 

P00 47 

5CFA 



RTJ^ 

(C3MP) 

0140 

P0043 

0102 



SAZ 

AlA 

Dl4i 

PQQ49 

09 0 0 



INA 

0 

0142 

P004A 

0101 



SAZ 

Al 

0143 

P0048 

13 6B 


AlA 

UM P-^ 

F 

0 1 Li- 

PQ04C 

E336 


Ai 

LOQ^ 

PTR 

0145 

P004D 

E622 



LDQ- 

{ZERO) , Q 

0146 

POOhE 

OF 69 



LRS 

9 

0147 

P004F 

0 122 



SAP 

A15 

0148 

P0050 

OF 66 



LRS 

6 

0149 

P0051 

013B 



SAM 

AIF 

015 0 

P0052 

E830 


A15 

LOQ^ 

PTR 

0151 

P00 53 

G622 



LDA- 

(ZERO) , Q 

0152 

PO 0 5 4 

AO IB 



AHD- 

NZERO+9 

0153 

P0055 

OF 49 


A2 

ARS 

9 

0154 

PO 056 

0136 



SAM 

AlF-’^- 1 

015 5 

PO 0 57 

A007 



AND- 

NZERO-i 1 


A MONITOR CALL. 


A MONITOR CA-- OHEN 
LOCATION BEFORE 
THE MARK MUST 
LOG. BEFORE THE MARK MUST 

ENTRY, WE HAVE A PROTECT 
VIOLATION 


SET RETURN LOCATION 
LIST WORD 
SET INDIRECT FLAG 

BIT 15 SET IF INDIRECT 
BIT 15 NOT SET IF DIRECT 
SET INDIRECT FLAG TO 1 
CLEAR INDIRECT BIT 

SET PTR TO PAR. LIST LOCATION 

ERROR IF PARAMETER STRING AT ADDR,u 
MAKE SURE THAT THE INDIRECT 
ADDRESS IS IN UNPROTECTED CORE 


H73Q0107 
M73Q010b 
M73001Q9 
M730 0 110 
M7300111 


’^^MSGS 4. 0M73uijll3 
^^MSOS . 4, 0M?30Q114 
-^MSOS 4.UM7300115 
^♦MSOS -+.0M7300116 

M733 0 11 7 
»^MSOS 4.CM7300118 


^^MSOS 

^-HSOS 


^^MSOS 

«-^MSOS 

^^■MSOS 


'^^MSOS 


IT ISN'T 

SEE IF IT IS BELOW TOP OF 

COMPARE ADDRESSES 
AT TOP+1 OF UNPROTECTED 
CHECK FOR -D 

BELOW TOP OF UNPROTECTED 
ABORT THE JOB 

D AND X BITS MAY NOT BOTH BE SET 


^’^MSOS 

-<-MSOS 

^‘^MSOS 

UNPROTECTE^-^MSOS 

''■^MSOS 

^^-HSOS 


UNPACK REOUEST CODE 

REQUEST CODE GREATER THAN 
MASK OFF D FIELD 


MAX 


^^MSOS 

»»MSOS 

^^MSOS 

»^M30S 

*->fMSOS 

»^MSOS 

^^MSOS 

^»MSOS 

^^MSOS 


♦^MSOS 


M?3aQ119 
M73QU 120 
4. 0M73G0121 
M7300122 
H. uM730Q123 
M7300124 
M7330125 
H73UQ126 
M733Q127 
4 . GM7300128 
4. QM7330129 
4. cM73Q 013C 
M730Q131 
M7300132 
4. UM7300133 

4. 0M73D 0134 
4. uM7300i35 
4. OH 73 00136 
0M730 0137 
4. GM730Q138 
4. 0M7300139 
M7300 140 
M730 0141 
M73Q 0 142 
4. 0M730 0143 
4. 0M73Q0144 
4. 0M73001H5 
4 . 0 M73 0 014 6 
4. CM7300147 
4. 0M7300148 
4. OM7300149 
4. QM730U15G 
4. DM73Q0151 
M7300152 
M7300153 
M73Q0154 
4. GM73G01?5 
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015b 

P0 058 
P0 059 

68 0 0 
02E0 


STA 

RCDDE 

0157 

P0 05A 

0322 


TRA 

Q 

015 3 

P005B 

0 9 EC 


INA 

-CODE 

0 1 3 9 

PQ05C 

0131 


SAM 

AA-'^-l 

016 0 

P005D 

18 59 

AIF 

JMP’^ 

F 

0161 

PQ05E 

E0E9 

A4 

LDQ- 

$E9 

0162 

P005F 

E2 09 


LDQ- 

9,Q 

U163 

PG060 
PG 061 

F800 

G2D8 


ADQ 

RCODE 

015 4 

P 0 0 6 2 

C622 


LDA- 

(ZERO ) , Q 

015 5 

Pu 063 

go 11 


SUB- 

NZERO-1 

015 6 

P 0 0 64 

0111 


SAN 

A5---1 

0157 

P0G65 

18 51 


JMP^ 

F 

0158 

D 0 0 6 6 
P0067 

E8 00 
0202 

A5 

LDQ 

RCDDE 

0169 

P0068 

CA04 


LDA» 

REQTB, Q 

0170 

P0069 

AOOD 


AND- 

NZERO-5 

0171 

PG06A 

0822 


TRA 

Q 

0172 

0173 

P006B 

lAOl 


JMP^ 

REQTB, Q 


SAVE REQUEST CODE 


M73Q0156 


ILLEGAL REQUEST SIGN = 1 
GO GIVE J02 MESSAGE 
ADDR OF EX. CORE TABLE 
ADDR OF RCTV TABLE IN MONI 
ADD INDEX TO PROCESSOR 


M730Q157 
M7300158 
M7300159 
M730016C 
^^HSOS 4.0M7300161 
^^MSOS 4.0M7300162 
^•^MSDS 4.0M73GQi63 


GET ADDR OF REQUEST RPOCESSOR 

NO PROCESSOR - ILLEGAL 
GET INDEX TO REQTB 


^^MSOS H.GM7300164 
M73001&5 
N733Gi66 
M73001&7 
^^MSOS 4. OH730 0168 


PICK UP DISTANCE TO ROUTINE »^MSOS 4.0M73Q0169 
MASK OFF REQUEST LENGTH AND THRO IND M730G170 
MOVE DISTANCE TO ROUTINE TO Q M7300171 

FOR THIS MONITOR CALL M73uG173 
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QI77 




THIS 

TABLE IS INDEXED BY REQUEST CODE. 

IT 



M730Q177 

0178 



¥ 

CONTAINS THE LENGTH OF THE PARAMETER LIST IN THE 


’ 

M730 0 178 

0179 





♦ UPPER 4 BITS 

AND THE DISTANCE TO 


M7300179 

QIBQ 




PROCESSORS IN BITS 0-10. 




M7300 180 

0181 



if- 

BIT 

11=1 FOR REQUESTS WHICH ARE STACKED 

BUT 



M7300131 

0132 




NOT 

THREADED . 




M730fll82 

013:* 

P006C 

Q0 4A 

REQT3 

AOC 

F-REQTB 




M73U0184 

0135 

P0G6D 

60 68 


AOC 

Y-REQTB+S60CO READ 

1 



M730 018 5 

013 6 

P006E 

606B 


ADC 

y-RFQTB+$6QD0 WRITE 

2 



M7300186 

J187 

PQu&F 

2020 


ADC 

8B-REQTB+52C 0 0 STATUS 

3 

^^MSOS 


0M7300187 

0138 

P0Q7a 

60 6B 


ADC 

Y-REQTB +$6000 FREAD 

4 



M7300188 

0139 

P0071 

1020 


AOC 

BB-REQTB+$1000 EXIT 

5 

=^^^MSOS 


OM7300189 

0193 

P0072 

60 6B 


ADC 

Y-REQTB+SoQQQ FWRITE 

6 



M730819Q 

0191 

P00 73 

10 20 


ADC 

BB-REQTB+$1Q0 0 LOADER 

7 

^^MSOS 


uM7300191 

0192 

P00 7A 

3 8 7A 


AOC 

X-REQTB +$38u0 TIMER 

8 

^^MSOS 

4* 

CM73U0192 

ui93 

PO 075 

2 8 7A 


ADC 

X-REQT8 +$2800 SCHDLE 

9 



M7300193 

019-+ 

P0076 

0 0 4A 


ADC 

F-REQTB SPACE 

10 



H7300194 

0195 

P0077 

10 20 


ADC 

8B-REQTB+$1000 CORE 

11 

»^MSOS 

4. 

0M7300195 

019 6 

P0C78 

0 0 4A 


ADC 

F-REQTB RELEAS 

12 



M73D0196 

0197 

P00 79 

AGC5 


ADC 

(Z-REQTB+$20u0) GTFILE 

13 

»+MSOS 

4 • 

0M7300197 

0198 

P0Q7A 

50D5 


ADC 

W-REQT3 +$50GQ TAPE 

14 



H73Q0198 

0199 

PC D7B 

00 :-A 


ADC 

F-REQTB 

15 

^-MSOS 

4 « 

OM730 0 199 

C20C 

PQD7C 

IGIC 


ADC 

IND-REQTB+$100G PARTI INDIR 

16 

^^MSOS 

4. 

0H730020C 

020 1 

P0u7D 

0 0 4A 


ADC 

F-REQTB PARTITIONED CORE 

17 

»*MSOS 

4 • 

0M73U0201 

02 0 2 

Pu 07E 

0 0 AA 


ADC 

F-REQTB DIR. SCHDLE 

18 

^^MSOS 

f. 

« 

0M73Q0 202 


0 2 3 4 



¥■ 

THE 

FOLLOWING LOCATIONS ARt 

USED 

FOR 

STORING 

M73002Q4 

020 5 




APPLICABLE PARAMETERS UPON 

ENTRY 

TO 

PROTECT 

M7300205 

0206 

P0G7F 

0 0 0 0 

SAVA 

NUM 

0 




M73Q 0 206 

l2Q 7 

PQ080 

0 0 0 0 

SAVI 

NUM 

a 




M7330207 

0 23 5 

PQ081 

0 0 0 0 

SAVPR 

NUM 

Q 




M73Q 0208 

02 0 9 

PCC82 

00 GO 

PTR 

NUM 

0 




M73002G9 

0210 

P0083 

■3 0 00 

PCELL 

NUM 

0 




M730 0210 

0211 

P0 08-+ 

0 0 0 0 

PTRS 

NUM 

0 




M7300211 

0212 

P0 085 

uODO 

RETURN 

NUM 

a 




M7330212 

0213 

0214 

P0C86 

GOOD 

INDIR 

NUM 

0 




H730C1 213 

P0 087 

OOOO 

SAVQ 

NUM 

0 




M7300214 
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( ') 



0216 

P00 88 

E8 F9 

IND 

LOQ^ 

PTR 

PART 

1 INOIR REQ. 


0 217 

PO u 89 

C201 


LDA- 

i,a 

PICK 

UP LIST POINTER 

(^) 

0218 

PO 08A 

0 C02 


ENQ 

2 




C219 

P0u8B 

13B0 


JMP*^ 

AQ3 

RESET 

PTR 


0220 

P0 08C 

C8F8 

BB 

LDA» 

RETURN 




Q221 

P0 080 

68F4 


STA^^ 

PTR 




O 


o 

0223 



V- 

THIS 

IS THE EXIT 

TO A PRESET ENTRY POINT. 

0223 

P0C6E 

C8F2 

B 

LD A^ 

SA^3R 



0226 

P0 08F 

AOil 


AND- 

LPM5K+1 5 


1 

0 22 ? 

P0090 

0101 


SAZ 

Bl-^-1 



0 2 28 

P0091 

1800 


JMP'’- 

84 



0 2 2 9 

POO 92 

C8FG 

B1 

LOA^ 

PCElL 

SAVE THE HARK 


023 0 

P0093 

6820 


STA^ 

APCELL 


o 

0231 

P0094 

G8ED 


LDA^ 

PTR 


023 2 

PO G95 

6810 


STA^ 

APTR 



023 3 

P0C96 

5817 


RTJ^ 

DOWMO 

GO TO LEVEL 0 


025 4 

P0 097 

681A 


STA^ 

ASfl VA 

ALL REGISTERS ARE RESTORED 

\ 

0 2 5 3 

PG09a 

C81A 


LDA^ 

APTR 



o 0 O 

PO 099 

050 0 


IIN 

0 



0 2 3 7 

P0 09A 

6C19 


STA^ 

(APCELL ) 

RESTORE THE MARK 


0238 

P0Q9B 

D8 18 


RAO^ 

APCELL 


o 

0 23 9 

P0G9C 

C815 


LDA^- 

ASAVA 

RESTORE. A REG. 

t> 2 4 0 

P0 0 9D 

1C16 


JHP»- 

(APCELL ) 

JUMP TO PRESET 


0 241 

PO 0 9E 

C8E1 

84 

LDA^ 

SAVI 

RESTORE I 


0242 

P0G9F 

60FF 


STA- 

I 



0 245 

POuAO 

OlAO 


sov 

0 

CLEAR OVERFLOW 


0244 

PGCAi 

C80F 


LOA-'^ 

SAVPR 



0245 

P00A2 

E4E9 


LDQ- 

(SE9) 

65K 


0 2 4c- 

PO 0A3 

01 51 


SQN 

1 


o 

0247 

P 0 0 A4 

C42B 


LDA- 

CCNOTE) 


0248 

PGCA5 

80 32 


ADD- 

ONE3IT+ 15 

RESTORE OVERFLOW 


02 49 

P00A6 

£8E0 


LDQ» 

SAVQ 

RESTORE Q 


0250 

POOA7 

C3DA 


LDA^ 

PTR 



0251 

P00A8 

050 0 


IIN 

0 


025 2 

P00A9 

6CD9 


STA^ 

(P3ELL) 

RESTORE THE MARK 


0253 

PQ OAA 

0808 


RAO^ 

PCE_L 



0? 54 

POCAB 

C3D3 


LDA^ 

SAVA 


r'3 

H,*-* 

0255 

POOAC 

1CD6 


JMP^ 

(PCELL) 

JUMP TO PRESET 

Q 2 5 6 

POGAO 

0 0 0 D 

DOWN] 

NUM 

0 



0 2 5 ?’ 

POO AE 

E8FE 


LDQ^ 

DOWMO 

RETURN ADDREDS 


0258 

POuAF 

18 0 0 


JMP 

HIB 


o 


PGOBO 

OlEB 





0259 

PGOBl 

0 0 0 0 

ASAVA 

NUM 

0 



0 2 5 0 

P00B2 

0 0 0 0 

APTR 

NUM 

0 



Q261 

P00B3 

00 GO 

APCELL 

NUM 

0 



O 


o 





o 

^^HSOS 4. OM7300216 
»^MS0S 4.0M73QG217 

-^HSOS 4.yM730Q218 r-', 

^^HSOS 4.0M7300219 
M7330220 
H73G 0221 

O 


H7300223 


H73Q0225 
’f^HSOS 4.0M7300226 
H7300227 
M73Q 0228 
^^HSOS 4.GM7300229 
^^^MSOS 4.0M7300 230 
^^MSOS H.GM7300231 
^^HSOS ii.aM73Q0232 
^^MSOS 4.QM7300233 
»^MSOS 4.0M7300234 
='-^MSOS 4.GM730 0235 
-^MSOS ‘r. 0M7300 236 
^^MSOS 4.0M7300237 
»^MSOS 4.GH7300236 
^^MSOS 4. 0M733 0239 
^<^'MS0S 4.UM7300240 
^^MSOS 4. GM7300241 
*^MSOS 4.GM73GG242 
^^MSOS 4. uM7300243 
^^^MSOS 4. 0M73D 0244 
»»MSOS 4.8M7300245 
M7300246 
M7300247 
^^MSOS 4.0M73a0248 
^^HSOS 4.0M7330249 
^^MSOS H.UM7300250 
**HSQS 4. 0M73G0251 
^^MSOS 4.QM7300252 
^^MSOS 4.UM73GD253 
»^HSOS 4.0M73G0254 
«-^MSOS 4. GM7300255 
»^HSOS 4.GM730Q256 
»^MSOS 4. CM73ii0257 
^^MSOS 4.0M73QQ258 

^^MSOS 4.QM7300259 
»^MSOS 4.0M73UU2B0 
’^^HSOS 4.QM7300 261 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



UPROTK 
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date; 01/27/99 


G2o4 
0255 
0 2 5 6 
025 7 
0258 


02 59 

PD084 

GCOl 


0 27 0 

P00B5 

1802 


0271 

P00B6 

CC02 


•32 7 2 


0 0 B7 

P 

0 2 73 

P00B7 

0400 

X 


P 0QB8 

7FFF 

X 

0 2 r 4 
02 7 '3 




GETS 

P0-uB9 

481C 


027 7 

pocba 

CO 00 



PD08B 

0 42 0 


0 2 7 8 

PDOBG 

UCUO 


0 2 79 

PQOBD 

30 0 0 



PO QBE 

0 0 60 


0280 

PCOBF 

EO E8 


0 23 1 

PGuCa 

F816 


0282 

POflCl 

0006 


023 3 

P00C2 

8622 


0 2 8 4 
02 3 5 
02 36 
023 7 
0288 

P0QC3 

6809 


P0OC4 

5 4F4 


D2B9 

P00C5 

0912 


0 29 0 

P00C6 

OOGC 


0291 

P0QC7 

0 00 0 


0232 

P00C8 

08C2 


0293 

PO 0C9 

GoOO 


b 2 9 “t 

POOGA 

01F3 


0295 

PO OCB 

D 0 00 


0296 

PGOCC 

OC 00 


029 7 

PDCCO 

C8 F9 


0298 

POCCE 

ai 01 


0 2 99 

POOCF 

18FD 


030 G 

PuODO 

0173 


03 0 1 

POODl 

E8 04 


0 30 2 

P0GD2 

1800 



PO u D3 

Q1E5 


030 3 

PD0D4 

18EF 


030 ^ 

POG05 

0 0 0 0 


0 30 5 

PQQ06 

7FFF 

X 


E 


V- 

GET 


THIS ROUTINE HANDLES THE BRINGING IN 
OF THE ERROR PROCESSOR AND J8KILL 
IF Q IS POSITIVE THE CONTENTS OF 0 EQUALS 
THE ERROR CODE 

IF Q IS negative JBKILL HAS BEEN REQUEbTtD 

ENQ JOl ENTER HERE TO GET JOl MESSAGE 

JMP-'^ FI 

ENQ J02 ENTER HERE TO GET J02 MESSAGE 

EQU FK’^) 

RAO JBCNEG KILL THE JOB 

ENTER THE ROUTINE HERE TO PROCESS OTHER 
ERRORS WITH FORMAT JOX OR TO BRING IN JBKILL 
3TQ* GETTEM SAVE ERROR CODE OR JBKILL FLAG 

LDA =XPRTEND-PRT FIND THE LENGTH OF PROTEC WHICH 




ENQ 0 
DVI =N95 

LDQ- $EB 
AOQ^ PROTEN 
INQ 6 

ADD- (ZERO),Q 
STA^ GETLSB 
GO AND READ THE 
INTO CORE. THEY 
AT 'AREA'- 


REQST 

RTJ- 

{$F4) 

GETR 

NUM 

$0912 


ADC 

0 

THREAD 

HUM 

0 


ADC 

MA3LU 


ADC 

BUFF 


ADC 

AREA-GETR 

GET MS B 

NUM 

0 

GETLSB 

NUM 

0 

CHKTHR 

LDA^ 

T BREAD 


SA Z 

GETC 


JMP* 

CHKTHR 

GETC 

SQM 

GETERR-^- 


LDQ^ 

GETTEM 


JMP 

AREA 

GETERR 

JMP^ 

GETR-1 

GETTEM 

NUM 

0 

PROTEN 

ADC 

PRO TEC 


IS READ INTO CORE INITIALLY 
CONVERT THE LENGTH TO SECTORS 

GET THE SECTOR WHERE PROTEC IS 
LOCATED FROM THE SYSTEM DIRECTORY 
AND ADO THE LENGTH OF PROTEC TO IT 
THIS VALUE IS THE ADDRESS TO READ 
THE ERROR PROCESSOR AND JBKILL FROM 
ERROR PROCESSOR AND JBKILL 
WILL OVERLAY PROTEC STARTING 


COMPLETION 


IF THREAD IS BUSY , HANG 


IF DISK ERROR RETRY THE READ 
NO ERROR ON READ. RESTORE Q 
AND JUMP TO overlay 


M733 026A 
M730Q265 
M730 0266 
M7300267 
M730 0268 
N730 0269 
M7300270 
H7330271 
M730 0272 
M7300273 

M73 0 0 27 4 
M75 j 0 275 
M73u0 276 
M7300277 

M73j G 278 
M730Q 279 


M750 0 280 
H7300281 
M730G282 
M7300283 
M730Q284 
M733 0285 
M7300286 
M7300237 
M7300288 
M7300289 


M73QQ292 
M7330293 
M733 0294 
M7300295 
M73QC296 

115 ^ 4324 ^^*’^^'^*^^ 

M7300298 

M73Q0299 


M73Q 0301 
M73 3 0 30 2 
M730 030 3 


UPROTK 


DATEi Oi/27/99 


PAGE 10 


Q 


03 Q 7 
0 30 8 
0309 


THIS IS A CONTROL ROUTINE USED FOR READ TYPE 
» REQUESTS. IT CAUSES UNPACKING AND LEGALITY 

^ CHECKING OF ALL PARAMETERS. 


M730 0 30 5 
M733 0 3G6 
M73GU307 


o 


0311 

P00D7 

587C 

Y 

RTJ^ 

G 

0 312 

PCi GDd 

5800 


RTJ 

J 


P0GD9 

0239 


RTJ 


0313 

POGDA 

5800 


L 


PO ODB 

0260 




051 A 

PCODC 

5800 

Y2 

RTJ 

H 


POuDD 

0191 




0315 

POODE 

GOFF 


LDA- 

I 

0315 

POuOF 

09 01 


INA 

1 

0317 

POOEu 

0C02 


ENQ 

2 

0318 

PDOEl 

6EA0 


STA^ 

(PTR) 

0319 

P0oE2 

D40G 

X 

RAO 

UN? 10 


P0GE3 

7FFF 

X 



0 3 2 0 

PQ0E4 

18GQ 

Y1 

JMP 

HH 


PO 0E5 

01A4 





GO MOVE REQUEST TO PROTECT STACK 
CHECK LU, S 

CHECK N,S+N, READ/WRITE, ETC 
CHECK RETURN ADDRESS 

SET CALLER THREAD NON ZERO 
SET UNPROTECTED I/O SWITCH 

GO HAKE THE REQUEST AGAIN 


H/3 0 0 30 9 
M730u3i0 

M730U 311 

M73 0 0 312 

M730D313 
M730 u 31 A 
M7300315 
M730 0316 
M73G0317 

H73Q0318 


o 

o 

o 


o 

o 

o 

o 

o 

c 

o 


o 


UPROTK 


P(\GE 11 


DATES 01/27/99 


03 23 
032 A 
032 5 




THIS IS EMTERREO FOR SCHDLE REQUESTS AND OTHERS 
WHICH AR~ STACKED BUT NOT CHECKED PAST PRIORITY 
AND COMPLETION ADDRESS. 


M730 0 321 
M7 30 0322 
M73C0323 


05 2 7 

PQOEfc 

5860 


X 

03 28 

P00E7 

5800 




P0QE8 

0186 



0329 

P00E9 

C800 




POGEA 

0 2 4F 



0 3 3 G 

PO GEB 

09F7 



0331 

POO EC 

0101 



0332 

PQOEO 

1822 



03 33 

PflOEE 

E893 


XI 

C334 

PGOEF 

C400 

X 



PflOFO 

7FFF 

X 


G 3 3 5 

PQOFl 

G1C6 



033 6 

P00F2 

C622 



033 7 

P00F3 

A 0 G A 



033 8 

PD OF- 

A016 



0 0 3 9 

Pu OF 5 

0822 



C 3 4 G 

PQ CF6 

ODCE 



0341 

PGDF7 

0 1 71 



£5 42 

P00F8 

IS BD 


TOF 

0 3 43 

PCCF9 

81 01 



0344 

POOFA 

6101 



0 3 45 

POuFB 

18 23 


ATEX 

0546 

POOFC 

GOOD 


0 34 7 

POOFD 

C8FE 



0348 

PC QFE 

61 09 



034? 

PQ OFF 

0CG3 



0 3 50 

POIGQ 

CAlA 


X14 

0351 

POlOl 

6305 



2 3 5 2 

PO 102 

0 1 42 



0 5 5 3 

P01D3 

GDFE 



035 4 

PG1G4 

18FB 



0 3 5 5 

PQ105 

GOFF 


X15 

0 3 5 6 

P010 6 

0 9 01 



0 3 5 7 

PulO 7 

61 04 



0358 

P0iG8 

0 9 04 



0359 

P01G9 

6102 



03 5 0 

PolU A 

£ 8 00 




POlOB 

FF7B 



0351 

P 0 1 0 C 

0 40 G 

X 

X16 


PGIOD 

7FFF 

X 


03 52 

PO lOE 

18D5 



0 3 63 

POlOF 

C844 


X2 

0 3 5 4 

poiie 

80 00 


X3 


POill 

0 03R 



0355 

PQ112 

6102 



0 3 5 5 

P0113 

C8G0 




P0114 

FF72 



0 3 5 7 

P0115 

6103 




RTJ'^ G 
RTJ H 


CHECK RETURN ADDRESS 


M7300325 
M733 0 326 


LDA RCODE 


M73U 0327 


INA 
SAZ 
JMP^ 
LDO» 
LDA + 


-8 

Xl >^-1 


X2 

PTR 

TMRTYP 


IF IT IS A TIMER REQUEST 
MOVE TIMER UNITS TO STACK 
AND GO TO EXIT ROUTINE. 


0 SAYS NO TIMER IN SYSTEM 


M7300328 
M73Q0329 
M730033U 
M? 33 0 331 
H7300 332 


SAZ 

TOF 

LDA- 

(ZERO),Q 

AND- 

NZERO-3 

AND- 

NZERO+4 

TRA 

Q 

INQ 

-$31 

SQM 

1 

JHP^ 

F 

AOD- 

1,1 

STA- 

1,1 

JMP* 

TEXP 

ADC 

0 

LDA^ 

ATEXP 

STA- 

9,1 

ENQ 

3 

LDA* 

TIME,Q 

STA- 

5 , B 

SQZ 

X15-^-i 

INQ 

-1 

JMP^ 

X14 

LDA- 

I 

INA 

1 

STA- 

4,1 

INA 

4 

STA- 

2,1 

LOu 

SAVQ 


DO NOT ALLOW REQUEST 
JUST GO TO EXIT 
ROUTINE. 


IS UNITS PARAMETER=Qfl,2»3 
SKIP IF LEGAL REQUEST 


GET ADDRESS OF TIMER EXPIRATION 


ADDRESS OF TIMER EXP RT N 
PLACE IN TIMER STACK ENTRY 
MDWF A INSTRUCTIONS ONTO STACK 


SAVE SLOT LOG. IN SLOT 
BUMP I FOR COMPLETION 

SET TIMER COMPLETION 


M73C0333 
^^HSOS 4. 0M730 0334 
M7 33 0 33 5 
M730Q336 
»*MSOS 4. DM730Q 337 
^H.. u/77^18o7 M73J 0 338 
^^MSOS 4.GM73J0339 
M730034G 
M730G341 
M730 0 342 
M7300343 
M73Q0344 
M730 u 345 
M73G 0346 
M73DG347 
M73Q0348 
M7 3 0 0 349 
M733 0350 
H7300351 
N733Q 352 
H7300353 
M73G 0354 
M73u 0 35 5 
H730 0356 
M73Q0357 
^^MSOS 4. GM7300 358 


RAO+ UNPTIM INCREflENT TIMER REQ COUNTER 


M73Q0359 


JMP^‘ Y1 
L D A^ G 

ADD =X3GHCMP-X-1 


GO TO MAKE REQUEST AGAIN 
CALCULATE ABS AODR FOR SCHDLE 


M730036Q 
^^MSOS 4.0M7300361 
^-MSOS 4.0M7300362 


STA- 2,1 SAVE IN PROTECT STACK 

LDA SAVQ 

STA- 3,1 USERS PARAMETER TO SLOT 


M73u 0363 
^^MSOS 4.JM7300364 


M7300565 



M F3 Q u 3&fa 
M/'3D0367 

^h.G/77^1868 M73Q0368 

^4.0/77»1868 M7300369 

M7300370 


M73Q0372 
M73D0373 
M7300374 
M733Q375 
H73Q037& 
M730Q377 
M73Q Q378 
M7300379 
H7300 38Q 


M73GG 382 
M73C0383 


61’'‘1298 M730 0 385 

^?^HSOS 0M733 0386 
^^MSOS 4.0M73D0387 
^^HSOS 4»0M730O3B8 
H7300389 
M73G 0390 
M7300 391 
M73u 0 392 

M7300393 
M730Q 394 
M73j 0 39 5 
M730 0395 
M730 0397 
M73a0 398 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 




UFROTK 
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date: 01/27/99 




040 2 


THIS IS THE PROCESSOR FOR GTFILE REQUESTS. 



o 




0404 POISI 5822 Z 

0405 PG132 C622 

O^tDo P0133 QFCl 

040 1 PG 13^ 0 126 

0408 P0135 ClOl 

0-,C9 PG15 6 BQ31 

0410 P0137 6101 

Gh-11 P0138 5800 Z4 

P0139 01D9 
0412 PQ13A 18A1 

u-^13 P0138 E0E9 Z3 

0-rl4 P013G E2GA 

0-tl5 P013D 0151 

0416 PQ13E 18F9 

0^17 P013F 1800 ZO 

P0140 FF75 


RTJ^f G 

LDA- {ZERO)»Q 
ALS 1 
SAP Z3 
LDA- 1,1 
EOR- $31 
STA- 1,1 
RTJ J 

JMP^ Y2 
LDQ- $E9 
LDQ- 10, Q 
SQN ZQ 
JMP- Z4 
JMP F 


GO HOVE REQUEST TO PROTECT STACK 
D BIT SET 


YES GET STACKED REQUEST 
D BIT 

RESET FOR GTFILE 
CHECK LU'S , S 

CONTINUE PROCESSING 


UNPROTECTED CORE FLAG 

cSbno TP iiMPPnTFP.Tm TM PART 1 AND 


REQUEST ERROR 


o 



o 

o 

o 

o 

o 

c 


M7300400 



UPROTK 
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DATE 


01/27/99 


0 4 2 0 




THE FOLLOWING 

PROCESSES TAPE MOTION CONTROL REQUESTS. 


M7300418 

0 422 

PQ141 

5812 

W 

RTJ^ 

G 

GO MOVE REQUEST TO PROTECT 

STACK 


M73 0 0 42 0 

0 42 3 

P0142 

5800 


RTJ 

CHKLU 

CHECK LU 



M73 00421 


P014 3 

QOFO 








0424 

P0144 

0 AOl 


ENA 

1 

SEE IF 


»»MSOS 

4 . 0M7300 422 

042 9 

PG149 

A203 


AND- 

8 1 D 

UNPROTECTED I/O IS ALLOWED 



M7313 0423 

0426 

P0146 

01 02 


SAZ 

NEWTAP 

A=0 IF IT IS ALLOWED 



M730Q424 

0427 

PO 147 

OCO 8 

W3A 

ENQ 

JOS 

NO UNPROTECTED I/O ALLOWED 



M733 0 -+25 

0428 

PC 148 

18 18 


JHP-^ 

G24 

GO OUTPUT J08 MESSAGE 



M730Q 426 

0429 

P0149 

El 05 

NEWTA P 

LDQ- 

5 » I 

CHECK IF MOTION 



M73Q0 42 7 

Dh3G 

P014A 

0177 


SQH 

W7 

NO 



M730 0 t2S 

D431 

P014B 

C O 00 

W6 

LDA 

=N$7774 

CHECK TAPE MOTION FUNCTION 

TO 


M7 3 0 0 42 9 


P014C 

7774 








0432 

P014D 

9105 


SUB- 

5 ,r 

SEE IF THEY ARE ALL LEGAL 



M739 0 43G 

0433 

PQ 14E 

AO 00 


AND 

=N58888 




M73 0 0 431 


PQ14F 

8888 








0 43 4 

PG190 

0101 


SAZ 

W7-^^-l 

A=a THEY ARE ALL LEGAL 



M73 3 Q432 

0439 

P0151 

18 ED 


JMP^ 

ZO 

GO OUTPUT J02 MESSAGE 



M7300 433 

0436 

P0152 

1889 

W7 

JMP^ 

Y2 

CONTINUE AS A READ TYPE 


^^f-MSOS 

4. OM73Q 0 43H 


UPROTK 


DATE! 01/27/99 


THS FOLLOWING ROJTIME IS ENTERRED ONLY FOR 
REQUESTS WHOSE PARAMETER LISTS ARE MOVED TO 
PROTECTED GORE FOR EXECUTION. 


P0153 
P015h 
PQIG 5 
P0156 
P015 7 
PQ15 8 
P0159 
P015A 


OQOO 
DC AO 
CA72 
0123 
0DF2 
0172 
18FB 
181A 


0 0 
ENQ SIZE 
LDA^ STACKtQ 


SAP Gi 
INQ -1 
SQM G2 
JMP^ Gl 
JMP^ G3 


G15-^-l 

-13 

G2-^-l 


DETERMINE IF MAXIMUM NO OF 
REQUESTS ARE STACKED 
A=- IF NO ROOM AVAILABLE 
Q=- IF NO STACK SPACE AVAILABLE 
GO CONTINUE CHECKING SLOTS 
OPEN SLOT MOVE REQUEST 


NO SPACE - REQUEST MUST WAIT IF CALLER WAS 
AT LEVEL ZERO - IF HE WAS AT LhVtL ONE^ THE 
JOB MUST BE BOMBED BECAUSE THERE IS NO 
WAY FOR AN EMPTY TO OCCUR IN THE STACK WHILE 
OPERATING AT LEVEL ONE. 


O 

o 

o 

o 


0-f?9 P0158 C80Q G2 

P015C FF2A 
O-foC P015D AOli 

04Dl P015E 0103 

0ir52 P015F UC05 

0953 P0160 1800 G29 

P0161 FF55 

0h54 P0162 CLE9 G25 

0wo5 P0163 01Q2 

0t66 PG164 0 8 ‘tM’ 

0457 P0165 0102 

0-^58 P0166 C42B G26 

0459 PQ167 A021 

Q47L P0168 8800 

P0169 FFIA 

0471 P016A D9FE 

0472 POlbB 0428 

Q473 POl&C 1800 

P016D 0136 


LDA SAVPR 

AND- LPH3K+15 
SAZ G25-^-i 
END JOB 
JMP FI 

LDA- ($E9) 

SAZ G25 
CLR A 
SAZ 2 
LDA- (CNQTE) 
AND- NZERO+15 
ADD PTRS 

INA -1 
STA- (CN3TE) 
JMP K 


CHECK PRIORITY TO SEE IF 1 OR 0 


A=0 IF PRIORITY IS ZERO 
PRIORITY IS NOT ZERO GIVE JOo 
MESSAGE 

IF MODE IS 65K 

DO NOT TRY TO SAVE OVERFLOW FROM 
INT. TRAP 

FOR 32K SAVE OV AND UNPRO. RETURN 
IN LOCATION 100 


RETURN TO UNPROTECTED TO MAKE THE 
REQUEST AGAIN 


O 



0476 





0477 




o 

u-f/9 

PO 16E 

58 Gi 

G3 


0 48 u 

PO 16F 

0 0 0 0 

G8 

o 

0431 

PO 17u 

0OF3 


0432 

PC171 

F8FD 



0433 

P0172 

OD 53 


o 





c 






AN OPEN SLOT "OR STACKING IS AVAILABLE. 
INDEX TO IT IS IN Q. 


RTJ^> G8 

NUM 0 

INQ -12 

ADQ^'^ G8 

INQ STACK-G8 


FIND WHERE WE ARE 

ADJUST Q TO GET TOP OF SLOT 
PUT SLOT ADDRESS IN I 


o 



M730 Q h38 
M730 0 439 
M7300 440 

O 


M730 0 442 
H73QQ443 
M730 0 444 
M73D0445 

O 


*^MSOS 

4.CH733044b 

O 


M730 0 447 
M75 j 0 44 3 
M7300 449 



M730Q451 
M73Q 0 452 

O 


M73Q0453 
M733 D 454 
M73Q0 455 

■ 0 


M73Q0 457 


^^MSOS 

4. 0M73QQ45S 

o 


M7300459 
M73Q0460 
M730 0 461 

C) 

^^MSOS 

4. 0M7300462 


^^MSOS 

4. 6M730Q 463 


^^MSOS 

4. GM730Q 464 

o 

^^MSOS 

4. OM730 0465 


5^^MSOS 

4. 0M73DG46b 



M73D0 467 
M7300468 

' o 


M73U04&9 
M73u 0 470 
M7300 471 

Q 



O 


M730 0474 
M733 0 475 

r-\ 


M730 0-+77 
M73Q 0 478 

’^^MSOS 4.0M7300479 Q 

H730C480 ^ 

M730 0481 

c 


o 


UPROTK 
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date: 01/27/99 



G4B^ 

P0173 

40FF 



STQ- 

I 


0 48 5 

PQ174 

E8 00 



LDQ 

PTR 

c 


P0175 

FFOC 





0 4 3 6 

P0176 

C2G2 



LDA- 

2,Q 


0t37 

PG177 

6103 



STA- 

3,1 


0^88 

PO 178 

G109 



SAZ 

G4-'^-l 

o 

0-t39 

P0179 

E800 



LDQ 

RCOGE 


P017A 

OIBF 





0490 

P017B 

CA DO 



LDA 

REQTB, Q 



P017C 

FEEF 





o 

0491 

P017D 

A02E 



AND- 

ONEBIT+11 

0492 

P017E 

E8 GO 



LDQ 

PTR 



P017F 

FF02 






0493 

P018G 

0111 



SAN 

G4-^-l 

o 

0 49^ 

P0181 

18D9 



JMP’^ 

G2 

0 4-95 

P0182 

C201 


G4 

LDA- 

1,Q 


0 4 9 6 

PG183 

0102 



SAZ 

GSl-'-^-l 


0497 

P018-. 

5 4 BE 


G5 

RTJ- 

(CABS ) 

o 

0498 

P0185 

0314 



TRQ 

A 

0499 

Pfll8o 

6522 


G51 

3TA- 

( ZERO) , I 


0 5 0 0 

P0187 

QlOF 



SAZ 

G7-’^-l 


0 33 1 

P0188 

E0F7 



LOQ- 

TOP MON 

/' '\ 

0502 

P0189 

09FE 



INA 

-1 

■■J 

050 3 

PG18A 

5 4 0 0 

X 


RTJ 

C0MPV4 



P018B 

0 0 42 

X 





053 4 


018B 

p 


EQU 

EQC (^-1 ) 

o 

0 5 0 5 

PQ18C 

ul02 



SAZ 

G6 

05 0 6 

P018D 

090 0 



INA 

0 


0 5 3 7 

P018E 

01 07 



SAZ 

655 


050 8 

P018F 

C522 


G6 

LDA- 

(ZERO) , I 


0 5 0 9 

P0190 

E0F6 



LDQ- 

80TQP 


0513 

P0191 

0901 



INA 

1 


0511 

P0192 

5CF8 



RTJ» 

(EQC) 


0512 

P0193 

D1Q3 



SAZ 

67 


0513 

P019 4 

8 90 0 



INA 

0 


0 514 

P019 5 

0101 



SAZ 

G7 


0 515 

P0196 

1 8A8 


Gb5 

JMP- 

ZG 


0 5 1 o 

PQ197 

C800 


G7 

LDA 

RCODE 

o 


P0198 

fllAl 





0517 

P0199 

0826 



TRA 

A,Q 


0 p 1 8 

P019A 

GFC9 



ALS 

9 


0519 

P019B 

0902 



INA 

2 

o 

’ 0520 

PC19C 

EAOO 



LDQ, 

REQTB, Q 


P019D 

FECE 






0521 

P019E 

OFFO 



LLS 

16 


0 52 2 

P019F 

A02E 



AND- 

ONEBIT+il 


0 523 

P01A3 

0101 



SAZ 

1 


0 5 2 4 

POlAl 

ODFE 



INQ 

-1 


0 p 2 5 

PulAE 

4101 



STQ- 

1,1 


0526 

P01A3 

C8 CB 



LDA^ 

G8 

o 

0527 

P01A4 

8 0 0 0 



ADD 

=XCCP“G8 


PO 1A5 

0099 






052 8 

P01A6 

6102 



STA- 

2,1 


o 


r) 


GET THREAD 

CLEAR THREAD IN STACKED REQ. 
THREAD CHECK MOT VALID FOR 
SOME REQUESTS 


ALREADY THREADED 
CHECK THE COMPLETION ADDRESS 
TO SEE IF IT IS ZERO OR 
A3S0LUTIZE COMPLETION ADDR. 

PUT C IN STACK 
NO COMPLETION ADDRESS 
CHECK THE COMPLETION ADDRESS TO 
SEE IF IT IS IN PROTECTED CORE 


IF IT IS REQUEST IS ILLEGAL 


GO OUTPUT J02 MESSAGE 


SAVE REQUEST CODE IN Q 

UNPACK REQUEST CODE AND 

SET X=0, RP=0,CP=2 

CHECK FOR TIMER OR SCHEDULE CALL 


IF NO THREAD CHECKt IT*S TIMER OR 

NOT - COMPLETION AT LEVEL 2 

YES - COMPLETION AT LEVEL 1 

PUT WORD 1 IN STACK 

PUT COMPLETION PROCESSOR 


COMPLETION ADDRESS 


H730 0 -+32 
M73QQ 483 

M733 0 484 
M73Q 0h86 
H733 0 •+86 
M73] 0 487 

M730 0 488 

H73G0h89 

M7300490 

M73Q0 h91 
M7300 h92 
M7300493 
M73j0 494 
M730 0 495 
M733 0 496 
M73Q0497 
M7300 498 
’^^MSOS 4.0M73j 0499 
M730050C 
^^HSOS 4. QM7300501 

»^MSOS 4. 0H73Q0502 
^^MSOS 4.aM73GG5G3 
"^^MSOS 4. 0M738Q 504 
^^MSOS 4.0M73J05D5 
^»MSOS 4.QM733Q506 
^^MSOS 4. 0M73005G7 
M733 050 8 
^^MSOS 4.UM7300509 
M73i3 0510 
»^MSOS 4. QM730u511 
^^‘MSOS 4.GH7300 512 
=^^MSOS 4.0M7300513 
^^^MSOS 4.0M7300 514 

M7330515 

M7300516 

H730D517 

M7300518 

M730Q519 
SGH M730Q520 

M75G 0521 
M7300522 
M73D0523 
M7350524 
^^MSOS 4.0M7300525 


c .. 

C': 

o 

o 

o 

o 

C; 

O 

Q 

o 

o 

o 

o 

o 

o 

o 

c 


M7 30 0 52 6 


UPROTK 
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DATES 01/27/99 


o 



0 5 2 9 

P01A7 

E8 00 


LOQ 

PTR 



POl A6 

FED9 



lltl 

o 

053 0 

P01A9 

410B 


STQ- 

0531 

POIAA 

GC03 


ENQ 

3 


0532 

PO 1A8 

CE30 

G9 

LOA 

(PTR) , 



POIAC 

FEDS 



1,B 

o 

0 53 3 

POIAD 

6301 


5TA- 

0534 

POIAE 

OD 01 


INQ 

1 


0 5 3 5 

POIAF 

0 81-+ 


TRQ 

A 


0 5 3 6 

POIBQ 

Q9F5 


INA 

-10 


0537 

PuiBl 

0101 


SAZ 

GiO-^- 


0533 

PG1B2 

18F8 


JMP» 

G9 


0559 

Pu 1B3 

0 8 04 

GiO 

SET 

A 


0 5 

P01B4 

61QC 


STA- 

12,1 


Q 5 4 1 

P01B5 

C522 


LDA- 

(ZERO) 


0 5 4 2 

P01B6 

OlOE 


SA2 

TAG? 


0 543 

P01B7 

EOF? 


LDQ- 

$F7 


0 5 4^ 

PG 1B8 

09FE 


INA 

-1 

]’ 4, 

05 4 5 

P01E9 

5CD1 


RTJ« 

(EQC) 


0 5 4 6 

POIBA 

0102 


SAZ 

TAGl 


054? 

P016B 

090 0 


INA 

0 


0 5 48 

P018C 

0106 


SAZ 

TAG3 


0549 

POIBO 

C522 

TAGl 

LDA- 

( ZERO) 


0^5 0 

POIBE 

E0F6 


LOQ- 

$F5 


0 5 51 

POIBF 

5CCB 


RTJ^^ 

(EQC) 


0552 

PQICQ 

C 1C2 


SAZ 

TAG3 

..... 

0 5 5 3 

POICI 

0 9 0 0 


INA 

0 


0 s>54 

PQ1C2 

0 102 


SAZ 

TAG? 


0555 

P01C3 

180 0 

TAG3 

JMP 

£ 



P01C4 

FEEF 


LDQ- 



0 5 5 5 

POIC 5 

ElOB 

TAG2 


0557 

P01C5 

1C8C 


JMP^ 


MOVE WORDS 4 THROUGH 10 OF 

THE REQUEST TO THE PROTECT 
STACK. 


SET THE STACK ENRRY BUSY 

USERS COMPLETION ADDRESS 

BOTTOH-1 OF UNPROTECTED 

COMPARE ADDRESSES 
WITHIN BOUNDS 
CHECK FOR -0 
BELOW LOWER LIMIT 

TGP+i OF UNPROTECTED 
COMPARE ADDRESSES 
AT TOP+1 OF UNPROTECTED 
CHECK FOR -0 
WITHIN BOUNDS 
JPOl ERROR 

REQUEST ADDRESS 


THE FOLLOWING AREA IS THE PROTECT STACK 
UPON INITIAL EXECUTION OF PROTECT THIS AREA 
IS USED TO ^LACE PARAMETERS INTO OTHER 
AREAS WHICH REQUIRE THEM. AFTER IT IS USED 
TO FIX PARAMETERS THE AREA IS CLEARED AND 
THEN BECOMES THE PROTECT STACK(TABLE) 

THIS TABLE IS USED TO STACK UNPROTECTED 
PARAMETER LISTS FOR EXECUTION. 


Q558 Pu 1C7 00 Bb 
0569 PQ1C8 QO 84 
0 573 P01C9 0 0 08 
0571 PulCA 01C7 
05 7 2 PGICB QQB9 
0573 POiCC 7FFF 
057 ^ 0107 

0575 POICO 0822 



02 

ADC 

F-3RT 


03 

ADC 

PTRS-PRT 


Oh 

ADC 

IPRGCl-PRT 


05 

ADC 

STACK-PRT 


06 

ADC 

GET-PRT 

X 

F3 

ADC 

FILE3 

P 


EQU 

STACK02) 


PRTA 

TRA 

Q 


O 


O 


O 

M7330527 



M73Q0528 

■ O 


M73Q0529 

M7300530 


M730Q 531 

O 


M7 50 0 532 
M7300 533 
M73Q0 554 



M7300535 

M73QQ536 

; o 

^--”MSOS 4. 

QM7300537 


^^^MSOS 4. 

UM7300538 


0/77^1865 

M7300539 

o 

0/77^1865 

M73Q0540 
M7300 541 
M7300 542 


N73QQ543 

■ Q' 


M730 0 544 
H7300545 
M730G546 



H7300547 

o 


M73Q0548 

M7300549 

M73QQ55G 


M/31J 0 551 



H7500552 

M7300553 


0/77^1 865 

M733 Q354 

; O 

M730 0 555 


M730Q557 
M73CQ 558 
M73QQ 559 

: O 


M73005OU 

- O 


M73QC561 
M7300 562 
H7300563 

• o 


M73005b4 


M73003&& 

M7300567 ^ O 

M7300568 

M73 00559 

M733 0570 

M7300571 , O 

M7300 572 
M7300 573 


o 


UPROTK 


DATE: 01/27/99 


PAGE 18 


0576 POICE 88F8 

0577 PGICF 64QO 
PQIDC 7FFF 

0578 POIDI 0814 

0579 POiD2 88F5 
058C P01O3 6400 

P01U4 7FFF 

0531 P0i05 0814 

0532 P01D6 38F2 
0583 P01D7 6400 

P01D8 7FFF 
0581 PQ1D9 0814 

0585 POIDA 88F0 

0586 POIDB 6400 
POIDG 7FFF 

058 7 POIDD 0814 
0588 POlDfc 88EB 
0 589 POIDF E400 
POIEO 7FFF 

0590 POIEI 620B 

0591 P01E2 OCIC 

0592 PQ1E3 GAOG 

0593 P01E4 6AE2 

0594 P01E5 DDFE 

0595 P01E6 0141 

0596 P01E7 18FG 

0597 P01E8 E400 
P01E9 7FFF 

0598 POIEA 68FD 

0599 POIEB 68FD 

GSOO POIEC 1622 
0301 0026 

050 2 00 41 

0603 POIED OOIB 




ADD'-^ 

02 

X 


STA 

LOCF 

X 


TRQ 

A 



AOD^ 

03 

X 


STA 

LPTRS 

X 


TRQ 

A 



AOD-‘ 

04 

X 


STA 

IPl 

X 


TRQ 

A 



ADD^ 

06 

X 


STA 

JKIN 

X 


TRQ 

A 



AOD^ 

05 

X 


LDQ 

TRNVEC 

X 


STA- 

11,0 



ENQ 

^-32+1 



ENA 

0 


PRTZRO 

STA» 

02,0 



INQ 

-1 



SQZ 

PRTZ-^ 



JMP- 

PRTZRO 

X 

PRTZ 

LDQ 

PRORET 

X 




POINTER TO PROTECT PROCESSOR ERROR ENTRY 


M73j 0 574 
M730 0 575 


POINTER TO PROTECT PROCESSOR'S PARAMETER 
LOCATION TO HANDLE INTERNAL INTERRUPTS 


M730 0575 
M733 0 57 7 
M730D578 

M7500579 

M730058G 

M730Q581 


FLAG TO INDICATE THAT JBKILL IS IN 


M730 0 582 
M733 0 583 
M7300534 


LOCATION OF PROTECT STACK 


M730Q585 
M733 0 586 
M73fl0587 


ZERO OUT WHAT HAS JUST EXECUTED 


GET ADDRESS TO RETURN TO AFTER 


M7300588 
M730Q589 
M730059G 
M730G591 
M730Q592 
M7300593 
M730 0 594 
M733 0 595 


STA^^ 

STA«^ 


JMP- 

EQU 

EQU 

BZS 


^-2 INITIAL FLAGS ARE SET AND 

^-2 ZERO MORE LOCATIONS 

($22), 0 RETURN 

PRTLENC ^-02) 

STLEN (13^N ) 

STX (STL EN-PRTLEN) 


M73D 0596 
M7300597 
M7300598 
M7300599 
♦*HSOS 4. GM73006G0 
M730D601 


UPROTK 


PAGE 19 


DATE! 01/27/99 


P02G8 
PQ2Q9 
P020 A 
PQ20B 
P0 2GC 
P0200 
P020E 
P0 20F 
P0210 
P0211 
PQ212 
P0218 
PQ21A 
P0215 

PG216 
PQ217 
P0213 
P0219 
PQ21A 
P021 B 
P021C 

P021D 

P021E 

P021F 

PG22Q 

PG221 

PQ222 

P0223 

P0224 

P0225 

P0225 

P0227 

P0223 

P0229 

P022A 
P022B 
PO 22C 
P022O 
P022E 


0822 

OOFD 

9400 X 

7FFF X 

0500 

C4flO X 

7FFF X 

0104 

54F4 

1302 

7FFA 

14EA 

C20C 

60FF 

G205 
AOIF 
6827 
C1G3 
AO OF 
8824 
6103 

C2Q2 
OF 49 
AO 07 
0 9F2 
0116 

C2G8 
610 6 
C2QA 

610 8 
C20B 
6109 
0 844 
6102 

C201 
0113 
0 8 ^4 
6200 
14EA 


THIS IS THE 30HPLETI0N PROCESSOR FOR ALL 
STACKED REQUESTS. IT IS ENTERRED WITH THE ADORES 
OF THE PARAMETER LIST IN A AND THE ERROR CODE 


POINTER TO STACK IN Q 
CHECK IF A SWAP IS WAITING 

CHECK SWAPON FLAG 

NOT SWAPPED 

WAIT UNTIL SWAP DONE 

ICPOOC 



IN Q. 


CCP 

TRA 

Q 


INQ 

-2 


RTJ 

SWAPGK 

CCP03 

IIN 

0 


LDA 

SWAPON 


SAZ 

CCPO 


RTJ- 

( $F4) 

CCPOOO 

ADC 

$1302 


ADC 

cc^oo-: 


JMP- 

(OISP) 

CCPO 

LDA- 

12, Q 


STA- 

I 


LDA- 

5,Q 


AND- 

NZERO + : 


STA^ 

CGTEHP 


LOA- 

3,1 


ANO- 

NZERO- 


ADD^ 

CCTEMP 


SIA- 

3,1 


LOA- 

2,Q 


ARS 

9 


AND- 

NZERO- 


INA 

-13 


SAN 

GCPl 


LDA- 

8,Q 


STA- 

6,1 


LDA- 

10,0 


STA- 

8,1 


LDA- 

11,0 


STA- 

9,1 

GCPl 

CLR 

A 


STA- 

2,1 


LDA- 

1,Q 


SAN 

CA3R3 


CLR 

A 


STA- 

13, Q 


JMP- 

CDISP) 


POINTER TO USERS REQUEST NOW IN 


MOVE V FIELD FROM STACK TO USERS REQUEST 


IF IT IS A GTFILE REQUEST 


STORE W2 BACK IN CALL 

HOVE ?"iASS STORAGE ADDRESS INTO 

USERS REQUEST 


CLEAR THREAD IN USERS REQUEST 

CHECK FOR COMPLETION IN PROTECT 
IF NO COMPLETION ADDRESS 

RELEASE STACK ENTRY 


M73D 06C4 
M73Q 0 60 5 
H7300605 
M/3Q0607 


M73G 0 60 9 
M7300610 
M7300611 

M730 0 612 
M730G513 

M730 0 614 
M73a0&15 
M7300616 
M730 0 617 
M73CDd18 
»^MSOS ‘4. UH7300619 
M733062G 
[ M7300621 

M73G 0622 
H7 30 0 623 
M730 Qo24 
M7330&25 
M730 0625 
M730 0627 
REQUEST M7300628 

M73DQ629 
M75 0 U63 0 
M73GU&31 
M73Q 0632 
M7300 633 
M730 0 63 4 
M730G635 
»^MSOS 4.i^^M7300636 
^^MSOS 4. i^'^M 7300637 
M73U 0638 
H730 0639 
M73Q 0640 
M/3GD 641 
M73D 0 642 
M73Q0643 
M73Q0&44 
H730D 645 
STK4. 0’79^1947H730C645 
M7300647 
^^MSOS 4.0H7300648 
»»HSOS 4. 0M730O649 
M730D650 


O 
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0653 




* 

RTJ- ($F4) 


0 65 4 

P022F 

5 4 F4 


CADR5 

o 

0655 

PO 230 

1301 


CARE- 

ADC $1301, 


P0231 

0 0 03 





0 6 5 6 

P0232 

14EA 



JMP- (DISP) 


065 7 

PQ233 

0 8 44 


CADR51 

CLR A 

o 

■ 0 6 5 8 

^0234 

&20D 



STA- 13, D 

0 6 5 9 

P0235 

C201 



LOA- 1,D 


0 6 6 0 
06 61 

P0 236 

6808 



STA«^ JMP 

(2) 

0662 

P0237 

C4Q0 

X 


LDA JBCNFG 


P0238 

01 2 A 

X 




0 o6 3 

P0239 

0101 



SAZ 1 


0664 

P023A 

14EA 



JMP- {DISP) 

ry 

0655 

PG23B 

C20C 



LDA- 12, Q 


0666 

P023C 

E205 



LDQ- 5,D 


0567 
066 8 

P0 23D 

ICOl 


V- 

JMP^ (JMP) 


0669 

PQ23E 

00 00 


JHP 

NUM 0 

'•■wy 

0670 

P023F 

0 0 00 


CCTEMP 

NUM 0 


SCHEDULE DOWN TO LEVEL 1 


NOW AT LEVEL 1 
RELEASE STACK ENTRY 
COMPLETION ADDRESS 


EXIT, IF JOB WAS CANCELED. 
ADDRESS OF USER IN A 
V FIELD OF USER IN Q 
RETURN TO USER IN UNPROTECTED 


M730D d51 
M73Q0 652 
M7300655 

M73GQ654 
’^^MSOS 4. 0M73G0655 
^^MSOS 4. 0M7300d5d 
v^MSOS 4, OH7300657 
M7330o58 
H7300659 
M730066Q 

M730066i 
M7300662 
M7300663 
M7300 664 

CORE AT LEVEL 1 M733 0665 

M7300666 
M73a0667 
M730 0 668 
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0 6 7 3 
0 6 7t 
^675 
Q b 7 6 
0677 
06 7 6 

0 67 9 
0 6 5 0 
063 i 
0632 
0 63 3 
0 6 8 *+ 
0635 
0 6 3 6 
0687 

06 3 8 
0689 
069 0 

069 1 
0592 

0693 

0694 
0 6 9 5 
0 6 9 6 
0o9 7 

0598 

0599 

070 0 

07 0 1 
070 2 
0 7 03 
0 / Q ^ 

0 7 0 5 

0 7 06 


P0240 

P0241 

P02-+2 

P0243 

P0244 

P0245 

P0246 

P0247 

PG248 

P0249 

P02-^A 

PD24B 

P02*+C 

PO 2‘+D 

P024E 

P02+.F 

P025Q 

P0251 

P0 252 

PG 253 

P D 25 M- 

PQ 255 

PQ 256 

P0257 

P0258 

P0259 

P025A 

P025B 

P025C 

PG250 

PQ25E 

PQ25F 

P026Q 

P0261 

P0262 

P0263 

P0264 

P0265 

P0266 


OBOO 
ElOB 
5*+BC 
0147 
0 8 54 
8400 
7FFF 
0133 
0 8 54 
0901 
0131 
1821 
C104 
A02F 
0834 
610 4 
EEF5 
C2G8 
6800 
Q19C 
0F^4 
A 0 09 
Q9F4 
QlOF 
0 9 BO 
013E 
09F5 
012F 
C2 08 
0FC5 
AO 05 
Q9FD 
0114 
D8 0Q 
FE22 
D800 
FE20 
1800 
FE75 


CHKLJ NOP 0 

LDQ- lltl 
9TJ- (LUABS) 

SQZ LUER 
TCQ A 

LOGTAB ADO LOGlA 

SAM LUE9 
TCQ A 
INA 1 
SAM 1 

LUER JMP^ LUERR 
LDA- 4,1 
AND- ONEBIT + 12 
AAQ A 
ST A- 4,1 

LDQ"^ (LOGTAB + l) ,Q 


STA 

HOLD 

ARS 


ANG- 

LPM3K + 7 

INA 

-11 

SAZ 

CKCSY 

INA 

-90+11 

SAM 

NTCSY 

INA 

-10 

SAP 

NOTCSY 

LOA- 

8,Q 

ALS 

5 

ANG- 

LPMSK+3 

INA 

-2 

SAN 

N0TM3 

RAO 

RETURN 

RAO 

RETURN 

JMP 

Y2 


0738 P0267 C204 
07 0 9 0 2 68 
071C PQ268 0112 

0711 P02o9 0804 

0712 PQ26A 6204 

0713 P026B 1C04 

0714 PQ26C 1300 
P026D FE48 


CKCSY LDA- -^,Q 
NTCSY EQU NTCSY(^) 
SAN NOTCSY 
SET A 
STA- 4,Q 

NOTCSY JMP^ (CHKLU) 
LUERR JMP F 


REQUEST ADDRESS 
ABSOLUTIZE LU 
LU. ZERO 

CHECK TO SEE IF LU LARGER THAN MAX 

YES 

NO 

IS THE LU=1 


NO PUT THE LU IN THE PROTECT STACK 


GET THE PDT ADDRESS IN Q 
SAVE WORD 8 OF PDT 


EQUIPMENT TYPE BITS 
COSY DRIVER 

CHECK FOR OCR DEVICE 
CODES 90 - 99 


YES, OCR DEVICE 

BUMP RETURN ADDRESS _ 

ONLY IF EQUIPMENT GLASS =2 


M7300671 
’'**MSOS 4.0M7300672 
M730G673 
H730 0674 
M7300675 
M730 0676 

M7300677 
M7300678 
M7300679 
M73Q0 68 0 
M7300681 
M7300682 
M7300683 
M73Q0 584 
M7300685 
M7300&8D 
H73Q 0687 
M7300688 


^^MSOS *+.0 M73G0689 
♦■'^MSOS 4.0 H73GGd90 
^*^-MSOS 4.0 M730 0o91 
M73 3 0 692 
M73Q0693 
M7300694 
M730Q695 
• M730069O 

M7300697 
M7300698 
M730Q699 
M73QQ700 
M733 0701 
M73007Q2 


INCREASE RETURN ADDRESS BY 2 


M730G703 

M730G704 


COSY FLAG ACTIVE = HOT ZERO 
SO JOBKILL WILL RESET IT'S 

RETURN 

GO OUTPUT J02 ERROR 


^^MSOS 
4^*f-MSOS 
■<f*HSOS 4 
^^MSOS 


M73007G6 
M73Q0707 
H.O M730Q7U8 
4.0 M7300709 
.1^^ M73Q0710 
4.0 M7300711 
M7330712 


C) 

o 

o 

o 

C.' 

o 



o 

o 

o 

o 

o 


UPROTK 


=>43E 2Z 



u717 

PC26E 

OBGO H 

NOP 

0 


0718 

P026F 

E800 

LDQ 

RCODE 

] \ 


P0 270 

C0C9 

LDA 

REQTSjQ 


0719 

P u 271 

CAQQ 



PD272 

FDF9 




0 7 2 0 

PG273 

AO IE 

AND- 

NZERO+12 

o 

0 721 

P0274 

0FC4 

ALS 


0 7 2 2 

P0275 

E800 

LDQ 

INOIR 



P0276 

FEOF 




0 7 23 

PC2/7 

0141 

SQZ 

o 

0 7 2 4 

P0278 

0 8 14 

TRQ 

A 

0725 

P0279 

88 GO H2 

ADO 

RETURN 



P027A 

FEOA 




0 7 2 6 

P027 B 

683C 

STA- 

SQV 

o 

0727 

P027C 

EO F6 

LOQ- 

80T3P 

0728 

P027D 

54GD X 

RTJ 

COMPV4 



P027E 

018B X 


H25 


0 72 9 

P027F 

0102 

SAZ 


073 0 

PO 280 

0900 

INA 

0 

0731 

P0281 

0106 

SAZ 

H3 


0 732 

P0282 

C0F6 H25 

LOA- 

BOTOP 


0 733 

PQ283 

09FD 

INA 

-? 

o 

0 73^ 

P0284 

6800 

STA 

PCELL 

P0285 

FDFD 


o 

in 


0735 

P0286 

1800 

JNP 



P0287 

Q 0 88 



o 

0 73 6 

P0288 

1CE5 H3 

JMP^ 

(H) 

0737 

PG289 

COFF HH 

LDA- 

I 


0 7 3 8 

PQ28A 

0901 

INA 

1 


0 73 9 

P028 E 

0822 

TRA 

Q 

jO ■ 

074C 

P028C 

BQ21 

EOR- 

NZERO+15 


0741 

P02 8O 

68GC 

STA^ 

HI 


0742 

P028E 

C8 00 

LDA 

RCODE 



PQ 28F 

D QAA 



€) 

0 745 

P029G 

09F2 

INA 

-13 

0744 

P0291 

0106 

SAZ 

Hl-1 


07 45 

P0292 

G622 

LDA- 

(ZERO ) , Q 


0746 

PG293 

A031 

AND- 

UMEBITf 14 


0747 

P0294 

0113 

SAN 

Hl-1 


0 74 8 

P0295 

BQ31 

EOR- 

0NEBITH4 


0749 

P0296 

8622 

AOD- 

(ZERO ) , Q 


07 5 0 

PQ297 

6622 

STA- 

(ZERO) ,Q 

o 

G751 

P0298 

54F4 

RT J- 

($F4) 

0752 

PG299 

0000 HI 

NUH 

0 


' 0 75 3 

P029A 

E81D 

LOQ^ 

SQV 


0754 

P029B 

C4E9 H18 

LDA- 

($E9) 

o 

0 7 5 5 

P029C 

0102 

SAZ 

H4 

0756 

P029D 

0844 

CLR 

A 


0 7 5 7 

P029E 

0102 

SAZ 

2 


0758 

P029F 

C428 H4 

LOA- 

(CNOTE) 

o 

Q759 

P02A0 

A021 

AND- 

NZERO+15 

0760 

P02A1 

0 834 

AAQ 

A 


075 1 

P02A2 

6428 

STA- 

(CNOTE) 


DATES Oi/27/99 


UNPACK REQUEST LENGTH 

IF REQUEST WAS INDIRECT, USE 

1 INSTEAD OF REQ. LENGTH TO 
FIND RETURN ADDRESS 

MAKE SURE RETURN IS 
UNPROTECTED 

RETURN IS PROTECTED THEREFORE 
A PROTECT VIOLATION HAS OCCUREO 


IF THIS IS A GTFILE REQUEST 


SU8R. Z HAS 

SET CORRECT D BIT 


SET D BIT IF NOT SET 

INDIRECT REQUEST USING 
STACKED ENTRY 

65K HODE--DO NOT SAVE 
OVERFLOW 

SAVE OVERFLOW BIT 


M7 30 0 71 5 
M730 Q716 

M7300 717 

M73u07ia 

M7S90719 

M7S00720 

M7300 721 
^^MSOS -.UM7300722 
M7300723 


<^»MSOS 4.0M733 0724 
^^HSOS 4. 0M73D0725 
*^-^MSOS 4.0M730 G726 

♦*MSOS 4. 0H73u0727 
«-^M30S 4.UM7300728 
^^MSOS 4.0M7300729 
^^MSOS -r. LM7300 730 
H7300751 
M7300732 

^^MSOS '4. GM7300733 


M7300734 
M7300735 
SH7300736 
M730Q737 

„_0M730C738 

^^MSOS 4.0M7300739 
H7300740 


*-^MSOS 4 
^^^MSOS 4 


M7300741 
M733D742 
H73u0 743 
H73Q 0744 
' M73j0 745 
'■ M730Q745 
' . M73QQ 747 
M7300 748 
^"-^MSOS h.QM73l10 749 
^^HSOS 4.6M73Q0750 
^’f-MSQS 4. QM73u 0 75i 
»^MSOS 4, GM73QQ752 
^-^MSOS >t.CM73Q 0 753 
^^MSOS -t. 0H7300754 
^A(-HSOS 4.0M7300755 
^‘^HSOS 4. UM73Q 0 756 
M73D0757 
M733fl 758 
M730 0 759 


C 

o 

o 

o 

o 

o 


o 

o 

o 


o 

o 

o 


o 



u 
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PAGE 23 


0 753 



* 

THIS 

EXITS VIA 

0755 

P02A3 

E8 GO 

K 

LOQ 

SAV Q 


9024^ 

FDE2 




0 76 6 

PO 2A5 

0 50 0 


IIN 

0 

0 7 5 7 

P02A6 

44 B8 


STQ- 

{COUNT) 

0 7 6 6 

P02A7 

EO B8 


LDR- 

COUNT 

0769 

P02A8 

C800 


LDA 

SAVA 


P02A9 

FDD5 




0 7 7 G 

P02AA 

6201 


STA- 

1»0 

Q771 

P02AB 

C800 


LDA 

SAVI 


P02AC 

F003 


STA- 


077 2 

PG2AD 

6202 


2,0 

0773 

PQ2AE 

C80Q 


LDA 

SAVPR 


PU2AF 

FQDl 



4,0 

077 4 

P02B0 

6204 


STA- 

0 7 75 

PG2bl 

C429 


LOA- 

(CN3TE) 

0776 

P02B2 

62 03 


STA- 

3,0 

077 7 

P02B3 

00 05 


INQ 

5 

077 8 

PQ2B4 

4QB8 


STQ- 

COUNT 

07 79 

P02B5 

0400 


EIN 

0 

0 7 80 

P0 2B6 

14EA 


JMP- 

(DISP) 

0781 

P02B7 

0 0 0 0 

SQV 

NUM 

0 


WHATEVER IS IN lOQ ON ENTRY 

SAVE Q IN INTERRUPT STACK 

SAVE A IN INTERRUPT STACK 

SAVE I IN INTERRUPT STACK 

SAVE PRIORITY IN INTERRUPT STACK 
SAVE RETURN IN INTERRUPT STACK 
RESTORE TOP OF INTERRUPT STACK 


H73DQ761 


M7300763 

‘ ■ M73j 0764 
■ M73DQ765 

H730D76& 
M733 0 767 

H73G 0768 
M7300769 

M7300770 

M73D0771 

M73G0772 
M73Q0773 
M73DQ774 
M7300775 
> H730G775 

M7300777 
' ■’ M730 0 778 
♦^HSOS 4. UM7300779 
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DATE: 01/27/99 


C' 


o 



07 3 ^ 



V- 


0785 




o 

073 6 




0787 





07 8 8 





0789 


Q2B8 

p 

o 

07 91 





079 2 




o 

07 9 3 





0 795 

P02B8 

C800 

C 



P02B9 

FDC8 



0 79 6 

P02BA 

E0F6 



0797 

P02BB 

5C34 



0 798 

P0 2BC 

0 102 


0 

0799 

P02BD 

Q9C0 


03Gu 

P02BE 

0101 



08 01 

P02BF 

1812 

Ci 


03 3 2 

P02C0 

EO FI 

0 


0 80 3 

PG2C1 

ODFE 


0304 

P02C2 

C6F2 

01 


08 05 

P0 2C3 

9800 




PQ2C4 

FOBE 



080 6 

P02C5 

0117 



0807 

P02C6 

E800 




P02C7 

FDBB 



030 8 

P02C8 

C2Q1 


(“4 

080 9 

P02C9 

9818 



0810 

PO 2CA 

0115 



0311 

P02CB 

1800 




PG2CC 

FOCI 


o 

0812 

PO 2CD 

0 DFB 

02 

0813 

P0 2CE 

0172 



0814 

P02CF 

18F2 



0315 

PO 2D0 

183F 

03 


o 


o 

o 


o 

C) 


THIS IS WHERE THE OVERLAY OF THE ERROR 
ROUTINE AND JBKILL BEGINS. ROUTINES 
WHICH ARE IN THIS AREA INITIALLY ARE 
NOT REQUIRED AFTER AM ERROR HAS OCCURRED 
OR JBKILL IS SCHEDULED. 

EQU AREA(^) 


HE NOW INVESTIGATE THE POSSIBILITY OF 
AN ATTEMPTED ENTRY INTO A PROTECTED PROGRAM 
WHOSE ENTRY IS A PRESET. 


LOA PTR 

LDQ- BOTOP IS IT BELOW MONITOR COMMON 

RTJ^ {COMV) 

SAZ Ci 

INA 0 

SAZ D 

JMP--^ TSTDIS NO - CHECK JMP TO DISPATCHER 

LDQ- LPREST LENGTH OF PRESET TO Q 

INQ -1 

LDA- (PRESET), Q IS THE COMPUTED ADDRESS 
SUB PCELL A PRESET ENTRY POINT 

SAN 02-^-l 

LDQ PCELL YES 

LDA- i,Q IS IT FOLLOWED BY AN IIN 

SUB^ ATI 

SAN D3-^-i SKIP IF NO 

JMP 3 YES, GO EXIT IT PRESET 

INQ -4 

SQM TSTDIS-^-i ARE WE DONE CHECKING PRESETS 
JMP» Di NO CONTINUE CHECKING 

JMP’^ NOEIN GO OUTPUT JOl ERROR 


O 


M730 0 782 
M7300783 



M7300784 

M7300785 

■ O 


H7300786 

M73QQ787 

O 


M7300789 
M7300 790 
M7300791 

O 


, M733Q793 

o 

^^^•MSOS 

V. GM730C794 

^^MSOS 

4. GM730Q 795 


«^^MSOS 

w. OM7300 796 



4. 0M75 J 0797 

o 

^^‘MSOS 

-r. CM7300798 

^^MSOS 

4.0M7300799 



M73 0 0 80 0 
M73G 0 801 
M73G0802 
M73Q0803 

f"") 


M73Q 0804 
H73008Q5 

o 


M73u I] 806 
M73D0807 
M730 0808 
M73Q 0809 

M73 0 0 810 ri 

M73 0 0 311 
M7300812 
M7300 813 

o 


o 


o 


o 


o 


o 
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DATE; 01/27/99 





0dl8 

PG2D1 

C800 


TSTDIS 

LOA 

PCE.L 



M73Q0ai6 




P02D2 

FDBO 









o 

0319 

P02D3 

0822 



TRA 

Q 



M73G0 817 

o 


032G 

P02D4 

09 01 



INA 

1 

ADDR AT WHICH VIOLATION OCCURRED 


M73GQ818 


0321 

P02D5 

90EA 



SUB- 

DI3P 

ADDRESS OF DISPATCHER 


M73D0819 



0822 

P02D6 

0101 



SAZ 

1 


^^MSOS 

4. 0H730Q 820 


O 

0 32 3 

P02D7 

180E 



JMP^ 

NOTOIS 

NOT A JUMP TO DISP 

^■^MSOS 

4. 0M730D821 

r-) 

G324 

P02D8 

C800 


ISDI3 P 

LDA 

SAVPR 

YES, WAS IT FROM LEVEL ZERO 


M733 0 822 

L..-’ 



P02D9 

FOA7 






' ^^HSOS 




0825 

P02DA 

AO 11 



AND- 

LPH3K+15 


4. GM7300823 


o 

0826 

P02DB 

0112 



SAN 

ATONE 


^^MSOS 

4.GM73u 0 824 

, o 

082 7 

P02DC 

5800 



RTJ 

DOWNO 


**MSOS 

4,.0M73BG825 



P02DD 

FDCF 










0328 

P02D6 

£0 E9 


ATONE 

LDQ- 

$E9 

ADOR :OF EXTENDED CORE TABLE 

^^MSOS 

?f . OH730 0826 


o 

03 29 

P02DF 

E2 09 



LDQ- 

9iQ 

ADOR OF RCTV IN HONI 

^»MSOS 

4. OM730G827 

o 

0831 

P02E0 

C2G5 



LDA- 

5,Q. 

ADDR OF EXIT REQUEST ( T5 ) 


M733Q828 


0831 

PO 2E1 

Q5G0 


ATI 

IIN 

0 



M7300 829 



0332 

PG2E2 

60FF 



STA- 

I 



M733 G830 


l-~\ 

033 3 

P0 2E3 

0 802 



SET 

a 

-0 TO Q TO INDICATE ENTRY FROM PP 


M733 0 831 


'■J 

0834 

PQ 2E4 

1522 



JMP- 

(ZERO ) , I 

JUMP TO T5 


M7 3 00 83 2 



0 83 5 

P02E5 

0DD2 


NOT DIS 

INQ 

2 

Q=LOC OF INTERRUPT +1 


M73Q0833 



0 3 3 6 

P02E6 

482B 



STQ» 

VIOL 



M733 0834 



3 83 7 

P02E7 

4850 



STQ^ 

SAVOi 


'-^MSOS 

4. GM7300835 


\ 1 

0338 

P02E8 

C42B 



LDA- 

(CNOTE) 



M7330336 


0839 

P02E9 

E4E9 



LDQ- 

($E9) 

CHECK TO SEE IF 

»^HSOS 

0H73D 0837 



034G 

P02EA 

01 51 



SQN 

TBG< 

LOG. IS FROM PARTI 

^^MSOS 

4.0M730 0 838 


o 

0341 

P02EB 

AO 11 



AND- 

H7FFF 



M733 0839 

• Q 

0842 

P02EC 

6808 


TOOK 

STA^ 

ADRFl 


'^^MSOS 

4. 0M730O840 


0843 

P02ED 

E0F7 



LDQ- 

TOPMON 

CONTENTS OF $100 MUST 

^^MSOS 

4. 0M75Gu841 



QS4u 

P02EE 

54 0 0 

X 


RTJ 

CONPV4 


^«^MSOS 

0M73Q 0842 




P02EF 

02 7E 

X 







r\ 

j 

0845 


02EF 

P 


EQU 

CONV (^-1) 


»^MSOS 

4.CM7300843 



0346 

P02F0 

0 102 



SAZ 

ADR 


^•^MSOS 

4. uM733 0 844 



0847 

PG2F1 

09 GG 



INA 

0 


^^MSOS 

4.0M73QG845 


o, 

. 0848 

P02F2 

0107 



SAZ 

PROT 

BE IN UNPROTECTED 

^^^MSOS 

4. QM73C 0 84b 

. r'\ 

' 0849 

P02F3 

GOOO 


ADR 

LDA 

=N$0000 


^»MSOS 

4, OM7300847 




P02F4 

0 0 0 0 










0850 

PQ2F5 

E0F6 



LDG- 

BOTOP 

CORE OR ABORT 

^^MSOS 

4. UM73J 0 848 


o 

03 51 

P02Ffa 

5CF8 



RTJ^ 

(GOHV ) 


-s^^HSOS 

4« 0M730 0 349 

O 

0852 

P 02F7 

0102 



SAZ 

PROT 


^^^MSOS 

4. GM730 0850 


0353 

P02F8 

0 90 0 



INA 

0 


-^MSOS 

4.0M7300851 



0854 

P02F9 

DlOl 



SAZ 

TSOK 


^^^HSOS 

4. 0M73Q 0852 


o 

0 3 5 5 

P02FA 

1815 


PRQT 

JHP^ 

MOEIM 



M7300853 

_ O 

0856 

P02FB 

E83G 


TSOK 

LDQ^^ 

SAVQl 


^^MSOS 

4.0M73Q 0 854 


0 3 5? 

PO 2FC 

OOFC 



INQ 

-3 

Q=ADOR OF CELL 3 LOCATIONS BACK 


M7300855 



0 358 

P02FO 

C622 


TRYEI N 

LOA- 

(ZERO) , a 

FETCH CONTENTS OF CELL TO BE TESTED 


M7 30 0 356 


o 

0659 

P02FE 

0F48 



ARS 

8 



M7300857 

O 

0 3 5 0 

P02FF 

09FB 



INA 

-4 

ElN=4uC, IIN=500, INTERREG=800 

,,EXI=EO0 M730 0858 


0 3 5 1 

P 0 3 0 0 

0138 



SAH 

NOTEIN-^-i 



M730 0 359 



0362 

P0 30 1 

09FA 



INA 

-5 



H73Q 0360 


o 

0863 

PO 30 2 

D132 



SAM 

I3INT-^-l 



H7300861 

■ O 

08 6 « 

P03C3 

09FA 



INA 

- 5 



M7300862 


0 8 5 5 

P 0 3 u 4 

0 114 



SAN 

NOTEIN-^'--! 



M730 0 863 



o 


o 
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DATE: 01/27/99 


0 8 56 
0 857 
0 3 58 

0859 
0 870 
0 371 
087 2 
0 8 73 
0 379 
037 5 

DS76 


P03Q5 

E8 OC 

ISINT 

LDQ^ 

VIOL 

P0306 

4428 


STQ- 

(CNDTE) 

P0307 

PG308 

1800 

FF9A 


JMP 

K 

PG3D9 

C808 

NOTEIN 

LDA^ 

VIOL 

P030A 

0864 


TCA 

A 

P030B 

0834 


AAQ 

A 

PQ3DC 

0 102 


SAZ 

NOEIN-» 

PQ30D 

ODOl 


INQ 

1 

P030 E 

18EE 


JMP’f 

TRYEIN 

POoGF 

P0310 

18 0 0 
FDA3 

NOEI'l 

JMP 

E 

PQ311 

0 OuO 

VIOL 

ADC 

0 


RETURN TO UNPROTECTED PROGRAM 
THE VIOLATION IS LEGAL 

LAST ADDRESS TO TEST 
TRY NEXT CELL 

ERROR EXIT, PROTECT VIOLATION 


M7330864 
M73a0865 
^^MSOS 4.0M73G0866 

M7300867 
M73Q 0868 
M7300869 
M73Q087Q 
M7300871 
H7300872 
M7300573 

M7S0 0 374 
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Pi\GE 27 


date: ul/27/99 


o 








0 3 7 8 



* 

THIS ROUTINE 


0879 




STARTING ADDR 


03 3 0 



jf- 

OW THEM. 


08 32 

P0312 

0 000 

J 

0 

0 


0683 

P0313 

58 0 0 


RTJ 

CHKLU 

i. ) 


P0314 

FF2B 





08 8 4 

P0315 

QACl 


ENA 

1 


0 889 

PO 316 

A208 


AND- 

8,Q 


u 8 8 b 

PG317 

0102 


SAZ 

J2B-*-l 

U 

0867 

P0318 

1800 


JMP 

PI 



PO 319 

00 D1 





0888 

P031A 

El 08 

J28 

LDQ- 

11,1 


0889 

P031B 

5 4 BO 

J2C 

RTJ- 

tSABS ) 


089 0 

P031C 

681C 


STA^ 

LOGS 


0891 

PC310 

4106 


STQ- 

6 , 1 


0 392 

P031E 

C81B 


LDA^ 

RCODE 


0 3 93 

P031F 

Q9FD 


INA 

-2 


0594 

P0320 

681A 


STA^ 

WRIND 


0 5 9 5 

P0321 

0102 


SAZ 

J 43 


0395 

P0322 

09F8 

J4 

INA 

— 4 

o 

0 89 7 

P0323 

6817 


STA* 

WRIND 

0898 

PO 324 

0111 

J4 3 

SAN 

J44 


0899 

P 0 3 2 5 

1811 


JMP'f 

J8 


090 0 

P032b 

C1C6 

J4 4 

LDA- 

6,1 


090 1 

P0327 

OlOC 


SAZ 

J7 

U 

0902 

P0328 

Q9FE 


INA 

-1 


090 3 

P0329 

E0F7 


LDQ- 

TO^NDN 


0 93 4 

P032A 

5CC4 


RTJ'^ 

{CDMV) 


090 5 

P032B 

0102 


SAZ 

J45 


090 6 

PO 32C 

0900 


INA 

0 


0907 

P032D 

u 106 


SAZ 

J7 


090 8 

PD 32E 

Cl 06 

J45 

LDA- 

6,1 


0909 

PQ32F 

EQF6 


LDQ- 

BOTOP 


0910 

P0330 

5CBE 


RTJ^ 

(CDMV) 


0911 

P0331 

0102 


SAZ 

J 7 


0312 

P0332 

0900 


INA 

0 


0913 

P0333 

0102 


SAZ 

J8 

‘•v-^ 

0914 

P0334 

1800 

J7 

JMP 

F 



P0335 

FO 80 





0915 

P0336 

ICDB 

J8 

JMP* 

( J) 


0916 

P0337 

OQuO 

SAVGU 

NUM 

0 


o 


u 


GO CHECK LU. RETURN WITH Q 

SET TO ADDRESS OF POT 

PROTECTED 

NO--OK 

YES--ERROR JOS 

NO, PREPARE TO ABS. PARAMETERS 
ABSOLUTIZE S 

PUT S IN STACKED REQUEST 
GET REQUEST CODE 
IS IT WRITE 

YES-RETURN 
IS IT FWRITE 


YES - RETURN 
ERROR - IF STARTING ADDR. IS ZERO 


M7300 876 
M7300877 
M73>3Q 878 


M7300880 

M73D0881 

M7330882 
*»»-^M73Q 0 883 
0884 
M73Q0885 


G 

O 

O 

O 


«-^MSOS 4. 
^^MSOS <4. 


^^MSOS 


STARTING ADDRESS 


^ 4 . 0 / 77^1858 


SEE IF starting' ADDRESS IS IN UNPROT^^MSOS 

^^HSOS 

--MSOS 

«"^MSOS 

NO - ERROR ::H|0| 

*^^MSOS 
^^MSOS 
^^MSOS 
¥■ 4^MQOS 

YES ^^MSOS 

go" output J02 ERROR 


4- • 

4 • 

4 • 
^ • 


CH73Q 0 885 
OM7300887 
M73Q0888 
M7300 889 
M730089Q 
M73Q0891 
M7300S92 
0M73Q0893 
M7330894 
H7300895 
M733089& 
M7330897 
M7 33 0898 
M7300399 
M73j 0900 
GM73Q0901 
QM73a090? 
0M730u903 
0M73Q0904 
QM73D0905 
0M7300906 
0M73G 0907 
yM73Q0908 
0M730 0909 
2M7300910 
0M730 0911 
M73G0912 


O 


OK 


RETURN 


M7300913 
^^MSOS 4.0M73Q0914 


O 

o 

o 

o 

o 

o 


o 


c 
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DATES 01/27/99 


0519 

092D 

0921 


■V- 

V- 


THIS ROUTINE ABSOLUTIZES N AND LEGALITY CHECKS 
S+N, IT V-RIEIES THAT THE CALLED DEVICE CAN READ 
OR WRITE AS REQUESTED. 


M7330917 
M7300918 
M730 0919 


09 23 

PG336 

0 0 00 

LOGS 

NUM 

0 

0924- 

P0339 

0 0 0 0 

RCOOE 

NUM 

0 

0 92 5 
0926 

P033A 

GOOD 

WRING 

V- 

NUM 

0 

G927 

PG33B 

G 0 GO 

L 

0 

LDQ- 

0 

0928 

P033C 

E108 


1 1 1 I 

0929 

PG33D 

C622 


LDA- 

{ Zw RO ) » Q 

0930 

P035E 

OFCl 


ALS 

1 

0931 

P033F 

0123 


SAP 

LQi-^-1 

0932 

PO 34-0 

C204 


LDA- 

4 ■» Q 

0933 

P0341 

Q 121 


SAP 

Liil-'^-l 

093 - 

P0342 

18F1 


JMP^ 

J7 

0935 

P0343 

54BF 

LOl 

RU- 

(NA8S) 

093 6 

P0344 

4105 


ST Q- 

5 ,I 

093 7 

P0345 

C8F4 


LOA^ 

WRI ND 

0938 

P0346 

Gill 


SAN 

1 

0939 

094G 

P0347 

1810 


JMP^ 

L5 

0941 

P0348 

C106 

LI 

LDA- 

6 » I 

0942 

PG349 

E0F7 


LDQ- 

$F7 

0943 

P034A 

5CA4 


RTJ- 

{ CDMV ) 

0944 

P034B 

QIQA 


SAZ 

L4A 

0945 

PG 34C 

0900 


INA 

Q 

0946 

PO 34D 

0 108 


SAZ 

L4A 

0947 

POSmtE 

Cl 06 

L4 

LDA- 

6 » I 

0948 

P034F 

8105 


AOD- 

5 1 1 

0949 

PQ 350 

09FE 


INA 

-1 

09 5 0 
0951 

PO 351 

E0F6 


LOQ- 

BOTO? 

P0 352 

5C9C 


RTJ» 

(COMV) 

095 2 

P 0 3 5 3 

0102 


SAZ 

L4A 

0953 

PO 354 

09 0 0 


INA 

0 

0 9 5 4 

PQ355 

0 101 


SAZ 

L5 

0 95 5 

P 0 3 5 6 

18UD 

L4A 

JMP^^ 

J7 

095b 

PQ35 7 
P0358 

C800 
0 0 97 

L5 

LDA 

HOLD 

095 7 

PQ359 

0FC5 


ALS 

5 

0 9 5 8 

P0 35A 

AQ05 


AND- 

5 

0959 
0 9 5 0 

Pu 3 5 B 

09FE 


INA 

-1 

PG35C 

0113 


SAN 

LSO-^^-l 

0 95 1 

P0350 

C105 


LOA- 

5 » I 

095 2 

P035E 

0113 


SAN 

L50 A--^- 1 

0963 

P035F 

1804 

L50 

JMP- 

J7 

0954 

PO 360 

09FE 

INA 

-1 

0 9 65 

P 0 36 1 

0102 


SAZ 

L6-’*--! 

0 9 5 6 

PO 362 
PG 363 

18D0 
0 0 80 

L5 0 A 

JMP 

P 

0957 

P0364 

El OB 

L6 

LDQ- 

1 1 » I 

0958 

P0365 

C4E9 


LDA- 

($E9) 


LOCATION OF PARAMETER LIST 

REQUEST CODE 

ZERO IF WRITE OR FHRITE 


REQUEST ADDRESS 
DBIT SET 


YES-t-BIT 15 ON N SET 
NO 

YES--ERROR 

ABSOLUTIZE N AND STORE IT IN 
THE STACKED REQUEST 


IF REQUEST IS NOT WRITE OR 
EWRITE, HAKE SURE BUFFER 
IS NOT IN PROTECTED CORE 
BOTTOM-1 OF UNPROTECTED 


IT IS IN PROTECTED 
BELOW LOWER LIMIT 
NUMBER OF WORDS 


BUFFER ENDS IN 
PICK UP WORD 8 


PROTECTED CORE 
OF POT - EREQST 


MASK 3 


BITS 


SKIP IF NOT MAG TAPE 
mag TAPE CHECK FOR ZERO WORDS 
SKIP IF NOT ZERO WORDS 
ERROR 0 WORD + MA G TAPE ^ 
CHECK TO SEE IS MASS MEMORY 
A=0 YES MASS MEMORY 
Mn 


M?3u U921 
M730D922 
M73Q0923 
M7300924 
M73U0925 
v^MSOS +.0M7300926 
»^MSOS 4.QM7300927 
’^^MSOS ‘t.0M73D0928 
^^MSOS 4.yM733Q929 
^^MSOS 4. QM730U930 
’»^^HSOS 4.GM733 0931 
»^MSOS 4. 0M7500932 
^^MSOS 4.UM73QQ933 
M730C934 
M7300935 
■^^MSOS 4.CM730Q936 
^^MSOS :*.OM7300937 
M73u 0938 
M7300939 
M7300940 
^^MSOS 4.0M73G0941 
^^MSOS 4.0M73G0942 
^"i^HSOS 4.0M73u0g45 
MFSiOg^A 
-■s^MSOS 4,0M73a09L5 
^^MSOS 4.DH7300946 
^^MSOS 4.0M7300947 
^^^MSOS 4.uM73jQ948 
»''-MSOS 4.CM7300949 
*-^MSOS 4. OM73Q0950 
’f^MSOS 4. 0M73G 0951 
^♦MSOS 4. CM730 0952 
M7300953 
M73Q 0954 


M730 0955 
M7300956 
M7330957 
M73Q 0958 
M733Q959 
M73 j 0 960 
M7300961 
M7300962 
M73 J 0963 
M730 0 964 


REQUEST ADDRESS 
IF 65K SKIP THE 


’f^MSOS 4.QM730 D965 
M730 0966 




UPROTK 



PAGE 

0969 

P0366 

0 112 



SAN 

L6A 

0970 

P0367 

C205 



LDA- 

5 , Q 

0971 

P0368 

0138 



SAM 

L7-^-l 

0972 

P0569 

C8G0 


L6A 

LDA 

INDIR 


P036A 

FDIB 





0973 

P036B 

OllA 



SAN 

L8-^-l 

0 9 7 ^ 

P036C 

D8QQ 



RAO 

RETURN 


P036Q 

FD17 





0 9 7 5 

PO 36E 

08 0 0 



RAO 

RETURN 


P036F 

F015 





0 9 7 6 

P037G 

1806 



JMP^ 

L8 

0977 

P0 371 

E8C6 


L7 

LDQ^ 

L 0 J S 

D978 

P0372 

C201 



LDA- 

1,3 

097 9 

PQ373 

6107 



STA- 

7,1 

0930 

P0374 

C2Q2 



LDA- 

2 »Q 

0931 

P0375 

6108 



STA- 

3,1 

093 2 

P 0 3 7 5 

C108 


L8 

LDA- 

8,1 

09 3 3 

P0377 

0121 



SAP 

L85-^-l 

093t 

P0 378 

18BB 


L84 

JMP» 

J7 

09 8 5 

P0379 

E3BF 


L35 

LDQ^ 

RCOOE 

0936 

P037A 

ODFC 



INQ 

-3 

0987 

PD37B 

Cl 0 4 



LOA- 

4,1 

0983 

P037C 

AOOA 



AND- 

LPHSK+8 

0939 

P037O 

90C2 



SUB- 

LIBLU 

D990 

PQ37E 

6872 



STA^ 

LIFLAG 

C991 

PD37F 

0113 



SAN 

L9A-»-l 

0992 

P038 Q 

C40Q 

X 

L9 

LDA + 

LOA3IN 


PC381 

7FFF 

X 




0 9 9 3 

PO 382 

0102 



SAZ 

LlO-’^-i 

0994 

P0383 

0 AGO 


L9A 

ENA 

Q 

0995 

PG384 

18 03 



JHP-^ 

LlOA 

0 9 9b 

P0 385 

COCl 


LIO 

LDA- 

$C1 

0 997 

P 0 3 8 D 

09FE 



INA 

-1 

0 99 8 

PQ387 

0171 


LIO A 

SQM 

LQIA 

0999 

PG388 

181A 



JMP^ 

LOlO 

1 0 0 u 

P0369 

E107 


LOIA 

LDQ- 

7,1 

iuOl 

PQ 38A 

017h 



SQM 

LGIER 

13 0 2 

PO 38B 

01 54 



SQN 

LOIGO 

IGO 3 

P038G 

El 08 



LOQ- 

8,1 

100 4 

P038D 

QD9F 



INQ 

-96 

1005 

P0 38E 

0161 



SQP 

LGIGO 

10 Q 6 

P038F 

18E8 


LOlt^ 

JMP* 

L84 

10 0 7 

P039G 

OCGO 


LOIGD 

ENQ 

Q 

1GC8 

P0391 

0103 



SAZ 

L0150A 

1039 

P0392 

285C 



HUI- 

N95 

1 C 1 u 

P0393 

OFEl 



LLS 

1 

10 11 

PQ394 

OFCF 



ALS 

15 

1012 

P0395 

F107 


L01G3A 

AOQ- 


10 13 

P0 396 

8108 



ADD- 

8,1 

1Q14 

PQ397 

0122 



SAP 

L0108 

1015 

P0398 

0001 



INQ 

1 

1016 

P0399 

AO 11 



AND- 

NZERO-1 

1017 

P039A 

0161 


LGIOB 

SQP 

1 


date; 01/27/99 


INDIRECT S CHECK 

IF S IS INDIRECT, MOVE MASS 

STORAGE ADDRESS TO STACK 


M73Q0967 
M7330968 
M73Q 0969 
M730 0970 


M73D0971 

IF REQUEST AND 3 ARE DIRECT M7300972 

ADO 2 TO RETURN ADDRESS M73Q0973 


CHECK FOR MINUS SECTOR NO. 


61^1294 

61 ^ 129 ^ 

IF LU NOT LIB OON^T ADD SCRATCH 61^1294 

MASK OFF MODE BIT ’64-1294 

ZERO IS LIB AND SCRATCH ARE SAME UNIT61^1294 

IF LOADING IS IN PROGRESS, 


M730 0974 
M730Q975 
M733 0976 
M73C0977 
M73D 0978 
M73Q0979 
M7300980 
M730Q981 
M73D 0982 
M7300983 
M73QQ984 
M73 00985 
M7300986 
M73Q0987 
M730 0 988 
M7300989 
M73G099C 


OONT ADD SCRATCH ADDRESS. 
SCRATCH DISK 

COMPENSATE SCRATCH SECTOR -1 


61^1294 

61 ^^ 129 *, 

61^1294 


READ/WRITE 61^129^ 

HANDLE FREAD/FWRITE AT LOlO 


IF MSB NEGATIVE - ERROR 
IF MSB POSITIVE, NOT ZERO - OK 

CHECK LSB GT SECTOR ZERO IF MSB = 0 


ERROR EXIT 
SCRATCH DISK 

MAKE START OF SCRATCH LOOK LIKE DRUM 


61^129it 

61^1294 

61^129-r 

ADDRESS 


61^1294 

COMBINE START OF SCRATCH WITH USERS ADDRESS 


REMOVE SIGN IN LSB IF SET 


M7300991 

M7300992 

M7300993 

M7300994 

M7300995 

H738 0996 

M73Q0997 

M73G0998 

M730C999 

M73Q100Q 

M73 01001 

M73 Q10G2 

M75010G5 

M733 luG 4 

M7301005 

M7301006 

M73010G7 

M730ia08 

M730 1009 

M7301Q10 

M7301flli 

M73G1Q12 

M7301013 

M73 j 1014 

M73 J 1015 


UPROTK 


PAGE 30 


date; 01/27/99 


iOia 

P069B 

18 13 



JMP^ 

LER 



M73D1016 

1019 

P059C 

4107 



STQ- 

7,1 

STORE COMPENSATED MSB 


M73D1017 

102G 

P039D 

6108 



STA- 

8,1 

LSB 

*^^MSOS 

4.1'^^M73ul018 

1G21 

P039E 

OFCl 


PCKl 

ALS 

1 



M7301O19 

1022 

PO 39F 

OF 61 



LRS 

1 

COMBINE DRUM ADDRESS 


M733 1020 

1023 

PO 3A0 

384E 



DVI^ 

N96 

CONVERT TO SECTOR ADDRESS 


M73U1Q21 

1024 

P03A1 

1813 



JMP’^ 

GOOOAD 

GOOD ADDRESS 

^^MSOS 

u.i»^M73Q1022 

1G2 5 

P03A2 

0111 


LOIQ 

SAN 

LOiOA 

THIS SECTION CHECKS FHRITE/FREAD 


M7301023 

10 26 

PO 3A3 

1840 



JMP^ 

P 

NOT LIBRARY DEVICE 


M73 j 1024 

10 2 7 

P03A4 

El 07 


LOlOA 

LDQ- 

7,1 



M7301025 

10 28 

P03A5 

0158 


, 

SRN 

LER 

MSB HAS TO BE ZERO 


M7301026 

1029 

P03A6 

E108 



LDQ- 

8,1 



M735 1027 

10 30 

P03A7 

0146 



saz 

LER 

LSB CAN^T BE ZERO 


M7331028 

1031 

P03A8 

8108 



AOD- 

8,1 

COMBINE LSB AND SCRATCH START 


M73Q1029 

1C 3 2 

P03A9 

0 8 42 



CLR 

Q 



M730103G 

10 3 3 

P03AA 

0124 



SAP 

Lll 

POSITIVE OK - STORE IT 


M7331031 

10 34 

P03AB 

OCOl 



ENQ 

1 


^^MSOS 

4.1^^H73G1G32 

1G3 5 

P03AC 

AOll 



AND- 

LPMSK+15 

MASK $7FFF 


M7301033 

103 6 

PG 5AD 

1802 



JHP^ 

Lll 


’^■^MSOS 

4.1^^M730 1034 

103 7 

PO 3AE 

18C9 


LER 

JMP^ 

L84 

ERROR EXIT 


M7301035 

1038 

P03AF 

6108 


Lll 

3TA- 

8,1 

STORE INTO PARAMETER LIST 


M?3ul036 

1039 

PQ3BQ 

4107 



STQ- 

7,1 

MAKE 

»^HSOS 

4.i»»M?3G1037 

1 1- 4 0 

P0 3B1 

uFCl 



ALS 

1 

SINGLE 

^^HSOS 

4.1-^M73D1038 

10 -i-i 

PO 3B2 

QF61 



LRS 

1 

PRECISION 

»^^MSOS 

H.i^^M73Gia39 

10 4 2 

P 0 3 B 3 

1803 



JHP^ 

PC<3 


«^^MSOS 

4.1»^M7301040 

10 43 







1 CARD DELETED 

61^ 

1294 M730i041 

104*^ 

Pfl 3Ba 

0151 


GOODA D 

SQN 

PCK3 


'^-HSOS ^.OM730 1G42 

10 4 6 

P03B5 

09FE 


PCK2 

INA 

-1 

ADJUST LSB FOR LATER CHECK 


M7301043 

10 4-6 

P03B6 

E83A 


PCK3 

LDQ^ 

LIFLAG 

IF LIBRARY UNIT MAKE SURE 

61^1294 M730ia44 

1047 

PO 3B7 

01 41 



SQZ 

PCK4 

ADDRESS NOT BEYOND HAXSEC 


M73ii 1045 

13 4 8 

P03B8 

182B 



JMP^ 

P 

NOT LIBRARY UNIT 


M730104b 

1j49 

P03B9 

E400 

X 

PCK4 

LDQ 

MAX5EC 



M7301047 


PQ3BA 

7FFF 

X 







1050 

P03BB 

5400 

X 


RTJ + 

G0NP\/4 

COMPARE MAGNITUDE 

^^MSOS 

4.1»^M730iO48 


P03BC 

02EF 

X 







1051 


0 3BC 

P 

COMV4 

EQU 

COMVA (^-1) 



M7331Q49 

lu52 

PQ3BO 

0103 



SAZ 

PXO 

EQUAL MAXSEC 


M7301050 

1353 

P0 3EE 

09 00 



INA 

0 

CHECK -0 


M73Q105i 

1 0 5 

P03BF 

0 101 



SAZ 

PXO 

LESS THAN MAXSEC 


M7301Q52 

1355 

P03C0 

13B7 



JMP^ 

L84 

ADDRESS BEYOND MAXSEC - ERROR 


M750 1053 

1056 

P03C1 

E8 00 


PXO 

LDQ 

RCODE 



M7301Q54 


P03C2 

FF76 








1057 

P03C3 

QDFC 



INQ 

-3 



M7301055 

15 58 

P03C4 

017D 



SQM 

PX2 



M7301056 

1059 

P03C5 

0 8 42 



CLR 

Q 

FREAD/FWRITE 


M73G1Q57 

10 6 0 

P03C6 

C105 



LOA- 

5,1 

NUMBER OF WORDS 


M733 1058 

IQol 

PQ3C7 

3827 



DVI^ 

N95 

DIVIDE TO GET SECTORS 


M7301059 

1062 

P03C8 

0151 



SQN 

PXOl 



1 w 6 0 

PQ3C9 

09FE 



INA 

-1 


111+^4260*^^*^^^'^'^ 

1364 

P03CA 

8108 


PXOl 

AOD- 

8,1 

ADD START SECTOR 


M73G 1062 

1 (3 6 5 

P03CB 

El 07 



LDQ- 

7,1 



M7301063 

13 6 6 

P03CC 

0122 



SAP 

PXl 



M 7 3 0 1 0 6 4 

1067 

P03CD 

OCOl 



ENQ 

1 



M73Q1065 



uprotk 


=>i\GE 31 


date: 01/27/99 


10 5 8 

P03CE 

AO 11 



1059 

P03CF 

OFCl 


PXl 

10 7 0 

PC 3DC 

OF 61 



1071 

PO 3D1 

180C 


PX2 

1072 

PO 302 

C1C8 


1073 

P03D3 

El 07 



19 7- 

P03D4 

81C5 



19 7 5 

P03D5 

D 122 



1076 

P03D6 

CDOl 



1077 

P03D7 

AO 11 



19 7 8 

P03D8 

OFCl 


PX3 

13 7 9 

P03D9 

0F61 



lu 3 G 

PO 3DA 

3814 



1081 

PO 3DB 

0151 



lu32 

PG30C 

Q9FE 


PX4 

19 33 

P030D 

ECDC 


1084 

PO 3DE 

5CDD 



1G85 

P03DF 

0103 



19 86 

P03EG 

09G 0 



1087 

P03E1 

0101 



10 88 

P03E2 

1895 



1089 

P03E3 

E8 00 


P 


P03E-. 

FF55 



19 9 0 

PQ3E5 

0 ADA 



1091 

P03E6 

01 41 



lu92 

P03E7 

OA 02 



iu 93 

P03E8 

A 8 G 7 


POl 

10 94 

P03E9 

0112 


PI 

lu9 5 

P03EA 

18GQ 



P03E8 

F05B 


P2 

10 9 6 

P03EC 

1C GO 


P03ED 

FF4D 



10 97 

PQ3EE 

G060 


N96 

1098 

P03EF 

OOCO 


HOLD 

19 99 
HOC 

P03F0 

OGGO 

OOQA 

P 

LIFLAG 

1101 


oaoB 

P 


1102 


Q42C 

P 


110 3 

Pu3Fl 

u 0 2F 



1104 


0 420 

P 



AND- 

ALS 

LRS 

LOA- 

LDQ- 

ADO- 

SAP 

INQ 

AND- 


LPM3K+15 

1 

1 

PX4 

3.1 

7.1 

5.1 
PX3 
1 

LP>i5K + 15 


ALS 1 
LRS 1 
Q\/I» N95 
SQN PX4 
IMA -1 
Loa^ {PCK4H) 
RTJ’f (C0MV4) 
SAZ P 
IMA 0 
SAZ P 
JMP^ L84 
LOQ WRIMD 


REMOVE SIGN IN LS B IF SET 
HAKE SINGLE PRECISION 
REAO/WRITE 

ADD NUMBER OF WORDS IN REQUEST 


REMOVE SIGN BIT IN LSB IF SET 

COMBINE DRUM ADDRESS 
nnN\/FRT TO SECTOR ADDRESS 


GET MAX SECTOR 
COMPARE MAGNITUDE 
EQUAL SECTOR 
CHECK -0 

LESS THAN SECTOR 
ADDRESS BEYOND MAXSEC 


ERROR 


ENA 4 
SQZ POl 
ENA 2 
AND^ HOLD 
SAN 

JMP W3A 




IS I/O REQUEST BY UNPROTECTtD 
PROGRAM ALLOWED ON THIS _ 
DEVICE, CK WORD 8 OF POT - tREQST 
YES — OK 

NO- GO OUTPUT J08 


JMP (L) RETURN TO GALLING ROUTINE 


HUM a HOLDS WORD 8 OF POT - EREQST 

NUM 0 

EQU LSAOK'^/96) 

EQU LSJOl {LSAOl+1 ) 

EQU LTLj1CLSU01^96) 

0SS (LTLOl-^) 

EQU PRTEND(^) 


M73G1066 
M7331067 
M7331 068 
M7331069 
M73C1070 
M7531071 
M?30i072 
M73D1G73 
M73til074 
M7301Q75 
M73 j 1076 
M7 39 1077 
H7301Q78 
M7331079 
H7301080 
M7301081 
M7301Q82 
»^MSOS 4,1«^^M7301U83 
^»MSOS E.l’^»M73ai084 
^^MSOS >,.1'^^M7301385 
M7301086 
^^HSOS «-.0M73 9 1087 


H7301088 

M73G1089 

=?^f-«^^M73DlQ90 

M730i091 

^^^^-^M73Q109'2 

M75bi093 

M73&1094 

M730i095 
M739i09o 
61^1294 M7S31Q97 

M73D1098 
M7301099 
M73011QO 
M73Q1101 
M73011G2 


o 


o 


o 




u 

o 

o 


o 

o 

o 


I ! 


1106 


UPf^OTK PAGE 32 DATE: 01/27/99 


1108 
113 9 


0168 EQU ERREL(^-AREA) 


1111 


1113 

111^ 


1113 

1116 


ill 7 
1118 

1119 

1120 
1121 
1122 


1123 

112-f 

1125 


1126 

1127 


1128 


1129 
113 0 

1131 

1132 
113 3 


P042u 
PO 421 
PO 422 
P 0 42 3 
P042A 
P0^25 
PGh 26 
P0427 
PQ428 
P0429 
PO 42A 
PQ42a 
P042C 
PQ420 
P042E 
P042F 
PO 430 
? 0 a 51 
PO i*32 
P0 43 3 
P043t 
PO 435 
P 0 43 6 


OAQO 
5800 
FEIA 
01 62 
1800 
7FFF 
54F4 
1301 
0 0 03 
14EA 
0 814 
80 0 0 
3030 
ODFE 
0155 
E800 
FOBA 
00 02 
48 0 0 
FD B8 
E400 
aiEo 
620A 


1134 


1135 


1136 

1137 

1138 

1139 

1140 

1141 


1142 


P0437 
P0438 
P0439 
P043A 
P043B 
P043C 
P043D 
P 0 43 E 
P043F 
PO ^40 
P0441 
PO 4-2 
P0-r43 


E4 GO 
7FFF 
40FF 
OC03 
OAFF 
6722 
ODFE 
U171 
18FC 
C8C0 
FDM 
E4 0 0 
0438 


M73ull06 
H73G110 7 


THE PROTECT VIOLATION IS ILLEGAL. 


GETGO ENA 0 

3TA GEITEM+ERREL 


SQP ERR 
JMP JKILL 


Q=+ IF ERROR EMESSAGE 
Q=- JBKILL WAS REUUESTED 


ERR RTJ- (SF4) 

ERRSOH ADC $1301 

ADC ERRA-ERR3CH 
JMP- (DISP) 

ERRA TRQ A 

. ADD =N$3030 


SCHEDUE DOWN TO LEVEL 1 


FORM THE ERROR CODE 


INQ -1 

SQN EO-’^-l 

LDQ PCE-L+ERREL 


CHECK IF PROTECT VIOLATION 
SKIP IF NOT PROTECT VIOLATION 
PROTECT VIOLATION MOVE ADDRESS 


INQ 2 

STQ PTRS+ERREL 


TO 9R CONVERTED TO ASCCI 


cu 


LDO. TRNVEC 


¥ 

£1 


STA- 10,0 


, _ SAVE ERROR CODE IN TRANTA TABLE 

THE FOLLOWING ROUTINE CONVERTS THE ADDRESS 
OF THE VIOLATION _FROM HEXIDECIMAL TO ASCII 
AND PUTS IT IN THE MESSAGE BUFFER 
LOQ+ MIBUF 


El A 


STQ- 

ENQ 

ENA 


I 

3 

-0 


STA- (ZERO) ,B 


INQ 

SQM 


ElB 


-1 
E13 
UMP^ ElA 
LOA PTRS+ERREL 


LOQ+ MIBUF 


GET ADDRESS OF MESSAGE BUFFER 


M733 1109 


M7301111 
^^MSOS 4. QM73G1112 


M73Q1113 

M7301114 


+^MSOS 
’^ + MSOS 


M73Q1115 
M733 1116 
M7301117 
M73U1118 
OH7301119 
4, 0M733 1120 


++HSOS 


M7301121 
M7301122 
4. 0M73G1123 


^+MSOS 

^4MS0S 


4. QM7301124 
4. 0M73ail25 


»+MSOS 

++MSOS 


■+. UM73G1126 


+^MSOS 4, 


GM73j1127 

M7301128 

M73Q1129 

M730113Q 

1»+M7301131 


CLcAR OUT ERROR BUFFER SO UOBPRO 
DOESN'T PTINT MORE THAN THE ERROR 
MESSAGE 


++MSOS 

^^MSOS 

-•^+MSOS 

++MSOS 

^+MSOS 

'^+MSOS 

++MSCS 

++MSOS 


4. 0M75Q1132 
4. OM7301133 
4. 0M730 1134 
4. 0H73U1135 
4. OM7301136 
4. CM7301137 
4. GH73D1138 
4. 0M7301139 


»+MSOS 4.1+^M7301140 


o 


o 


(. ) 


o 

o 


I 


o 

o 


o 

o 

o 

o 


: I 



o 

o 

o 

>’D 

o 

o 

o 

o 

o 

o 


'^^MSOS 4.1^^M7301141 
♦♦HSOS 4.1»»M7301142 


o 


^^MSOS 4.1»^M730il43 
»^^HS0S 4.1’^’^H7301144 
»»MS0S 4.1»^M7331145 
M73i3ii46 

M 73 u 1147 


o 

r-i 

O 

o 


o 

Q 

o 

o 

o 

o 

n 


UPROTK 
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o 


C 737 » 

0832, 

1134, 

1143 






C: 

0336, 

0 405, 

0499, 

0508, 

0541, 

0549, 

0745, 

0749, 0750, 

0 83% 


0775, 

0836, 

0867 







: O 

0337, 

B338, 

0 368, 

0469 , 

0 625, 

0628, 

0 634, 

0720, 0740, 

0759 











V.-- 

0909, 

0950 








: O 

0780, 

0748 

0 821, 

1120 







0 o 

0988, 

103.5, 

1068 , 

10 7 7 








o 

o 

o 

o 

o 

o 


UPROTK 


PAGE 35 


date: Gl/27/99 


o 

S Y H B 0 L S 


O 

o 

o 

o 

U 

I 

o 

o 

I 


DEF. LINE 

NAME 

ADDRESS 

u 0 5 6 

PRT 

0 0 0 0 

0 060 

PRTER 

00 06 

0 0 71 

IPROCl 

00 0 8 

0 08 2 

K32 

0013 

0G83 

8EL0W2 

0014 

0 113 

A 

002B 

3119 

AO 2 

0033 

012 b 

AO 3 A 

003A 

0128 

AG3 

0D3C 

3134 

30MP 

0 0 42 

0 137 

AOS 

0045 

0143 

AlA 

004B 

0144 

A1 

004C 

0 150 

A15 

0052 

3153 

A2 

0 0 5 5 

0160 

AlF 

005D 

0161 

A4 

005E 

0168 

A 3 

0 066 

0184 

RESTB 

0 0 6 C 

0 2 0 6 

SAVA 

QG7F 

Q2G 7 

3AVI 

0030 

0 2 08 

3AVPR 

00 81 

0 209 

PTR 

0G82 

Q 210 

PCELL 

0083 

0 211 

PTRS 

008 4 

0 212 

RETURN 

0 0 8 5 

0 213 

INOIR 

0 08 6 

0214 

SAVG 

008 7 

0 216 

IND 

0088 

0 220 

SB 

00 8C 

0225 

B 

008E 

0229 

B1 

0092 

3 241 

B4 

G09E 

0256 

DOWNO 

GOAD 

0259 

ASAVA 

GOBI 

ii 260 

APTR 

0082 

0 261 

A PC ELL 

G0B3 

0269 

E 

0OB4 

0 271 

F 

0086 


o 


RE-ERENCED AT LINE NUMBER 


0277, 
0 0 58 
0 570 
0 0 77 

0568 , 

0 569, 

0570 , 

0571, 

3 103 
0117 
0124 
0 219 
0139 





0131, 

0136, 

Q 140 



0125, 

0147 

0142 




0149, 

0154 




3159 

0166 

0169, 

0172, 

0184, 

0182, 

0186, 

3 198, 

0199, 

0200, 

0 201, 

0202, 

0 0 71 , 

0254, 

0769 



0 0 74 , 

0 24 1 , 

0771 

0 h59 , 

0 ?' 7 3 , 

0 082, 

0 22-:? , 

0244, 

0 0 94, 

0113, 

0119, 

0129, 

0138, 

0 5 32 , 

0 795 



0 25 2, 

0 0 92 , 

0 0 9 3, 

0101, 

0229, 

0 0 9 3, 

0 -r7 0 , 

0569, 

1127 , 

1141 

0120, 

0 22C, 

0 70 4, 

0 705, 

u 72 5 , 

3 123, 

0128, 

0722, 

0972 

G369, 

0 0 72, 
0 200 
0187, 

0 249 , 

0 360, 

0 366, 

0189, 

0191, 

0195 


0 811 

0227 
0 2 28 
0233, 

0 25 7, 

0 827 



0234, 

0239 




3 232, 

0235 


0 240 


3 230 , 

0237, 

0238, 


0118, 

0555, 

0 875 


0194, 

0143 , 

Q 160 , 

0157, 

0184, 


0 57 2 


0187^ 


0 490 ^ 


0 82 A 
0 IL 4 1 

0253, 

0 974 , 

0 765 


u 19 6, 


o 


o 


0188, 
0520 , 

0189, 
0 719 

019,0 , 

0191, 

3192, 

0193, 0194, 

0 195, 

0196, 

019 7 

0 i 5 G , 

0:21 6, 

0 221, 

0231, 

0 250, 

0 318, 03 33 , 

■fl 485 , 

G492, 

0 52 9 

025b, 

3734, 

C 6 0 5 , 

0807 , 

0 818, 

1125 





0 975 


0199, 020i, 0202, 0342, 0417, 0568, 0714, 0914 


C 

O 

O 

o 

c 

o 

o 

o 

o 

o 

o 

o 


o 



o 
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date: 

01/27/99 

0 

u27Z 

FI 

00B7 

3 2 70 , 

0 463 




V..- 


3 27 6 

GET 

0089 

0 0 59, 

0 572 





o 

0288 

REQST 

OOC4 

Q116 





: 0 

0 289 

GETR 

00C5 

3 294, 

030 3 





G 291 

THREAD 

00C7 

0297 







0295 

GETMSB 

OOCB 








0296 

GETLS8 

OOCC 

0284 





0 


0 29 7 

CHKTHR 

OQCD ^ 

0 299 






0 30 G 

GETC 

OODO 

0 2 98 







0303 

GETERR 

0004 

3 3 00 






o 

0 3 0 -t 

GET TEH 

00D5 

0 083, 

0276, 

0301, 

1114 


0 

0 30 5 

PROTEN 

0006 

0 281 






0 311 

Y 

0007 

0185, 

018 6, 

C183 , 

019 0 




0314 

Y2 

OODC 

3412, 

0436, 

0 706 




0 

0 320 

Y1 

0QE4 

0362, 

0372 




r''\ 

0327 

X 

OOE 6 

0192, 

0 193, 

0 364 



■W 


0 333 

XI 

OOEE 

0331 







0342 

TOF 

00F8 

0335 







0 346 

ATEXP 

OOFC 

3 347 , 

0378 




c 

J 

0 350 

X14 

010 0 

035- 






0355 

X15 

010 5 

0 352 







C 361 

X16 

OluC 

3 380 , 

0382 






0 3 63 

X2 

QIGF 

0 332 





1 


0 3 64 

X3 

0110 








0 37-f 

TIME 

OllA 

3 350 







0 378 

TEXP 

QllE 

0345 







0 38 0 

TIMEXP 

OllF 







‘■--y 

0 3 8 7 

SGHCMP 

0122 

0 3 64 







0394 

SCH 

0129 

0392 







0397 

SCHl 

0120 

0 3 95 






r'\ 

G 40 0 

SCHJMP 

0130 

0 391 , 

0399 




Ct 


G-t04 

Z 

0131 

0197 







0 ‘♦11 

Z4 

013 8 

0416 







y 413 

Z3 

0138 

3 4Q7 






-ri 

0 417 

ZG 

013F 

0415, 

0 435, 

0515 



0 

■1^ 

0 422 

W 

0141 

0198 






0 427 

»^3A 

0147 

1095 





' 


0-29 

NlEWTAP 

0149 

0 42 6 







0 431 

W6 

014B 






0 


0 -+3 6 

W7 

0152 

0 430 , 

Q434 





f} 14 . £♦ 

G 

0153 

0 311, 

0327, 

0363, 

0-04, 

0 422, 0 557 



3+46 

G1 

0155 

3 450 







0-+51 

G15 

015A 

0 447 





; 0 

'■>-> 

0459 

3 2 

015B 

0-49, 

0494 





9 460 

G24 

016 0 

Q 428 







0-6- 

G25 

0162 

0 461 






O 

G -68 

G26 

0166 

0 465 





: 0 

C-7 9 

G3 

016E 

0 451 






G — B 0 

G8 

016F 

3 4 79 , 

0 482, 

Q 483, 

0 525, 

0 52 7 



0-95 

G4 

8182 

0-88, 

0 493 





o 

0-97 

G5 

0184 






0 

Q499 

3 1 

0186 

3 4 96 






0 50 4 

EQC 

Q18B 

3 511, 

0545, 

0551 





o 


o 
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D 50 8 

G6 

018F 

0 505 

0 515 

G65 

019 6 

0 5 07 

0 51b 

G7 

019 7 

3 5 00 , 

0 532 

G9 

01 A B 

0 538 

0539 

GID 

01B3 

0 537 

054 9 

TAGl 

0180 

0 5 46 

0 555 

TAG3 

01C3 

0 5 48 , 

0 5 5 6 

TAG2 

01C5 

3 5h2 , 

0568 

02 

OIC 7 

0574, 

0569 

33 

DIGS 

0 5 79 

0 57 0 

04 

01C9 

0 582 

0 571 

05 

OICA 

0 538 

0 572 

36 

QICB 

0 5 85 

0 573 

F3 

OICC 

3 0 57 

0 574 

STACK 

Q1C7 

3 4 4 0 , 

0575 

PRTA 

OICD 

3 0 60 

0 59 3 

PRTZRO 

01E4 

0 596 

0597 

PRTZ 

Q1E8 

0 5 95 

3 bO 3 

STX 

DIED 


0 611 

CCP 

020 6 

0 527 

0 614 

GCPDG 

020C 

3 619 

0 618 

GCPC 00 

0 211 

3 619 

0 621 

CCPO 

0214 

0 516 

0 645 

OCPl 

0228 

0 6 36 

0 654 

CADRS 

022F 

0 6 49 

0 65 5 

CAREF 

0 23u 

0 6 55 

0 657 

CAD RSI 

0233 

0 6 55 

0669 

JMP 

023E 

0 6 60 , 

0 670 

CCTEHP 

023F 

0 6 26, 

3 67 3 

chklu 

0 240 

3 423, 

0 6 7 6 

L0GTA8 

0246 

0 688 

0 683 

LUER 

024B 

0676, 

0 70 6 

MOTHS 

0 2 6 5 

0 7 03 

0 70 8 

CKCSY 

0267 

0 694 

0 70 9 

NTGSY 

0268 

Q 6 95 

0713 

MOTCSY 

0266 

0 6 98 , 

0 714 

LUERR 

026C 

0 5 83 

0 717 

H 

0 26 E 

0 314, 

0 725 

H2 

0279 

0 723 

0 732 

H25 

0282 

0 7 29 

0 73 6 

H3 

0288 

3 731 

0 737 

HH 

0289 

0320 

0 752 

HI 

0299 

0 7 41 , 

0 754 

H18 

Q29B 

0 258 

0 75 8 

H4 

029F 

0 7 55 

0 765 

K 

Q2A3 

0 473 , 

0781 

sav 

028 7 

0 7 26, 

0 7 8 9 

AREA 

0288 

0294, 

0 795 

C 

0288 

0104 

08C1 

Cl 

028F 

0 798 

0 802 

D 

0 2C0 

0 8 0 0 

3 80 4 

D1 

02C2 

3 814 

0312 

32 

02CD 

Q 8 0 6 


, Q512» 051A 


, 0483, 0t>7i 


0667 

0629 

0713, Q883 
0679 


0710 

0328, 0736 
0744, 0747 


0868 
n 763 

D302, 1108 


0601 
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DATE: 

01/27/99 




0 815 

33 

J 2DG 

3 810 






0 


0818 

rSTDIS 

0 201 

0801, 

0813 






o 

0824 

ISDISP 

0208 






0 62 8 

ATONE 

02DE 

3 826 






0 


0831 

ATI 

02E1 

0 8 09 







0835 

NOTDIS 

02E5 

0823 







o 

0 842 

TBCK 

Q2EC 

3 8 40 







0 845 

DOM V 

G2EF 

0 7 97 , 

,0 851, 

0904, 

0910 , 

0943, 0951 


: 0 


0 849 

ADR 

Q2F3 

0842 , 

0 8 46 





0855 

PROT 

02FA 

9 848, 

0852 






o 

0 856 

TSOK 

02FB 

0 854 






0 858 

TRYEIN 

02FO 

0874 






0 


0 866 

ISINT 

030 5 

0863 







0869 

NQTEIN 

0309 

3 861 , 

0 865 






o 

0 8 7 5 

NOEIN 

030 F 

0 7 35 , 

0 815, 

0 855 , 

0872 





0 876 

VIOL 

0 311 

0 836, 

0666, 

0669 



■ 0 


G882 

J 

0 312 

0312, 

0411, 

0915 





0888 

J2B 

031A 

0 8 86 





o 

0 889 

J2C 

031B 







0896 

J4 

0322 







0 


0 893 

J43 

0324 

0 895 








0 90 0 

J44 

0326 

0 898 







o 

0 9C8 

J45 

032E 

0905 







0 914 
0915 

J7 

J8 

0334 
033 6 

0 9 01 , 
3 899, 

0907, 
0 913 

0911, 

0934, 

0955, 0963, 

0984 

^ 0 

o 

0 916 

0923 

0924 

0925 

SAVQl 
LOGS 
RCODE 
WRI NO 

033 7 

0338 

0339 
033A 

0 837 , 
0890 , 
0156, 
3 8 94, 

0 856 
0977 
0163, 
0 897, 

0168, 

0937, 

0 329, 
1089 

0489, 0516, 

0718, 0742, G'892, 0985 , 1056 

; 0 


0 92 7 

L 

Q33B 

0 313 , 

1 096 




o 

0 935 

LQl 

0343 

0 931 , 

0933 






0941 

LI 

0 4 8 





■ 0 


0947 

L4 

G34F 









0 955 

L4A 

0356 

3 9 44, 

0 946 , 

G952 






0 9 5 5 

L5 

0357 

0 939, 

0954 






0964 

L5 D 

0360 

0 950 





■ ® 


Q96& 

L50A 

0362 

9 952 








e 96 7 

L6 

0364 

0965 








0972 

L6A 

0369 

9 969 








0977 

L7 

0371 

0 971 






0 


0 982 

L8 

0376 

3973, 

0 976 






0 984 

L84 

0378 

10 06, 

1037, 

1055, 

1088 




o 

0985 

L85 

0379 

3 983 





3992 

L9 

0380 






■ 0 


0 994 

L9A 

0383 

3991 







0 996 

LIO 

0385 

0 993 







o 

0 993 

Liu A 

0387 

0995 







1000 

LGlA 

0389 

0998 






■ 0 


10 0 6 

LOIER 

Q38F 

1001 







10u7 

LOIGO 

0390 

10 02 , 

1CG5 






o 

ti312 

LQIGOA 

0395 

1008 






1017 

LOluB 

Q39A 

1014 






0 


1021 

PCKl 

Q39E 
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DATE 

102 5 

LC 10 

D3A2 

3999 



10 27 

Lfl 1 G A 

03A4 

1025 



1037 

LER 

Q3AE 

1018, 

1028, 

1030 

1038 

Lll 

D3AF 

1333, 

1036 


1044 

GOODAO 

038-^ 

10 24 



10 4 8 

PCK2 ' 

0385 




10 4 6 

PCK3 

03B6 

1042 , 

1044 


1049 ■ 

?CK4 

03B9 

10 47, 

1083 


1^51 

GOMV4 

03BC 

LQ 84 



IG 56 

PXO 

Q3C1 

1052, 

1054 


1064 

PXOl 

G3CA 

1062 



1069 

?X1 

03CF 

10 65 



1G72 

PX2 

0302 

1058 



1078 

PX3 

0308 

10 75 



1Q83 

PX4 

03DD 

1071, 

1081 


10 89 

P 

03E3 

3 9 65 , 

1026, 

1048, 1085 

1093 

PO 1 

03E8 

1091 



10 9 5 

PI 

03EA 

08 87 



1Q9 6 

P2 

03EC 

1094 



109 7 

N96 

03EE 

10 09, 

1023, 

10 61, 1080 

1098 

HOLD 

03EF 

0690 , 

0 956, 

1093 

1099 

LIFLAG 

0 3F 0 

0990, 

1046 


HDD ■ 

LSACl 

OQQ A 

1101 



llGl 

LSUCl 

GGOB 

'1102 



1102 

LTLGi 

0420 

1103 



1104 

PRTEND 

042G 

0 277 



1113 

GETGO 

0420 




1117 ■ 

ERR 

0426 

1115 



1118 

ERRSCH 

0 42/ 

■ 1119 



1121 

ERRA 

042 A 

1119 



1128 

EG 

0 43 4 

1124 



1133 

El 

0 43 7 




113 7 

ElA 

0 43 C 

1140 



1141 

ElB 

0 44 0 

1139 




01/27/99 


1087 
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EXTERNALS 


def.line 

name 

VALUE 

RE- EREN 

GED AT 

LINE NUMBER 

QGC8 

LOGIA 

0246 

a 678 



QQ 08 

HA 

0 4-46 

1144 



Q0C9 

GOMPV-+ 

038C 

0133, 

0 503, 

0728, 0844, 1050 

0 010 

MIBUF 

0443 

1133 , 

1142 


0 ull 

HAXSEC 

038A 

10 49 



DO 12 

LOADIN 

0 381 

0992 



0013 

UNPIO 

0QE3 

0 319 



0014 

UNPTIM 

OlOD 

3 361 



0 0 15 

TMRTYP 

OOFQ 

a 334 



0 016 

SWAPCK 

G20B 

3513 



QC17 

JKIN 

OlDC 

0 5 86 



0018 

JBCNFG 

0238 

3273, 

0 394, 

0662 

OQ 19 

TRNVEC 

0‘+3 5 

3 589 , 

1128 


0 0 20 

PRORET 

01E9 

0597 



DC 22 

FILES 

OICC 

0573 



0 0 23 

IPl 

01D8 

3 583 



0 0 2 4 

LOCF 

0 IDO 

0577 



0024 

LPTRS 

0104 

0580 



0 025 

PROTEC 

0 0 06 

0 305 



3 0 2 6 

JKILL 

0-f4 B 

1115, 

1148 


0 027 

3WAPON 

02GE 

0 615 
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date: 01/27/99 


^ r- ^ T n ^ \ c;nPT OF SYMBOLS 
ttLPHABETICAL Su<i 


A 

A 2 

ATEXP 

C 

CCPD 00 
G04PV4 

oowno 

ERREL 

G15 

Go 

getlsr 

H25 

I^DIR 

Jw 5 

J9GHFG 
L G 1 0 A 
Lll 
LB 

ldgf 

LTLOl 

M 

NTOSY 
P3 1 
PRLVL 
PRTLEN 
PX3 
S A V P R 

sa^ 

T3GK 

YFIN 

W7 

Y 


0113 
u 15 3 
0346 
0 795 
G618 
000 9 
0 25 6 
1108 
0 451 
0 60 8 
0296 
u732 
C 21 3 
u048 
0 018 
1027 
1038 
0932 
0 92 4 
1102 
0030 
0709 
1093 
0 03 2 
0601 
1078 
0 20 8 
0781 
0842 
0858 
G 43 b 
0311 


A02 

A4 

ATONE 

Cl 

CCPl 

COMV 

E 

ERRSCH 

G2 

G65 

GETHSB 

H3 

I PI 

J2B 

JKILL 

LOlOB 

L4 

L84 

LOGS 

LUABS 

N9o 

NZERO 

PI 

PRO RET 

PRTZ 

PX4 

s Ava 

STACK 

TEXP 

TSOK 

WRIND 

Y1 


3 119 
C161 
0 828 
0 801 
0 645 
0 8 45 
3 269 
1118 
0459 
G515 
0295 
0736 
0 0 23 
0888 
0 026 
1017 
0947 
0984 
3 92 3 
0 0 34 
1097 
0 0 33 
1095 
002u 
0 597 
1083 
3 214 
0 574 
3378 
0 855 
0 925 
9 32 Q 


A03 

A5 

B 

CABS 

CCTENP 

COMV4 

EG 

F 

G24 

G7 

GETR 

H4 

IPROCl 
J2C 
JKIN 
LOIA 
L4A 
L8 5 
LOGtA 
LUER 
NABS 
02 
P2 

PROT 

PRTZRO 

RCOOE 

SAVQl 

STLEN 

THREAD 

TSTOIS 

X 

Y2 


0128 
0168 
3 225 
0033 
Q 670 
1051 
1128 
3 271 
0 463 
3 515 
0 2 89 
0 7 58 
0Q71' 
0 889 
0 017 
1000 
0 9 55 
0 9 85 
0 0 08 
0683 
3 033 
3 5 68 
10 96 
0855 
0 593 
0924 
3 916 
06Q2 
0291 
0818 
0 32 7 
0314 


Au3A 

ADR 

B1 

CADRS 

CHKLU 

COUNT 

El 

FI 

G25 

G8 

GETTEM 

H7FFF 

ISOISP 

J4 

JMP 

LOIER 

L5 

L9 

LOGTAB 
LUERR 
NEW TAP 
03 

PCELL 

PRO TEC 

PTR 

REQST 

SGH 

STX 

TIME 

UHPIO 

XI 

Z 


0126 

0849 

0229 

065 
0673 
0039 
1133 
0272 
04D4 
0 48 0 
0304 
0033 
0824 
0 896 

066 9 
19 0 6 
095 6 
0992 

067 3 
0714 
0429 
056 9 
0 210 
0 0 25 
0209 
0288 
0394 
060 3 
0374 
0013 
0333 
040 4 


AQ5 

APCELL 

R^. 

CADRS 1 
CHKTHR 
D 

ElA 

F3 

G26 

G9 

G009AD 

HA 

ISINT 

Jh-3 

K 

LOIGO 

L5Q 

L9 A 

LPMSK 

MASKT 

NOEIN 

04 

PCKl 

PROTEN 

PTRS 

REOTB 

SCHl 

SWAPCK 

TIMEXP 

UNPTIM 

X14 

zo 


O 


0 l4 4 
0 26 0 
0 220 
0 65 5 

070 8 
0 80 4 
1141 
0 022 
0 479 
0276 

071 7 
0737 
0882 
0 90 0 
0082 
1G12 
0966 
1037 
0 035 
0044 
0713 
0 571 
1045 
0 056 
1356 
Q212 
0387 
0 027 
00,15 
0876 
0 35 5 
0 413 


A15 

AREA 

BELOW2 

CCP 

GNOTE 

02 

Eac 

G 

64 

GETC 

Hi 

HOLD 

JOl 

J45 

L 

LI 

L6 

LI8LU 
LPTR5 
MAX SEC 

notois 

06 

PCK3 

PRTA 

PXOl 

SABS 

SCHJMP 

TAGl 

TOP 

W 

X16 

Z4 


015 0 
0789 
0 0 83 
0611 
0032 
0 812 
0 5 0 4 
0444 
0 49 5 
0 30 0 
0752 
1098 
0 0 45 
0 90 8 
0 92 7 
094 1 
096 7 
0 0 3 6 
U024 
0011 
0 335 
0572 

IQ 4D 

C :? 7 5 
10 6 >+ 
0 033 
040 Q 
0 5 49 
0342 
0422 
0361 
0411 


AlA 

ASAVA 

eoTOP 

CCPO 

CODE 

D3 

ERR 

G1 

G5 

GETERR 

HIB 

I 

J02 

J7 

LOl 

LID 

L6A 

LIFLAG 

LSAOl 

HI8UF 

NOTEIN 

ONEBIT 

PCK4 

PRTENO 

PXl 

SAVA 

SIZE 

TAG2 

topmon 

W3A 

X2 

ZERO 


0143 ' 
0 25 9 
0 034 
0621 
0 029 
0 81 5 
ill 7 
0 446 
0 497 
0 30 3 
■ 0 754 
0000 
fl 04 6 
0 914 
0935 

0 996 
\ 0972 

1099 

1 10 u 
uulQ 
0 869 

0 036 

1 04 9 
1104 
1069 
0206 
0 031 
*3 55 6 
0034 
0 42 7 
0*36 3 
0 U32 


A IF 
ATI 
BUFF 
GCPQQ 
COMP 
QISP 
ERRA 
GIO 
G51 
GETGO 
H2 
IMD 
• J06 
J8 

LfllO 

LlOA 

L7 

LOADIM 

LSUOl 

MMATOP 

MOTHS 

P 

PRESET 

PRTER 

PX2 

5AVI 

SIZEGR 

TAG3 

TRNVEG 

W6 

X 3 

ZROBIT 


0 160 
0631 
0042 
0614 
0134 
0G35 
1121 
0539 
0.4 99 
1113 
0725 
0216 
0047 
0915 
1025 
0996 
0977 

Quiz 
1101 
DG37 
0 706 
1089 
C035 
0060 
1G72 
0207 
0037 
0 555 
CC19 
0431 
0 364 
0036 


BPROTK 


PftGE 


□ate; 01/27/99 


00 0 1 
0002 
0 j 0 c! 

00 C A 
0 0 0 5 


* 

¥ 


NAM BPROTK DECK-ID H?h MSOS 5.0 

BUFFERED PROTECT PROCESSOR _ 

MASS STORAGE OPERATING SYSTEM VERSION^^^.G 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197b 


SUMMARY-11 5*-^ 

M74Q 0 0 0 2 
M74000C3 
M7400004 
M74Q0 005 


00 0 3 
0 0 0 9 
0010 
0011 
0G12 
0013 
00 14 
0015 
00 16 
0017 
0318 
Q019 
00 2 0 
0021 
0022 
00 2 3 
00 2 4 
0 0 2 5 
0 3 2 6 
0127 


09 2 8 

0013 

0 0 29 

u 0 05 

0 0 3 0 

0 0 40 

00 31 

0 0 EF 
Q Q 22 
0028 
0 0B7 

0^52 

0 012 
DC BE 
0 0 BO 
Q 0 BF 

0133 

0 0F7 
C0F6 
ODBC 

0 3 3 4 

0 0F2 
OOFl 
D OEA 

GG35 

0023 
0 033 
0 QC2 

00 3 6 

COCO 
0 0 F5 

00 3 7 

0011 

0 0 3 8 

0 0B8 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT’ 

PART 

ECU 

EQU 

Eau 

EQU 


TIMER TYPE IN SYSTEM 


LOGIA ,HA 
GOMPV4 
MIBUF 
MAX3EC 
LOADIN 
UNPIO 
UNPTIM 
TMRTYP 
SWAPCK 
JKIN 
J3CNFG 
TRNVEC 
PRQRET 
C0MPV4 
FILE3 
I PI 

LOCF,LPTRS 
PROTEC 

1*^REQ. ALLOWED FROM UNPROTECTED CORE 
C00E(19) 

N (5 ) 

SIZEt 13’N-1) 

PRLVL (BEFJ ,Z£RO {$22 ) ,CHOTE ($2B) ,MASKT ($B-7) 


”MSOS -4- 
”MSOS 4 


JOB CANCEL 
ABS. ADOR. 
RETURN LOG. 


LIMIT CHECK, IN TRVeC 


WAIT FLAG 

OF TRANTA BUFFER IN JOBENT 
FOR PROTEC (TRVEC) 


M74Q 0QQ8 
0M7400Q09 
UM74U 0010 
M740 0 Oil 
M7400012 
M7400013 
M743Q014 
M740u015 
M74Q001& 
M74G0017 
M743C018 
(TRVEC)M7400019 
M74oaa2G 


MAX NUHBcR OF STACKED REQ. 


”MSOS 4. l”M74Da021 
M7430022 
M74Q0 023 
M74DQ024 
M7^G0025 
M7400026 
■”MSOS 4.DM743 U027 
”MSOS 4.uM74GuQ28 
M74 j Li <329 
’•’MSOS 4.0M74CU030 
M7400U31 


EQU NZERO (S12) , CA OS ( $BE ) , SABS ( $BD ) , NA BS C$ BF ) 


M7400Q32 


EQU TOP MON ($F7),BOTOP($F6), LU ABS (SBC) 
EQU PRESET (SF2 ), LPREST ($F1) ,DISP($EA) 


M74GU 033 
M7 43 0 03 4 


EQU ON£BIT($23) ,ZROBIT($33) ,LIBLU($C2) 


M7400G35 


EQU MHATaP($C0) ,SIZECR($F5) 


M743 0 03 6 


EQU H7FFF($11) 
EQU C0UMT{$88) 


M74G 0 037 
M7400 038 


0G39 
OG 40 
Oj if 1 
00 42 
0043 
0 0 4 4 
0 3 4t? 
0 D 4 b 
0 D 4 7 


0 0 49 

0051 
0 3 5 2 
0 0 53 

QQ54 

0055 
0 0 5 6 
00 57 
0 0 5 8 
0 0 5 9 


0 J oi 


00 8 5 
00 8 4 
0 3 8 5 


BPROTK 


PAGE 2 



DATE: 

0 1/27/99 

0 0 02 

EQU 

LPMSK (2 ) 





V- 

* 

S- ¥• 


if 



0 Q DO 

EQU 

BUFF {$D0 ) 

SIZE 

OF 

JBKILL 

OVERLAY 



¥ ^ 




V- 

08C2 

EQU 

MASLU ($ 802) 





0 0 01 

EQU 

JQl (1) 





0 0 02 

EQU 

JG2 (2 ) 





0 0 06 

EQU 

J08 ( 6 ) 





0 0 08 

EQU 

J 05 ( 3 ) 






o 

M740 0 039 

^ '■ «^^MSOS 4. GM74Q 0 Q40 

^-MSGS 4.uH740Q04i 
>!■ ^^HSOS 4.0M7400042 

M7400043 
M7 4U 0 0 4 4 
M7‘+0 0 045 
M740 0 046 
M7400047 

o 


o 

o 






4*&M74D0Q 


if. 

if. 


THIS VERSIO'^ WILL 00 CORE SWAPS WHILc BUFFERtO 

I/O IS IM PROGRESS UNDER THE FOLLOWING RULES . 

8UFSIZ IS THE MAXIMUN BUFFERED TRANSFERS THAT WILL 

qp flTTFMPTFO ’■^NSOS 

BUFFERED DATA TRANSFERS WILL BE ATTEMPTED IF*.. ^^MSOS 

1. THE OeIiCE IS NOT A MASS STORAGE TYPE (EQUIPMENT CL^^MSOS 

2. THE TRANSFER IS LESS THAN OR EQUAL TO BUFSIZ HmIRI 

3. THERE ARE NO BUFFERED TRANSFERS IN PROGRESS ’^^MSOS 

IF THERE ARE THE I/O WILL BE PROCESSED UNBUFFERED ^’MSOS 


M7hQ 0 0 5 i 
M740G052 
4«0M74Q0 u 53 
4. 0M740 0054 
4. QM74QQ 055 
4.0M7400Q56 
■4. 0M7400 057 
4. OM7400058 
i*. CM7-^u 0 059 


o 

o 

o 


^MSOS H.0M7400061 



EXT 

UNPIOF 

BUFFERED I-O FLAG 


EXT 

SWAPON 


DO 60 

EQU 

BUF3IZ( 96) 



»*HSOS 4.0M74Q0053 
-^MSOS 4,l3M74G0 064 
»^MSOS 4. 0M740 0 085 


o 





BPROTK 

=^AGE 3 

OATES 01/27/99 



w 

0053 







M74D0 u68 


GD59 







M74D 0059 

o 

QQ r a 

PQOOQ 

C8FE 

PRT 

NUH $C8FE 

PICK UP PRECEEDING WORD 


M743 0 0 70 

03 71 

POOu i 

6CiiO 


STA (F3) 



M7 40 0071 



PO 002 

01D8 







GQ72 

P 0 0 3 3 

01 62 


sap PRTER-^-l 

CHECK Q TO SEE IF JBKILL IS REQUESTED 

M7U00072 

C) 

QG 73 

PO 0 0 4 

1800 


JHP GET 

GO BRING IN JBKILL 


: M740U073 


PO 005 

0 Q B4 







0 D 7 T 

P 0 0 0 6 

1800 

PRTE^ 

JMP PRTA 



M 74G u 0 7 H 



P0uQ7 

0104 






o 

00 7 5 







M740 O 075 

00 7 6 







M7400076 


0G77 




THIS PROGRAM OPERATES AT LEVEL ONE AND IS NOT 


M7400G77 


00 78 




RE-ENTRANT AS NO 

PROTECT VIOLATIONS OCCUR ABOVE 


M7400 078 

o 

0D79 




LEVEL 1. IT PROGE 

SSES ALL PROTECT VIOLATIONS 


M74QuQ79 

0Q8Q 



V- 

INCLUDING ILLEGAL 

VIOLATIONS, UNPROTECTED 


M740Q08C 


0031 



3f. 

PROTECTEJ COMMUNICATION AN UNPROTCTEU MONITOR 


H7400081 


Q0S2 




CALLS. IT DOES VALIDITY CHECKING FOR MONITOR 


M7400Q82 

o 

0 0 3 3 




CALLS WHICH NEED 

IT. 


M740 0 083 


0 0 85 

POO 08 

6877 

iPRo:;i 

STA^ SAVA 

SAVE A 


M7‘t0 0 085 

o 

0- 3o 

P0009 

487E 


STQ^ SAVa 

Q 


M7h0008d 

00 8 7 

POO OA 

GOFF , 


LOA- I 



M7itu u 087 


0038 

PO 008 

6 8 75 


STA^^ SAVI 

I 


M74Q0088 


0 3 3 9 

PO 0 fl c 

COEF 


LDA- PRLVL 


^^MSOS 

-t. 0M740 0 039 

0 

0 0 9 0 

POOOD 

E4E9 


LOQ- ($E3) 

b5K MODE SWITCH 65K=1 

*^^MSOS 

t. uM740 0a9t3 

u j 9 1 

POuOE 

01 


SQZ K32-^-l 


«^^HSOS' 

4. 0M740OG91 


0u32 

POOQF 

AQ 11 


AND- LPMSK+15 


^^MSOS 

4. flM74Q0Q92 


GC93 

poaiQ 

lilBl 


SNO 1 


^^MSOS 

4. 0M74G0093 

0 

0u9n 

POOH 

BO 32 


EOR- ONEBIT+15 


■■^^MSOS 

4. OM7400094 

0 3 9 5 

P0012 

0 1 AO 


SOV 0 


^'^HSOS 

4.GM7h00095 


0 j 96 

P0013 

686E 

K32 

STA^ SAVPR 


i^^MSOS 

4. 0M740GQ96 


0.9^ 

P 0 0 1 it 

CBOO 

BEL0W2 

LOA GLTTEM 

IF NONZERO JOB IS BbING TERNIMAIED 

»>fMSOS 

4. 0M74-3 0 09 7 



PO Q15 

OOCO 






0 0 3 8 

P0G16 

0 101 


SAZ 1 

IF JOB CANCEL FLAG NOT SET - GO ON 


M74QQ098 


0 0 99 

P0D17 

IAEA 


JMP- (SEA) 

SET - GO AWAY 


M7400099 


oloa 

P0018 

C42B 


LDA- (CNOTE) 



M74jai00 
H. QM74G 0101 

o 

0101 

P0019 

E4E9 


LOQ- ($E9) 

65K MODE SWITCH 65K=1 

^^MSOS 

CIO 2 

POulA 

0 1 51 


SQN 1 


’^^HSOS 

4. 0M7400102 


013 3 

POGIB 

AO 11 


AND- NZERO-1 

CLEAR OVERFLOW INDICATOR 


H7400103 


0104 





IF IT WAS A CALL TO A SYSTEM 


M74a01G4 


010 5 

POQIC 

09FD 


INA -2 

MODULE, PCELL CONTAINS THE 


M7400105 


0106 

POQID 

6 8 66 


STA^'- PCELL 

LOCATION OF THE MARK. 


M7400106 


010 7 

POOIE 

CC65 


LDA^ iPCELL) 



H74Q01Q7 


Clu8 

POOIF 

6 8 63 


STA^ PTR 

SAVE MARK TWICE 


M743 0108 

o 

0109 

PQ020 

68 64 


STA^ PTRS 



M74'3 0109 

0113 

P0021 

OGOl 


ENQ 1 

SET UP LEVEL 1 


H7490110 


am 

P0 022 

4 0 EF 


STQ- PRLVL 



M740Q111 


0112 

P0D23 

C6B7 


LDA- CMASKT) ,0 



M7400 112 


0113 

P0024 

0400 


EIN 



, M74j0113 


oil ^ 

P0u25 

0821 


TRA M 



M74QG114 


0115 

P0026 

C8 50 


LDA’^ PCELL 


^‘^^HSOS 

4. 0M7400 11 5 


o 

o 

C' 

o 

r^. 


O 

0 

0 


O 

o 

o 

o 


o 


c 


BPROTK 


PftGE 




date: ul/27/99 


0116 P0027 90F4 
U117 P0028 0102 
0118 P0029 1800 
P002A 0365 


SUB- $F4 
SAZ A-^-1 
JMP C 


CONTAIN AN RTJ- ($Fh). 

60 CHECK FOR ENTRY TO A PRESET 


^^MSOS 4. DM741Q 11 6 
M74Q0 117 
M7430118 


BPROTK 


PAGE 


date: Oi/27/99 


0121 

0122 

0123 

012^ 

0125 


* 


THE interrupt ^AS PROBABLY A MONITOR GALL. 

therefore^^t pqinj to li, PARAMETER^LIST 
2. PCELL CONTENTS MUST BE THE ADDRESS OF 
MONI. 


Q12 7 
0128 

0129 

0130 


0131 

0132 


0133 
D13-^ 
0135 
013 b 

0137 

0138 

0139 
Oi^u 

0141 

0142 

0143 

0144 

0145 

0146 
U147 


0148 

0149 

0150 

0151 

0152 

0153 
015'+ 
0155 
0 1 5 o 

0157 

0158 
015 9 
015 0 


0161 

0152 

0153 
015 4 
Cl 1 6 5 


0156 

0157 

0158 
0169 


P0028 

ES57 


A 

LDQ^ 

PTR 

PG02C 

OOFE 



INQ - 

•1 

P002D 

C622 



LDA- 

(ZERO) , Q 

P002E 

98 00 



SUB 

REQST 

P0Q2F 

0 095 





P0030 

0102 



SAZ 

A02-^-l 

P0031 

1800 



JMP 

E 

P0Q32 

0 0 82 





PO 0 3 3 

E3 4F 


A02 

LDQ"^ 

PT R 

P0034 

4851 



STQ^ 

RET JRN 

P0035 

C622 



LDA- 

(ZERO) ,Q 

P0G36 

GCOQ 



ENQ 

0 

P0037 

48 4F 



STQ^ 

IMDIR 

P0033 

0131 



SAM 

A03A 

PQ039 

1&13 



JMP» 

A1 

P003A 

0 C C 1 


AG3A 

ENQ 

1 

P003B 

B021 



EOR- 

NZERO+15 

P003C 

48 4A 


A03 

STQ^ 

INDIR 

P003D 

6845 



STA'^ 

PTR 

PG03E 

E0F7 



LDQ- 

TOPMON 

P003F 

OlOB 



SAZ 

AlA 

P0040 

09FE 



INA 

-1 

P0041 

5400 

X 


RTJ 

COMPV4 

POO 42 

7FFF 

X 





0 0 42 

p 


EQU 

COMP (^-1) 

P0043 

09 00 



INA 

0 

PO 044 

0106 



SAZ 

AlA 

PQQ45 

E0F6 


A05 

LDQ- 

80T0P 

P0Q46 

C83C 



LDA^ 

PTR 

P0Q47 

5CFA 



RTJ^ 

(COMP) 

P0048 

Q1D2 



SAZ 

AlA 

P0049 

Q900 



INA 

0 

P Q 0 4 A 

0101 



SAZ 

A1 

P004B 

1 8 6B 


AlA 

JMP^ 

F 

P004C 

E836 


A1 

LDQ^ 

PTR 

POQ 4 D 

E622 



LDQ- 

(ZERO),Q 

PO G4E 

0F69 



LRS 

9 

POQ 4 F 

0122 



SAP 

A15 

P005U 

0F66 



LRS 

6 

PG051 

Q13B 



SAM 

AIF 

P0Q52 

E830 


A15 

LOQ^ 

PT R 

P0053 

C622 



LDA- 

(ZERO) ,Q 

P0054 

AO IB 



AND- 

NZERO+9 

PO uaS 

G F 49 


A2 

ARS 

9 

P 0 'J 5 6 

01 36 



SAM 

A 1 - - - 1 

P0Q57 

A007 



AND- 

NZERO-11 


A MONITOR CA-- OHEN 
LOCATION BEFORE 
THE MARK MUST 
i nr.. RFFORF THE MARK MUST 


ENTRY, WE HAVE A PROTECT 
VIOLATION 


^f-^MSOS 

=^'^HSOS 

^^MSOS 


»»MSOS 


SET RETURN LOCATION 
LIST WORD 
SET INDIRECT FLAG 

BIT 15 SET IF INDIRECT 
BIT 15 NOT SET IF DIRECT 
SET INDIRECT FLAG TO 1 
CLEAR INDIRECT BIT 

SET PTR TO PAR. LIST LOCATION 

ERROR IF PARAMETER SIRING AT AODR.O 
MAKE SURE THAT THE INDIRECT 
ADDRESS IS IN UNPROTECTED CORE 


^■^MSOS 

^-«^MSOS 


*^MSOS 

«-^MSOS 

»^MSOS 


^^MSOS 


IT ISN'T 

SEE IF IT IS BELOW TOP OF 

COMPARE ADDRESSES 
AT TOP+1 OF UNPROTECTED 
CHECK FOR -0 

BFLOW TOP OF UNPROTECTED 
ABORT THE JOB 

D AND X BITS MAY NOT BOTH BE SET 


«^^HSOS 
^*MSOS 
^ '’^M SO S 
UNPROTECTE^’^MSOS 
^^MSOS 
»»MSOS 


’i^^MSOS 

♦^MSOS 

^^HSOS 

^^-MSOS 

^^MSOS 

»»MSOS 

^^HSOS 

^^MSOS 

»*MSOS 


UNPACK REQUEST CODE 


REQUEST CODE GREATER THAN MAX 
MASK OFF D FIELD 


^^MSOS 


M7450121 
M7400122 
M7400123 
M74u 0124 
M74D0125 


4. 0M74S0127 
■+. DM7400128 
4. 0M7430129 
4. 0M7400130 

M7400131 
4. OM74G0132 

M74U0133 
M7400134 
-f. GH7400135 
M740 0 136 
4. OM7400137 
M7400138 
M7430139 
M7400 140 
M74D0141 
4. aM740Q142 
4. uM7400l43 
4. OM7400144 
M7400145 
M74a0146 
4. 0M743 0147 

4. 0H7430148 
4. QM7400149 
4*iJM740G15G 
4. 0M7400151 
4. GM74C0152 
4. GM74U0153 
M74QG 154 
M7 40 0 15 5 
M7400156 
H. 0M7400157 
,4. 0M74Q0158 
,4. 0M740Q159 
,4..0M740 s 3160 
'4. 0M7400161 
V. aM740 0152 
4. DM7400163 
4. 0M74C 0164 
4. 0M74DQ165 
M7400166 
M740 0167 
M7430168 
4. aM7400169 


RPpnTi^ 


PAGE 


o 


DATE: 01/27/99 



o 

o 

o 

o 

0 

1 'i 


H740G17G 


O 


M74Q0i7i 
M7400172 
H74Q0173 
M7400174 
-^MSOS 4. 0H740ai75 
^^MSOS ‘t.0M7H00176 
^^MSOS GM74J 0177 

^^‘MSOS 4.GM740 0178 
M740 0179 
M74 J 0 18 u 
M7400181 
^‘^MSOS Hr.OM740 0182 

^^MSOS 4. GM74i}0183 
I’^D M74Q0134 

M743 0 185 
M740018D 
M74G 0187 


O 


O 


o 


o 


o 


o 


o 


n 


o 

o 

o 

o 

c 


BPROTK 
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date: 01/27/99 




0191 



¥ 

THIS 

TABLE IS INDEXED BY REQUEST CODE. 

IT 


M7400191 


0192 




CONTAINS THE LENGTH OF THE PARAMETER LIST IN THE 

■■ M740 Q192 


0193 





^ UPPER 4 BITS 

AND THE 

DISTANCE. TO 

M74Q0193 

{'^'\ 

■ 019it 




PROCESSORS IN BITS 0-10. 



M7A00194 


0195 




BIT 

11=1 FOR REQUESTS WHICH ARE STACKED 

BUT 


M74Q0195 


0196 



if. 

NOT 

THREAD ED . 



M74j0196 

,-*-v 

'O 

0198 

PO 06C 

Q 0 AA 

REQT3 

AOC 

F-REQTB 



M74G0198 


0199 

PG06D 

6 0 6B 


ADC 

Y-REQTB+$600 0 READ 

1 


M74D0199 


0 2CQ 

PO 06E 

60 6B 


ADC 

Y-REQTB+$6D00 WRITE 

2 


M740 0 20 0 


0 20 1 

P0 06F 

2020 


ADC 

BB-REQTD+$20 0 0 STATUS 

3 

^+MSOS 

4. GM7400 201 


C2D 2 

P00 7Q 

60 6B 


AOC 

Y-REQT3+$6000 FREAD 



M740G202 


020 3 

P0071 

10 20 


ADC 

88-REQTB+$1000 EXIT 

5 

+^MSOS 

4. UM7400203 


0? 0 - 

PQC72 

606B 


ADC 

Y-REQTB+B6000 FWRITE 

6 


M7400204 

/ ^ 

02 0 5 

POO 73 

1020 


ADC 

BB-REQTB+SlOO 0 LOADER 

7 

^+MSOS 

4. GM74D0205 

1 

0206 

P0074 

3882 


ADC 

X-REQT3 +$3800 TIMER 

8 

-^MSOS 

4. 0M749 0 20 6 


02 0 7 

PO 075 

2882 


ADC 

X-REQTB+$28G0 SCHDLE 

9 


M740u2G7 


020 8 

P0G76 

0 0 4A 


ADC 

F-REQTB SPACE 

10 


M74002G8 


0 20 9 

P0077 

10 20 


AOC 

Bb-REQT8+$10GQ CORE 

11 

^+MSDS 

4. 0M74Q 0209 


0210 

P0Q78 

0 0 AA 


ADC 

F-REQTB RELEAS 

12 


M740Q21G 


' 0211 

P 0 079 

AOCD 


ADC 

£Z-R£QTB+$230.0) GTFILE 

13 

»+MSOS 

4. 0M74GU211 


0212 

P007A 

50E0 


ADC 

H-R£QTB+$5uOO TAPE 

14 


H740 0212 


0213 

P0 07B 

0 0 4A 


ADC 

F-REQTB 

15 

+»MSOS 

4. QM7400213 


GZi^t 

P007C 

loic 


ADC 

IND-REQTB+$100fl PARTI INOIR 

16 

»+MSOS 

4.uM74a0214 


U215 

P0u7D 

0 0 4A 


ADC 

F-REQT3 PARTITIONED CORE 

17 

+^MSOS 

4, 0M7400 215 


0216 

P0Q7E 

0 0 4A 


ADC 

F-REQTB DIR. SCHOLE 

18 

++MSOS 

4. 0M74DQ216 



C218 



♦ 

THE 

FOLLOWING LOCATIONS ARE USED 

FOR 

STORING 

H74002i8 


0219 



V- 

APPLICABLE PARAMETERS UPON ENTRY 

TO 

PROTECT 

M7400219 


0 22 0 

P00 7F 

0 0 00 

SAVA 

NUN 

0 



M74fl022G 


022 1 

FuOSC 

OQDO 

SAVI 

NUM 

Q 



M7400 221 


0222 

P0 081 

0 0 0 0 

SAVPR 

NUM 

0 



M740Q222 

O 

G223 

PO u82 

0 0 00 

PTR 

NUM 

0 



M740 022 3 

0224 

P0u83 

0 0 00 

PCELL 

NUM 

0 



M74Q0224 


0225 

PO 084 

0 0 0 0 

PTR5 

NUM 

0 



M7400225 


022o 

P0085 

00 00 

RETURN 

NUM 

0 



M74a0226 

0 

0227 

PO 086 

0 0 0 0 

INDIR 

NUM 

0 



M7400227 

0228 

P0087 

0 0 0 0 

SAVQ 

NUM 

0 



M7400228 


o 


o 

o 

o 

o 

r~ 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 
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DATE*. 01/27/99 

023 G 

P0083 

E8F9 IND 

LOQ^ 

PTR 


PART 

1 INDIR REQ. 

0231 

P0089 

C201 

LDA- 

l.Q 


PICK 

UP LIST POINTER 

023 2 

P0Q8A 

GC02 

ENQ 

2 


RESET 

PTR 

0233 

PQ C 33 

1880 

JMP» 

AOS 


Q23h 

P008C 

C8F8 B3 

LDA^ 

RETURN 




0235 

P008D 

68F4 

STA^ 

PTR 





0237 




THIS 

IS THE EXIT 

TO A PRESET ENTRY POINT. 

0239 

P006E 

C8F2 

B 

LDA^ 

SAVPR 


0 2 L u 

PG08F 

AOll 


AND- 

LPMSK+15 


0241 

P009u 

0 101 


SAZ 

Bl-^-1 


0242 

P0U91 

160D 


JMP^ 

B4 

SAVE THE MARK 

0243 

P0092 

S3 FO 

B1 

LDA^^ 

PCELL 

0 244 

P0Q93 

6820 


STA^ 

APCELL 


0 2 45 

P0094 

C8ED 


LDA^ 

PTR 


0245 

P0095 

681D 


STA^ 

APTR 

GO TO LEVEL 0 

0247 

PQ096 

58 17 


RTJ^ 

DOHNO 

Q248 

P0Q97 

681A 


STA + 

ASAVA 

ALL REGISTERS ARE RESTORED 

0249 

P0098 

C61A 


LOA» 

APTR 


025Q 

F0099 

0500 


IIN 

0 

RESTORE THE MARK 

0251 

P009A 

6C19 


STA'^ 

(APCELu ) 

0252 

P009B 

D318 


RAO» 

APCELL 


0 2 55 

PO D9C 

C815 


LDA* 

ASAVA 

RESTORE A REG. 

025^ 

P0 09D 

1C16 


JMP^ 

(APCELL) 

JUMP TO PRESET 

0 7 5 5 

PGC9E 

C8E1 

B4 

LDA^ 

SAVI 

RESTORE I 

0256 

P009F 

60FF 


STA- 

I 

CLEAR OVERFLOW 

025 7 

P C 0 A 0 

OlAQ 


SOV 

0 

0258 

PQOAi 

C8DF 


LDA^ 

SAVPR 

65K 

025 9 

P00A2 

E 4 E9 


LDQ- 

($E9) 

025Q 

PO 0A3 

Q 1 51 


SQN 

1 


0251 

POOA-+ 

C42B 


LDA- 

(CNOTE) 

RESTORE OVERFLOW 

0262 

P 0 u A 5 

8 0 32 


ADD- 

ONEBITH5 

025 3 

P00A6 

E8E0 


LDQ^ 

SAVQ 

RESTORE Q 

0254 

P00A7 

C8DA 


LOA^ 

PTR 


0255 

PQQA8 

0 500 


IIN 

0 

RESTORE THE MARK 

0266 

POG A9 

6CD9 


STA^ 

(PCELL) 

0257 

POOAA 

D8D8 


RAO^ 

PCELL 


Li 2 5 8 

PO wAB 

C8D3 


LDA^ 

SAVA 

JUMP TO PRESET 

0259 

POO AC 

1CD6 


JMP^ 

(PCELL) 

0270 

POOAO 

0 0 0 0 

OOWNO 

NUM 

0 

RETURN ADDREOS 

0 271 

PO OAl 

E8FE 


LDQ^ 

DOW NO 

027 2 

POO AF 

18 0 0 


JMP 

HIB 



POuBO 

0 2 36 





0273 

PO uBl 

COCO 

ASAVA . 

NUM 

0 


0274 

DO 062 

0 0 0 0 

APTR 

NUM 

0 


0275 

P0GB3 

0 3 00 

APCELL 

NUM 

0 



o 


^^MSOS 

^♦MSOS 

^^MSOS 

4.eM74QG230 

4.0M740Q231 

4.0M74QQ232 

O 

v^MSOS 

4.0M7400233 


M7400234 

M7400235 

; O 


M743Q237 

o 


M7400239 

v_-' 

^»MSOS 

4. 0M7h30240 



M74G 0 241 
M74G0242 

o 

^^HSOS 

4. CM74G0243 


^^MSOS 

-c. 0M74G 0244 


^^HSOS 

4. GM7400245 

' o 

’‘^MSOS 

,4. 0M7400246 


^^MSOS 

4.CM7h00247 


^^MSOS 

4. 0M7400248 


’^^MSOS 

4. 3M74G 0249 

Q 

^•^HSOS 

4. OM 7400 250 


♦*HSOS 

4. OM7400251 


-^MSOS 

4. tJM7400252 


^^MSOS 

4. 0M7400253 

■ /'"'I 

»»MSOS 

4 . CM740 025 4 


■^“^MSOS 

4. QM7400255 


»»HSOS 

4. 0M7400256 


^^MSOS 

,4. 0M7400257 

: O 

»^MSOS 

4. 0M7400258 

»^^HSOS 

4. 6M74J 0259 



M74Q0260 
M7h00 261 

■ o 

’^^MSOS 

4. 0M7h00262 


^^MSOS 

4.dM7400253 


♦^HSOS 

4, QH740 0264 


^^MSOS 

4. 0M74Q0265 

. r'. 

»-MSOS 

H. 0M74D02&6 


^^MSOS 

^M7400 257 


♦^MSGS 

t. OH740 0268 


*^MSOS 

4. uH743 Q 269 

■ O 

’^^MSOS 

4. UM7400270 

^^MSOS 

4. 0M7^00271 


*^MSOS 

4.GM7400272 

o 

^^MSOS 

4.0M7400273 

^-MSOS 

4. 0M74u u27 4 


»^MSOS 

4. UM7400275 



o 
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date; 01/27/99 


PAGE 


O 

O 

o 


o 


o 


(“■) 


u 


o 


02 7 8 
0279 
025 0 
0251 
0282 
0283 
C28P 
G 2 8 1> 
028 6 
028 7 

02 88 
02 89 
0290 
Q291 

0292 
0 2 93 


0294 

0295 

0296 

0297 

0298 

0299 
0 30 0 
0 30 1 
030 2 
0 30 3 
0 3 0 ^ 
0305 
03Q6 
030 7 
03 08 
03 09 

0310 

0311 
U312 

0313 

0314 
0 315 

0316 

0317 

0318 
u319 


P00B4 OCOl 
PG0B5 1802 
P0QB6 0C02 

DCB7 P 
P00B7 0400 X 
P0QB8 7FFF X 


P0089 481C 
POOBA GOOD 
POOBB 04E0 
PDuBC flCCG 
POOBD 3000 
POOBE 00 60 
POOBF £9E8 
PuOCO F816 
POOCl 0006 
P00C2 8622 
PQGC3 6809 


P00C4 5hF 4 
P00C5 0912 
P00C6 0000 
P00C7 0000 
P0DC8 08G2 
P00C9 OODO 
POGCA 02CA 
POQCB iiOGO 
POOCC OGOO 
POOCD C8F9 
PCOCE 0101 
POOCF 18FD 
POOnO 0173 
POUDl E804 
PD0D2 1800 
P00D3 02BC 
POO 0-4 18EF 
PQOnS 0000 
P00D6 7FFF X 


4 

-*!• 

V- 

*¥• 

jf. 

E 


* 

GET 


>!■ 


THIS ROJTINE 
OF THE ERROR 


V- 

REQST 

GETR 

THREAD 


GETH3B 

GETL3B 

CHKTHR 


GETC 


HANDLES THE BRINGING 
PROCESSOR AND JBKILL 


IN 


REQUESTED 

GET JOl MESSAGE 


IF Q'IS POSITIVE THE CONTENTS OF Q EQUALS 
THE ERROR CODE 

IF Q IS NEGATIVE JBKILL HAS BEEN 
ENQ JOl ENTER HERE TO 

J M p p 

ENQ JQ2 ENTER HERE TO GET J02 MESSAGE 

EQU Fl(^) 

RAO JBCNFG KILL THE JOB 

ENTER THE ROUTINE HERE TO PROCESS OTHER 
ERRORS WITH FORMAT JOX OR TO BRING IN JBKILL 
STQ^ GETTEM SAVE ERROR CODE OR JBKILL FLAG 

LOA =X=’RTEND-PRT FIND THE LENGTH OF PROTEC WHICH 


ENQ 

DVI 


LDQ- 

ADQ^ 

INQ 

ADD- 

3TA 


0 

= N96 
$EB 

PROTEN 


Q 


(ZERO) , 

^ GETLSB 
GO ANO READ THE 
INTO CORE. THEY 
AT 'AREA'. 

RTJ- ($F4) 

NUM $0912 
ADC 0 
NUM 0 
ADC MASLU 
AOC BUFF 
ADC AREA-GETR 
NUM 0 
NUM 0 
LOA--^ THREAD 
3AZ GETC 
JMP^ CHKTHR 
SQM GETERR-^-1 
LDQ^ GETTEM 
JMP AREA 


IS READ INTO CORE INITIALLY 
CONVERT THE LENGTH TO SECTORS 

GET THE SECTOR WHERE FROTEC IS 
LOCATED FROM THE SYSTEM DIRECTORY 
AND ADO THE LENGTH OF PROTEC TO IT 
THIS VALUE IS THE ADDRESS TO READ^,_ 
THE ERROR PROCESSOR AND JBKILL FROM 
ERROR PROCESSOR ANO JBKILL 
WILL OVERLAY PROTEC STARTING 


COMPLETION 


IF THREAD IS BUSY, HANG 


:RR0R RETRY THE READ 
NO ERROR ON READ. RESTORE Q 
AND JUMP TO OVERLAY 


GETERR JMP- GETR-1 
GETTEM NUM 0 
PROTEN ADC PROTEC 


M743 0278 
M7400279 
M740Q 280 
M7400281 
M740Q282 
M74fl0283 
M7400284 
M7400285 
M7400266 
M74002S7 

M7400286 
M740 0289 
M740Q 290 
M7400 291 

M74DD292 

M7400293 


H74DG294 
M7400295 
M7400296 
M74Q0297 
M74UQ298 
M74D 0299 
M740U 300 
M7400 301 
M74003G2 
M740 0 30 3 

M740 030 6 
M7400307 
M7400308 
M74QQ 309 
M740 0 310 
115 ^ 4324 ^*^*’’^'^’^'^ 
1154-4 3 

M740 0 312 
H74G 0 31 3 
M7400314 


M74Q0315 
M743 0 316 
M7400317 


o 

c 

o 

o 




o 


o 

o 

c 

o 


o 


o 


o 


o 


BPROTK 
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date: 01/27/99 



THIS 13 A CONTROL ROUTINE USED FOR READ TYPE 
REQUESTS. IT CAUSES UNPACKING AND LEGALITY 
CHECKING OF ALL PARAMETERS. 


RTJ 

G 

RTJ 

J 

RTJ 

L 

RTJ 

H 

RTJ 

M 

SQN 

RAO 

Y3 

UNPIO 

JMP^^ 

RAO 

Y4 

UNPIOF 

LDA- 

INA 

enq 

3TA 

1 
1 

2 

(PTR) ,Q 

JMP 

HH 


GO MOVE REQUEST TO PROTECT STACK 
CHECK LU, S 

CHECK N,S+N, REAO/WRITE, ETC 
CHECK RETURN ADDRESS 
MOVE THE SUFFER TO FOREGROUND 
ALLOW A SWAP TO OCCUR 

TELL T5 THAT I/O IS GOING ON. 

SET CALLER THREAD NON-ZERO 
GO make the request AGAIN 


H 74 00319 
M740Q320 
M7400321 


M740Q323 

M74Q0 324 

M7400325 

M7400 326 

M7h0G327 

^^MSOS 4, 0M74Q0 328 
^^MSOS 4.0M74j0329 

’^^MSOS 4.0M74G0330 
’■«^MSOS 4. 0M74Q0 331 

»^MSOS 4. uM740a332 
^»MSOS 4 . 0M740 0333 
-^MSOS tf.0M74G0334 
^^MSOS 4.GM7400335 

M7400336 


r": 

•w. < 

O 

O 

o 

c 

o 

o 

o 


u 

O 



C 

O 


BPROTK 
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DATE; Gi/27/99 


THIS IS ENTERRED FOR SCHOLE REQUESTS ANO OTHERS 
WHICH ARE STACKED BUT NOT CHECKED PAST PRIORITY 
AND COHPLETIDN ADDRESS. 


PO OEE 
POOEF 
PQOFQ 
POOFl 
P00F2 
POUFS 
PQ 0F4 
P00F5 
PQQF6 
PDQF7 
P00F8 
PO uF9 
POOFA 
PQOFB 
PGOFC 
POOFD 
PUuFE 
PQUFF 
POlOO 
POiOl 
P01Q2 
P0103 
POID 4 
POiO 5 
POiC6 
PU107 

poioa 

P0109 
POIDA 
POiOB 
POIOC 
POlOO 
POlOE 
POluF 
PDllO 
POlll 
PQ112 
POiiS 
P0114 
P0115 
PD 116 
P0117 
P0118 
P0119 
PQllA 
POllB 
POilC 
POllD 


5874 X 
58C0 
Q1C9 
C8G0 
031E 
09F7 
0101 
1822 

E83B XI 
C40 0 X 
7FFF X 
0106 
C622 
AOuA 
A016 
0 822 
ODCE 
0171 

18B5 TOF 
8101 
6101 
1823 
0000 ATEXP 
G8FE 
6109 
00 03 

GAIA X14 
65 05 
G1h2 
ODFE 
18FB 

COFF X15 
09 01 
6104 
0 9 Qh 
6102 
E8 00 
FF73 

0400 X X16 
7FFF X 
18D5 

C84B X2 
8000 X3 
0 0 3B 
6102 
C8D0 
FF6A 
61 03 


RTJ+ G 
RTJ H 

LDA RCDDE 


INA 

SAZ 

JMP- 

LOQ^ 

LDA+- 

SAZ 

LOA- 

AND- 

ANO- 

TRA 

INQ 

SQM 

JMP- 

AOD- 

STA- 

JMP^ 

ADC 

LOA^ 

STA- 

ENQ 

LDA^ 

STA- 

SQZ 

INQ 

JMP^ 

LOA- 

INA 

STA- 

IHA 

STA- 

LOQ 


-8 

Xi-^-1 

X2 

PTR 

TMRTYP 

TOF 

(ZERO) » Q 
NZERO-8 
NZt RO + 4 
Q 

-S31 

1 

F 

ill 

1»I 

TEXP 

Q 

ATEXP 

9.1 

3 

TIHE,Q 

5,3 

X15-’-l 

-1 

X14 

I 

1 

4.1 

4 

2.1 

SAVQ 


RAO+ UNPTIM 

JMP^ Yi 
LOA» G 

ADD =XSGHCMP-X-1 

STA- 2,1 
LDA SAVQ 

STA- 3,1 


CHECK RETURN ADDRESS 


IF IT IS A TIMER REQUcST 
MOVE TIMER UNITS TO STACK 
AND GO TO EXIT ROUTINE. 

0 SAYS NO TIMER IN SYSTEM 

00 NOT ALLOW REQUEST 
JUST GO TO EXIT 
ROUTINE. 


IS UNITS PARAMETER=0,1, 2,3 
SKIP IF LEGAL REQUEST 


GET ADDRESS OF TIMER EXPIRATION 

ADDRESS OF TIMER EXP RT N 
PLACE IN TIMER STACK ENTRY 
MOVE 4 INSTRUCTIONS ONTO STACK 


SAVE SLOT LOG. IN SLOT 
BUMP I FOR COMPLETION 

SET TIMER COMPLETION 


INCREMENT TIMER REQ COUNTER 

GO TO MAKE REQUEST AGAIN 
CALCULATE A BS AOOR FOR SCHDLE 


SAVE IN PROTECT STACK 


USERS PARAMETER TO SLOT 


O 


o 



M740Q339 

H7400340 

M740Q341 

0 


M7400343 
H740 0 344 

c 


M7 43 0 345 
M74Q0346 

0 


M743 0347 
M74D 0 348 
M743 0349 
M740G350 

■ c 


M7400351 


»^MSOS 

4. QM740Q352 


M74Q 0353 

, r"; 


M740 Q354 

'v..- 

^•^•MSOS 

4. GM74Q0 355 


Q/77^1867 M74QG356 


^^MSOS 

4 . 0M740 0 357 

0 


M74Q 0 358 



M743 0 359 
Mr4a0360 
M7400351 



M7400 362 



M7 *,0 0363 
M740Q364 
M74Q0365 

■ C) 


M743 Q3&6 


’ M7490367 

M7400368 
M74U0369 

■ 0 


M740U370 


M74G0371 

M7400372 

M7400373 

: 0 

> 

; M7h-0 G 37 4 


H7400375 


»»MSOS 

4.0H74QQ376 

■ 0 

M7400377 
,M7400 378 

>^HSOS 

4. 0M74QO379 

0 

^TfMSOS 

■+.0M7400380 

^^MSOS 

M7400381 
W.UM7400 33 2 

0 


o 

o 


M740Q383 


BPROTK 


PAGE IZ 


DATES 01/27/99 


0 3 3 6 

POllE 

AO 11 


AND- 

NZERO-1 


M7au 0 38 4 

038 7 

POUF 

6800 


STA 

SA\/Q 


M74D0385 


P0120 

FF66 






0388 






1 CARD DELETED 

^4.fl/77^18o& M74a 0386 

03 39 

P0121 

18CA 


JMP^ 

Y1 

GO MAKE THE REQUEST AGAIN 

H740 0 387 


0391 

PD122 

C3FE 

TIME 

LDA^ 

=^-1 

ADDRESS OF TIMER STACK ENTRY 

. M7400389 

0392 

P0123 

h8FC 


STQ» 

«_3 

VALUE OF CLOCK 

M7 40 0390 

0393 

PG124 

0 322 


TRA 

Q 


M74G0391 

0394 

P0125 

IhG 0 


NUN 

$140 0 

JUMP ABSOLUTE INSTR 

M740 0 39 2 

039 5 

P012& 

5800 

TEXP 

RTJ^ 

ATEXP 


M7400393 

0395 



V- 

TIMER 

: EXPIRATION 

ENTERS HERE 

M/40 0 39 4 

039 7 

P0127 

CCED 

TIMEX P 

LDA^ 

(X16+1) 


M74 D 0 39 5 

0393 

P0128 

Q9FE 


INA 

-1 


M 7400395 

0399 

P0129 

&CEB 


STA^ 

{X16 + 1 ) 


M/m-OC 397 


040 1 




V- 

THIS 

IS ENTERRED 

TO EXECUTE 3CHDLE AND TIMER 


M7400399 

0402 




>(■ 

TYPE 

REQUESTS. 



M7400400 

040 4 

P012A 

ODFO 


SCHCMP 

INQ 

-2 


61^‘1298 

M740 0 40 2 

0^05 

P012B 

0 8 44 



CLR 

A 


^^MSOS 4. 

0M740uh03 

0406 

P012C 

62GD 



STA- 

13, Q 

CLEAR STACK ENTRY 

^^HSOS 4. 

0M740C 40 4 

0407 

PQ12D 

C201 



LDA- 

1,Q 


^^MSOS 4. 

OM7430405 

040 8 

P012E 

68 OA 



STA^ 

SCHJMP 

SET UP TO JUMP TO USER 


M74Q 0 406 

0 40 9 

P012F 

cm 



SAN 

SCH-^^-1 



M740C407 

0410 

P013G 

14EA 



JMF- 

(DISP) 

THE JOB IS DEAD 


M7400 408 

0411 

P0131 

C400 

X 

SCH 

LDA 

JBCNFG 



M740 0 409 


Pfl 132 

0 0 B8 

X 







0412 

P0133 

0101 



SAZ 

SCHl 



M7400410 

0413 

P0134 

14EA 



JMP- 

(DISP) 

EXIT IF JOB IS CANCELLED 


M7400411 

0 414 

P0135 

C201 


SCHl 

LDA- 

1,Q 



M74Q0 412 

041;:; 

P0136 

E2 04 



LDQ- 

4 » Q 



M? tQ 0 413 

0416 

P0137 

ICQl 



JMP» 

(SCHJMP) 



M7400414 

0417 

P0138 

0 0 00 


SCHJM° 

NUM 

0 



M740 0 415 


BPROTK 
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date: 01/27/99 


0419 


THIS IS THE PROCESSOR FOR GTFILE REQUESTS. 


M740 0 ‘+17 


0-+21 

P0139 

5829 

Z 

RTJ^ G 

0-+22 

P013A 

C622 


LOA- (ZERO 

0 423 

PQ13B 

OFCl 


ALS 1 

0424 

PC13C 

0129 


SAP Z3 

u 4 2 5 

PG13D 

ClOi 


LDA- 1,1 

0426 

P013E 

BO 31 


EOR- $31 

0427 

P013F 

6101 


STA- 1,1 

0428 

P014U 

5 8 0 0 

Z4 

RTJ J 


P0141 

G2A8 



0^29 

P0142 

OAOO 

Z4A 

ENA 0 

0430 





0-^31 





0432 





0433 



* 


0 4 3 4 

P0143 

58G0 


STA MHIND 


P0144 

01D3 



0t35 

PG145 

1897 


JMP^ Y2 

0436 

P0146 

E0E9 

Z3 

LOQ- $E9 

0437 

P0147 

E2 OA 


LDQ- 10, Q 

0438 

PO 148 

01 51 


SQN ZO 

0439 

PQi49 

18F6 


JHP^ Z4 

U 4 0 

P014A 

1800 

ZO 

JMP F 


P0148 

FF6A 




GO MOVE REQUEST TO 
D BIT SET 


PROTECT STACK 


YES GET STACKED REQUEST 
D BIT 

RESET FOR GTFILE 
CHECK LU'S , S 

TRANSFER TO ZaA OCCURS ^ ^ 

FOR ALL OCR REQUESTS SO THAT 
MODIFICATION AND MOVING OF 
PARAMETER LIST IS BYPASSED 
FOR OCR REQUESTS 
SET MASS STORAGE INDICATOR 

CONTINUE PROCESSING 

UNPROTECTED CORE FLAG 

ERROR IF UNPROTECTED IN PART 1 AND 

REQUEST ERROR 


^^MSOS 

^‘^MSOS 

f ^HSOS 
»^MSOS 
^»MSOS 
^^MSOS 


M740 
4 . C H740 
4 . 0M74Q 
M740 
4. QM74fl 
4. DH740 
4. 0M74Q 
4. 0M74U 


Q 419 
0420 
0 421 
0 42 2 
0 423 
Q h24 
0 42 5 
0 42 6 


115 **’■ 4273^^^^^*^^ 

115^42 73 ^^*^^^’^^ 
115 -^ 4273 ^^^^’^^^* 

^^MSOS ^.0M7400428 

M740Qh29 
M740 0430 
M7400431 
]=D M7 40 0 h3 2 

M7400 -+33 
M740 0 -*34 


o 


( ) 


o 






BPRQTK 



PAGE 

0443 



■If- 

THE FOLLOWING 

u 44 5 

P014C 

5816 

W 

RTJ^- 

G 

0 4 + 0 

POl+O 

5800 


RTJ 

CHKLU 


PO 14E 

013B 




0 4 4 7 

PQ14F 

0 AQl 


ENA 

1 

0 4 4 6 

PQ150 

A208 


AND- 

8,Q 

0 449 

P0151 

0102 


SAZ 

NEW TAP 

0 450 

P0152 

0C08 

W3A 

ENU 

3 03 

0 451 

P0153 

181C 


JMP» 

G24 

0452 

P0154 

E105 

NEWTA P 

LDQ- 

Pil 

0453 

P0155 

0177 


SQM 

W7 

0 45 4 

P0156 

CQQO 

W6 

LDA 

=NE7774 


P0157 

7774 




0 4 5 5 

PC156 

9105 


SUB- 

5 » I 

0+5 6 

P0159 

A 0 u G 


AN 0 

=NS8883 


P015A 

8888 




0457 

P015B 

0101 


SAZ 

W7-»-l 

0 + 58 

PQ15C 

18ED 


JMP* 

ZO 

0+59 

P015D 

0 ACl 

W7 

ENA 

1 

0 +5 u 

P015E 

68 00 


STA 

MHIND 


P015F 

G1B8 




0451 

=-0160 

1800 


JMP 

Y2 


F0161 

FF7B 





14 


DATF: Dl/27/99 


PROCESSES TAPE MOTION CONTROL REQUESTS. 

GO MOVE REQUEST TO PROTECT STACK 
CHECK LU 

SEE IF 

UNPROTECTED I/O IS ALLOWED 
A=0 IF IT IS ALLOWED 
NO UNPROTECTED I/O ALLOWED 
GO OUTPUT J08 MESSAGE 
CHECK IF MOTION 
NO 

CHECK TAPE MOTION FUNCTION TO 
SEE IF THEY ARE ALL LEGAL 


A=0 THEY ARE ALL LEGAL 
GO OUTPUT J02 MESSAGE 
SET FLAG TO ALLOW SWAP 


M/^QO +37 

M74oQ+-39 

M7‘Tii044Q 

»-*MSOS 4. 0M7400 441 
M74u 0 ^+42 
M7400 443 
M/i+Q 0 444 
M740 0445 
H740Q 446 
M740Q447 
M740 0 446 

M743 Q 449 
M 7 40 0 43 0 

M7400451 
M740 0 452 
M7400453 
M740 0 45 4 

M7 4Q 0 -r55 


o 

o 

o 

o 

o 

o 

o 


o 

o 

■X) 

o 

o 

o 

o 


u 

o 

o 




o 

o 

o 


o 


BPROTK 


P^GE 15 


date; 01/27/99 


0^6 5 
0 1 0 6 
0A57 


THS FOLLOWING ROUTINE IS ENTERRED ONLY FOR 
REQUESTS WHOSE PARAMETER LISTS ARE MOVED TO 
PROTECTED CORE FOR EXECUTION. 


M7l: 0 A39 
M74Q 0460 
M7400461 


0459 P0162 0000 

0470 P0163 0C4D 

0471 P01b4 CA71 
0-^72 P0165 0123 

0473 P0166 0DF2 

0474 P0167 0172 
Q,75 PQ168 18F3 
0476 P0169 1814 


0 0 
ENQ SIZE 
LDA^ STACK, Q 
SAP G15-^-l 
INQ -13 
SQM GE-’^-l 
JMP^ G1 
JMP^^ G3 


DETERMINE IF MAXIMUM NO OF 
REQUESTS ARE STACKED 
A=- IF NO ROOM AVAILABLE 
Q=- IF NO STACK SPACE AVAILABLE 
GO CONTINUE CHECKING SLOTS 
OPEN SLOT MOVE REQUEST 


»^MSOS ^ 


M7400463 
M740 0464 
M740 0 HD 5 
M7400 4ob 
. GH74D 0h67 
M740 0 468 
M740 0 h69 
M74Q 0 470 


0478 

0479 
04BC 


W ^ 

0 432 



V- 

OPERATING AT 

0434 

P016A 

C800 

G2 

LDA 

SAVPR 


P0168 

FF15 



LPMSK+15 

0 4 3 5 

P016C 

AO 11 


AND- 

U h86 

P016D 

0 103 


SAZ 

G25-^-l 

0 437 

POIdE 

OG 06 


ENQ 

J06 

D h6 6 

P016F 

1800 

G24 

JMP 

FI 

PQ170 

FF45 



(SE9) 

3 43 9 

P0171 

C4E9 

G25 

LOA- 

O-rDO 

PG172 

0102 


SAZ 

G25 

0491 

P0173 

0 8 h4 


CLR 

A 

0 49 2 

PQ174 

0102 


SAZ 

2 

0 ‘*9 3 

Pu 175 

C428 

G26 

LDA- 

(CNOTE) 

0 •» 9 

PQ176 

A021 


AND- 

NZERO + 15 

0 49'^ 

P0177 

88G0 


AOO 

PTRS 


P0178 

FFOB 




0 4 9 D 

P0179 

Q9FE 


INA 

-1 

0h9 7 

PQ17A 

642B 


STA- 

(CNOTE) 

0 49 8 

P017B 

18 0 0 


JMP 

K 


PG17C 

0172 





NO SPACE - REQUEST MUST WAIT IF CALLER WAS 
AT level ZERO - IF HE WAS AT^ LEVEL ONE, THE 
JOS MUST BE 8OMSE0 BECAUSE THERE IS NO 


CHECK PRIORITY TO SEE IF 1 OR 0 


A=0 IF PRIORITY IS ZERO 
PRIORITY 13 NOT ZERO GIVE JOB 
MESSAGE 

IF MODE IS 65K 

DO NOT TRY TO SAVE OVERFLOW FROM , 
I NT. TRAP 

FOR 32K SAVE OV AND UNPRO. RETURN 
IN LOCATION 100 


RETURN TO UNPROTECTED TO HAKE THE 
REQUEST AGAIN 


»^MSOS 


'^■^MSOS 

*»HSOS 

^^M'SOS. 

^^HSOS 

»^MSDS’ 


M74J0 472 
M7h0 0 47 3 
M74G 0 474 
H743 0 475 
M74D0 475 

M7400 478 

H. 0M743 0479 
M74D0h80 
M7400 481 
M7400 h82 

4.'OM740 Q483 
4, 0M74Q0484 
H.G,M74j0h85 
4, OM 740 0 48 6 
'4. 0M74Q 0487 
M7400488 
M7400489 

M740 0490 
M74Q0491 
M740Q492 


U 

05 0 1 





0502 




O 

0 5 0 H 

P0170 

58 01 

G3 


050 5 

P017E 

00 00 

G8 

r'. 

0 5 0 6 

PG17F 

0OF3 



0507 

P0180 

FSFD 



050 8 

P0181 

0D57 



AN OPEN SLOT FOR STACKING IS AVAILABLE. 
INDEX TO IT IS IN Q. 


RTJ^ G8 

NUM Q 

INQ -12 

ADQ^ G8 

INQ STACK-G8 


FIND WHERE WE ARE 

ADJUST Q TO GET TOP OF SLOT 
PUT SLOT ADDRESS IN I 


M7400495 

M74Q0496 


M743G493 
M740G499 
■»^MSOS 4.0M740G500 
M740C501 
M74Q G 50 2 


o 


’) 



BPROTK 
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DATE: 01/27/99 


0 5 0 9 

P0182 

40 FF 



STQ- 

I 



0510 

P0183 

E8 00 



LDQ 

PTR 




P0184 

FEED 







0511 

P0185 

C202 



LDA- 

2»Q 

GET THREAD 


0 512 

Pu 1 8 6 

5103 



STA- 

3,1 

CLEAR THREAD IN STACKED REQ. 


0513 

P0187 

0 109 



SAZ 

Gi+->f-l 

Q 

0514 

P01B8 

E8CQ 



LOQ 

RCOOE . 

THREAD CHECK NOT VALID FOR 


P0i89 

0287 





0 515 

P018A 

CAOO 



LDA 

REQTBtQ 

SOME REQUESTS 



PQ18B 

FEED 




o 

0 516 

P018C 

A02E 



AND- 

0NEBIT411 



0517 

PQ18D 

E80Q 



LDQ 

PTR 




PQ18E 

FEF3 







0 513 

P018F 

Dili 



SAN 

G4-^-l 


o 

0519 

P0190 

1809 



JMP- 

G2 

ALREADY THREADED 


0 5 2 0 

P0191 

C2Q1 


G4 

LDA- 

1,Q 

CHECK THE COMPLETION ADDRESS 


0 5 2 1 

PD192 

0 102 



SAZ 

G51-^-l 

TO SEE IF IT IS ZERO OR 


■0522 

P0193 

5 4 BE 


G5 

RTJ- 

(CABS ) 

ABSOLUTIZE COMPLETION AOOR. 

(7') 

0 523 

PO 194 

0814 



TRQ 

A 


0524 

P0195 

6522 


G51 

STA- 

(ZERO), I 

PUT G IN STACK 


0 5 2 5 

PG196 

0 lOE 



SAZ 

G7-^-i 

NO COMPLETION ADDRESS 


0 5 2 6 

P0197 

E0F7 



LDQ- 

TOP4DN 

CHECK THE COMPLETION ADDRESS TO 

** 'l 

0 5 2 7 

P0198 

09FE 



INA 

-1 

SEE IF IT IS IN PROTECTED CORE 


0528 

P0199 

54C0 
0 0 42 

X 


RTJ 

COHPV4 




P019A 

X 






0529 


Q19A 

P 


EQU 

EQC (^-IJ 



053 0 

P019B 

0102 



SAZ 

G6 



0531 

P019C 

0 900 



INA 

0 

IF IT IS REQUEST IS ILLEGAL 


0 5 32 

P019D 

0106 



SAZ 

G65 


0533 

P019E 

C522 


G6 

LOA- 

(ZERO) , I 


'^'1 

0534 

P0i9F 

E0F6 



LOQ- 

SOTOP 



0535 
0 5 3 6 

POIAQ 

5GF9 


V- 

RTJ^- 

CEQS) 

1 CARD DELETED ^ 


Q 5 3 7 

PGlAl 

0103 



SAZ 

G7 


,•*■**., 

0 53 3 

PQ1A2 

0 900 



INA 

0 



0 5 3 9 

PO 1A3 

u 101 



SAZ 

G7 



0 5 4 0 

PO 1A4 

18A5 


G65 


ZO 

GO OUTPUT J02 MESSAGE 


0541 

POIA 5 

C8Q0 


G7 

LDA 

RGODE 




P 0 1A6 

0 2 6A 







0542 

P01A7 

0826 



TRA 

A,Q 

SAVE REQUEST CODE IN Q 


0 5 4 3 

PU1A8 

0FC9 



ALS 

9 

UNPACK REQUEST CODE AND 


0 5 4 1 

PC1A9 

G9G2 



INA 

2 

SET X=0, RP=0,CP=2 

CHECK FOR TIMER OR SCHEDULE CALL 

o : 

05 45 

PGIAA 
PO lAB 
PGIAC 

EAOO 

PECO 

OFFO 



LOQ, 

REQTBtQ 

0 5 4 6 



LLS 

16 



0547 

PQIAQ 

ADZE 



ANO- 

ONEBIT+ 11 

IF NO THREAD CHECK, IT'S TIMER OR 

O 

0548 

POIAE 

0101 



SAZ 

1 

NOT - COMPLETION AT LEVEL 2 

0549 

PGIAF 

QDFE 



INQ 

-1 

YES - COMPLETION AT LEVEL 1 


0 5 5 0 

POIBO 

4101 



STQ- 

1,1 

PUT WORD 1 IN STACK 


0551 

POIBI 

C8CC 



LDA» 

G8 

PUT COMPLETION PROCESSOR 

o 

0 55 2 

P01B2 

8 0 00 



ADD 

= XS-GP-38 


POIBS 

0 0 98 







0553 

P0184 

6102 



STA- 

2,1 

COMPLETION ADDRESS 


o 


M74G 0503 
H74005Q4 

M7 4C 0 50 5 
M743 0 50 6 
■ M740G507 

M7hD 050 8 

H740 Q 509 

M74G0510 
M74j 0511 

M74Q0 512 
M740Q 513 
M740 0514 
M7410515 
H74lJ05i6 
M74D0517 
M74Q u 51 8 
M740D519 
^’MSOS 4. 0M74j 0 520 
M74Q0521 
-“'"^MSOS H.OM740Q522 

^^MSOS 4« 0M740Q523 
«^»MSOS -+..CM7400524 
-^MSOS 4.GM7400525 
’^^MSOS 4. DM740 0526 
^^MSOS 4.QH7400527 
^^MSOS 4. CM7400528 
.0/77^1868 M7400529 

4.0M743 0530 
Mf 400531 
^^MSOS 4.GM7430532 
' »^MSOS 4. 0M740Q 533 
•’^^MSOS 4.0M740 0 534 
^^M3GS 4.GM74Q0535 

M7400 536 
M740 0 53 7 
M 74 00 53 8 
M740G539 

M74CD54Q 
SCH M740u541 

M7 4 Q Q 5 42 
M7400543 
M740Q544 
M740 0 545 
^^MSOS 4.0M7400546 



C 

0 
Q 
C 

1 ;> 


c 

o 

o 

o 

o 

o 


M740 0 547 


BPROTK 
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DATE! 01/27/99 


o 

G 5 5 + 

P01B5 

E8 0 0 


LDQ PTR 



P01B6 

FEC8 




0 5 5 5 

P 0 1 B 7 

41 OB 


STQ- lltl 

1. J 

0 5 5 6 

PO 1B8 

0CG3 


EN Q 3 


0 5 5 7 

P01B9 

CEGO 

G9 

LDA (PTR), a 



POIBA 

FEC7 




0 5 5 8 

PQIBB 

63 01 


STA- 1,B 

O 

0 5 5 9 

PGiBC 

ODOl 


INQ 1 


0 2 5 0 

PQIBU 

0814 


TRQ A 


05 6 1 

POIBE 

09F5 


INA -10 


0 5 5 2 

POIBF 

0101 


SAZ G10-+-1 

: i 

0563 

PO ICO 

18F8 


JMP+ G9 


^ ? 7 

POICI 

08 04 

GIO 

SET A 


0 5 6 5 

P01C2 

610C 


STA- 12,1 


0 5 66 

P01C3 

C522 


LDA- (ZERO),I 


0 5 67 

P01C4 

0 10 E 


SAZ TAG2 


0 5 6 8 

P01C5 

E0F7 


LDQ- $F7 


0 5 6 9 

PO 1C6 

Q9FE 


INA -1 


0570 

P01C7 

5CD2 


RTJ+ (EQC) 


0571 

P01C8 

U102 


SAZ TAGl 


0572 

PO 1G9 

0900 


INA 0 


0573 

POICA 

0106 


SAZ TAG3 


0 5 7 4 

POICB 

C522 

TAGl 

LDA- (ZER0),I 

• ) 

0 p 7 5 

PDICC 

E0F6 


LDQ- $F5 


057 6 

POIGD 

5CCC 


RTJ+ (EQC) 


0577 

POICE 

01 02 


SAZ TAG3 


0578 

POICF 

0900 


INA 0 

\ 

0579 

PGIOD 

0 102 


SAZ T A G 2 


0 5 3 li 

POlOi 

18 uO 

TAG3 

JM P E 



P01D2 

FEE! 



\ 

0531 

P01D3 

tl OB 

TA62 

LDQ- 11,1 


0 5 8 2 

P01O4 

1C8D 


JMP+ (G) 


MOVE WORDS 4 THROUGH 10 OF 

THE REQUEST TO THE PROTECT 
STACK. 


SET THE STACK ENRRY BUSY 
USERS COMPLETION ADDRESS 
BOTTOM-1 OF UNPROTECTED 


COMPARE ADDRESSES 
WITHIN BOUNDS 


CHECK FOR -0 
BELOW LOWER LIMIT 


TOP+1 OF UNPROTECTED 
COMPARE ADDRESSES 
AT TOP+1 OF UNPROTECTED 
CHECK FOR -0 
WITHIN BOUNDS 
JPfll ERROR 


REQUEST ADDRESS 


THE FOLLOWI'JG AREA IS THE PROTECT STACK^^^^ 
UPON INniAL EXECUTION OF PROTECT THIS AREA 
IS used TO =’LACE PARAMETERS INTO OTHE^R 
AREAS WHICH REQUIRE THEM. AFTER IT IS USED 
TO FIX PARAMETERS THE AREA IS CLEARED AND 
THEN BECOMES THE' PROTECT STACK(TAeLE) 

THIS TABLE IS USED TO STACK UNPROTECTED 
PARAMETER LISTS FOR EXECUTION. 


0393 PD1D5 00B6 02 

059+ P01D6 0084 03 

0595 P01D7 Q008 04 

Q?9o P01D8 01D5 05 

0597 PQ1D9 0QB9 06 

0593 POIDA 7FFF X F3 

C599 01D5 P 

OoOG POlOB 0822 PRT A 


AOC F-PRT 
ADC PTR3-PRT 
ADC IPROCl-PRT 
AOC STACK-PRT 
ADC GET-PRT 
ADC FILE3 
EQU STACK02) 
TRA Q 


o 


M7w0 0 548 

M740 0 5 + 9 
M7+C055Q 
M740 0 551 

M740 0 55 2 
M74G0553 
M7+0Q554 
M74D 0 555 
, M7+30555 

H74QQ557 
+ + MSOS +.0M74'j 0558 
++MSOS 4. 0M740O559 
=*■ + .0/77+1865 H740Q560 

+4.0/77+1865 M740G551 

M7 + Q 0 562 
M743 9 563 
M74J D 564 
M74G 0 56 5 
M74j OaoD 
M740 G 56 7 
M7430558 
M7400569 
M7+0G57C 
H7+QQ 571 
H740G572 
' M74D0573 

M74GQ 574 

++. 0/77+1865 M7+00575 

M74jG575 


M7 4u 0 57 8 
M7+00579 
M7+00580 
H7400581 
M7400 582 
M74fl0583 
M74j 0 584 
M7 40 0 58 5 


M743 0 587 
M7400588 
M742 0 589 
M7400590 
M74G0591 
M7400 592 
M7430593 
M7 + 30 594 


O 

c> 

*0 

o 

o 

o 

o 

.'^1 

L_; 

O 

O 

O 

C) 

O 




BPROTK 
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DATE! 01/27/99 


G60 i 

POIDC 

5 8F8 


ADD^ 

02 


M74G0595 

0 5 0 2 

POIDO 

6400 

X 

STA 

L CCF 

POINTER TO PROTECT PROCESSOR ERROR ENTRY 

M740 0 595 


POIDE 

7FFF 

X 





05 3 3 

PC- IDF 

0814 


IRQ 

A 


M740 0 597 

0 5 3 *4 

PGIEO 

88F5 


ADD* 

03 


M749 0 598 

0 6 D 5 

POIEI 

6400 

X 

STA 

LPTRS 

POINTER TO PROTECT PROCESSOR'S PARAMETER 

M74G 0 599 


P01E2 

7FFF 

X 





0 5 0 6 

PC1E3 

0814 


IRQ 

A 


M74G 0600 

G 5 0 r 

P01E5- 

38F2 


ADD* 

04 


M74Q 0601 

050 8 

P01E5 

6400 

X 

STA 

I Pi 

LOCATION TO HANDLE INTERNAL INTERRUPTS 

M7400602 


P01E6 

7FFF 

X 





030 9 

P01E7 

0 814 


TRQ 

A 


M7 40 0 60 3 

05 1C 

P01E8 

88F0 


ADD* 

06 


M740 0604 

0511 

P01E9 

6400 

X 

STA 

JKIN 

FLAG TO INDICATE THAT JBKILL IS IN 

■ M7400605 


POIEA 

7FFF 

X 





0512 

PO 1E3 

0 8 1h 


TRQ 

A 


M7^3 0 60 6 

0613 

POIEC 

88EB 


ADD* 

05 


M740 0507 

0 614- 

POIED 

E4Q0 

X 

LOQ 

TRN^EC 

LOCATION OF PROTECT STACK 

M74GQ6Q8 


PGIEE 

7FFF 

X 





0 615 

POIEF 

6208 


STA- 

11»0 


M743 0 6G9 

0 516 

POIFO 

OCIC 


ENQ 

*-D2+l 


M740 0610 

0517 

POIFI 

0 AOO 


ENA 

0 


M7 40 0 611 

0518 

PG1F2 

6AE2 

PRTZRO 

STAG- 

02,0 

ZERO OUT NHAT HAS JUST EXECUTED 

M 74 3 0 61 2 

0519 

P01F3 

ODFE 


ING 

-1 


M740G613 

0 52 0 

P01F‘+ 

01 


SQZ 

PRTZ-*-l 


M7-40Q614 

0521 

P01F5 

18FC 


JMP* 

PRTZRO 


M740Q615 

0522 

P01F6 

E4 QD 

X PRTZ 

LOQ 

PRORET 

GET ADDRESS TO RETURN TO AFTER 

M74D Q51o 


P01F7 

7FFF 

X 





0 5 2 3 

P01F8 

68F0 


STA* 

*-2 

INITIAL FLAGS ARE SET AND 

M740Q617 

QSZh 

PG1F9 

68FD 


STA* 

*-2 

ZERO MORE LOCATIONS 

N7400618 

ObZo 

PCIFA 

1622 


JMP- 

($22) ,0 

RETURN 

H7i+a0619 

0526 


G 0 26 


EQU 

PRTLENt *-02) 


M7400620 

0a27 


0 0 41 


EQU 

STLEN (13*N) 

**MSOS 

4. uM7400 621 

062 8 

P01F3 

OOIB 


BZS 

STX (STL EN-PRTLEN) 

M740 0622 



8PR0TK 
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date; 01/27/99 


P0216 
P0217 
P0218 
P0219 
P021A 
P021B 
PO 21C 
P021D 
P021E 
P021F 
PO 220 
P0221 
P0222 

P0223 
P0224 
P0225 
PO 226 
P0227 
P022ci 
Pu229 

P022A 
P022R 
P022C 
PO 22D 
PCI22E 

P022F 
PC 230 
P0231 

PQ232 

P0233 

PG23h 

P0235 

PQ236 

P0237 

PQ233 

P0239 

PC23A 

P023B 


Q822 

QDFO 

540 0 X 

7FFF X 

0500 

CC36 

0104 

5 4 F4 

13D2 

7FFB 

14EA 

C20C 

60FF 

C2C5 

AOIF 

6827 

C103 

AOOF 

8824 

6103 

C202 
OF 49 
A007 
09F2 
01 16 

C2Q8 

6 1 Q 6 
C20A 

6108 
C20B 
6109 
0 844 
6102 

C201 

0113 

Q8-»4 

62 OD 
14EA 


CCP03 


THIS IS THE COMPLETION PROCESSOR FOR ALL 
STACKED R-CU-ST5. IT IS ENTERREO WITH THE ADORES 
OF THE PARAMETER LIST IN A AND THE ERROR CODE 


POINTER TO STACK IN Q 
CHECK IF A SWAP IS WAITING 


CHECK SWAPON FLAG 

NOT SWAPPED 

WAIT UNTIL SWAP DONE 


IN Q, 


TRA 

Q 

INQ 

-2 

RTJ 

SWAPCK 

IIN 

0 

LDA^ 

(CCCPOii- IT 

SAZ 

CCPO 

RTJ- 

{$F4) 


C C P 0 0 0 


CCPO 


CCPl 


ADC $1302 

ADC CC=00-CCP0O0 

JMP- <DISP) 

LDA- 12»Q 
STA- I 

LOA- 5,0 
AND” NZc.RO+13 
STA^ GCTEMP 
LDA- 3,1 
AND- NZERO-3 
ADD^ CCTEMP 
STA- 3,1 

LOA- 2,0 

A P C Q 

AND- NZERO-11 
INA -13 
SAN CCPl 

LDA- 8,Q 
STA- 6,1 
LDA- 10,0 

STA- 8,1 
LDA- 11, Q 
STA- 9,1 
CLR A 
STA- 2,1 

LDA- 1,Q 
SAN GADRS 
CLR A 
STA- 13,0 
JMP- (DISP) 


POINTER TO USERS REQUEST NOW IN 


MOVE V FIELD FROM STACK TO USERS REQUEST 


IF IT IS A GTFILE REQUEST 


STORE W2 BACK IN CALL ^ 

MOVE MASS STORAGE ADDRESS INTO 
USERS REQUEST 


CLEAR THREAD IN USERS REQUEST 

CHECK FOR COMPLETION IN PROTECT 
IF NO COMPLETION ADDRESS 

RELEASE STACK ENTRY 


M740Q625 
M740 0626 
M74Q 0o27 
M740 0628 


H740 0630 
H7400631 
M74QD632 

M74Q0 633 
M74D0634 
M7400635 
M740G636 
M74Q0637 
M74C0 53B 
M740G639 
^^MSOS 4. 0M740 0640 
M7400641 
[ M74Q 0 642 

M74U 0 643 
MThO 0o44 
H74Q0&45 
M743 C d 45 
M7 4-G 0 647 
M7 40 0 648 
REQUEST H740Go49 

M74Q C 65G 
H7400651 
M 7 40 0 65 2 
M7 40 0 65 3 
M740 D654 
M7 %0 0 65 5 
M740 0 65 0 
»^MSOS 4.1»^H740Q657 
«^^MSOS 4.1^-M74G0658 
M740 0 65 9 
M740Q660 
M7400o 61 
M7430 662 
M74Q0663 
M74Q 0 65 4 
M740 0655 
M74006b6 
STK4. 0^7g’^19 47M74a0 66 7 
M7U00668 
^^MSOS ^ . 0M740 0669 
^-MSGS 4. GM74DD670 
M7400671 
M74Q0672 


BPROTK 


DAGE 2Q 


DATE: ai/27/gg 


0 5 7 9 

P023C 

54F4 


CAD R5 

RTJ- 

053 0 

P023D 

1301 


CARE- 

ADC 


P023E 

00 03 




0631 

PQ 23F 

14EA 



JMP- 

053 2 

PO 240 

0 8 44 


CADR51 

CLR 

068 3 

PD2h1 

620D 



STA- 

0 6 3 4 

P0242 

C2Q1 



LDA- 

0635 

P0243 

6808 



STA» 

053 6 






053 7 

P0244 

C4G0 

X 


LDA 


P0245 

0132 

X 



0 6 8 8 

P0246 

0101 



SAZ 

063 9 

P0247 

1 4 EA 



JMP- 

0 5 3 0 

P0248 

C20C 



LDA- 

0 591 

PQ249 

E205 



L DQ~ 

0592 

P024A 

ICGl 



JMP-*- 

0593 




V- 


069't 

P02hB 

0 0 00 


JMP 

NUM 

0 595 

PG 24C 

coco 


CCTE^P 

NUM 

0 5 9 6 

P024D 

0 0 00 


LWAPl 

NUM 

0597 




V- 

THIS 

059 8 





BEEN 

0 5 99 





BACK 

070 0 




* 

PROCi 

07bl 

P02hE 

09 FE 


CCCP 

INA 

C 7 G 2 

P024F 

0822 



TRA 

or 0 3 

P025U 

G400 

X 

CCCPO 

LDA 


P0 251 

7FFF 

X 



07 G 4 

P0252 

0104 



SAZ 

0 7 0 5 

P0253 

5hF4 



RTJ- 

0 7 3 6 

P0254 

1302 


CCCP3 1 

AOC 

07G7 

PQ255 

7FFB 



ADC 

07 0 8 

P025b 

14EA 



JMP- 

0 7 0 9 

P025 7 

4QFF 


CCCP02 

STQ- 

0710 

P0258 

ClOA 



LDA- 

0711 

PQ259 

09FD 



INA 

07 12 

P025A 

0102 



SAZ 

0 713 

P025B 

09FB 



INA 

0714 

PO 25C 

0111 



SAN 

0 715 

P025O 

1822 


CCCP03 

JMP^ 

0 716 

P025E 

09F7 


CCCP04 

INA 

0717 

P0 25F 

0 111 



SAN 

0 718 

P0 260 

1822 



JMP’^ 

0719 

P0261 

C104 



LDA- 

07 20 

P0262 

A009 



AND- 

07 2 1 

P0263 

0 822 



TRA 

07 2 2 

P0264 

EE 2B 



LOQ* 

0723 

PC265 

C20B 



LDA- 

0724 

P0266 

9106 



SUB- 

0725 

PG267 

8109 



AOD- 

0726 

P0263 

6208 



STA- 

0 7 27 

P02b9 

68E3 



STA^ 

072 8 

P026A 

C104 



LDA- 


(SF4) SCHEDULE DOWN TO LEVEL 

$1301, CADRSl-CAREF 


A 


JBCHFG 

1 

(DISP) 

12,0 

5,0 

(JMP) 

G 

0 

0 


Q 

SWAPON 

CCGP02 
( $FA) 

$13 0 2 

CCGPO-OCCPOl 

(DISP) 

I 

10,1 

-2 

CCCP03 

-4 

CCGPQ4 

CCGP4 

-8 

1 

CCCP5 

4.1 

LPHSK+7 

Q 

(LDGTAB + 1) ,0 

11,0 

6.1 

9.1 
11,0 
LWAPl 

4.1 


NOW AT LEVEL 1 
RELEASE STACK ENTRY 
COMPLETION ADDRESS 


»^MSOS 

«^^MSOS 

^^MSOS 


M7400673 

H7400674 

M7hDQ675 
OM7-00676 
DM740 0677 
0M74Q 0 678 
H7400679 
M7400680 
M7400681 


EXIT, IF JOB WAS CANCELED. 

ADDRESS OF USER IN A 

RETURN^TO^USER^IN^UNPROTECTEO CORE AT LEVEL 


STACK ADDRESS 
IS THE SYSTEM SHAPED 


H740Q 682 
M7i*0 0633 
M740 0684 
M7t00685 
MT^rQ 0686 
M7400687 
M740 0588 
M74QD68g 
115^4290**^'’^’^ 

EQUESTS WHICH H=^^MSOS ^ . flM7t,-j uagO 
THE DATA IS MOV^^HSOS ‘t.OMTUQOogi 

4. GM743 0 692 

4. oMT^+ooegs 
i*. 0M7v0O694 
4 • GM740 0695 
4. OM 7^00696 


^’‘MSOS 

-^MSOS 

»*MSOS 

,-^MSOS 


NO 

YES 


^ . 


WAIT UNTIL SWAP DONE 


REQUEST CODE FOR THIS REQUEST 
CHECK, FOR WRITE 

CHECK FOR FWRITE 

CHECK FOR MOTION 
YES 

GET LU 


PHYSTB ADDRESS IN Q ^ 

get LWA + 1 of FOREGROUND BUFFER 

GET INCREMENT ^ 

ADD TO REQUESTOR'S BUFFER ADDRESS 

STORE INTO WORD 11 OF PDT 

SAVE LWA T 1 


^^MSOS 
»*MSOS 
^^^^MSOS 
^^MSOS 
»*MSOS 
^^MSOS 
61^1284 


0M7400697 
« GM7hu 0698 
.. OM7400699 
. QM74D0700 
. GM74Q0701 
-.OM740 0702 
M740 0 70 3 
M?400704 
M74u07Q5 
M74QQ706 
M740Q 70 7 
M740 0708 
M74D0709 
M74jQ7lQ 
M740 u711 

115^4290**^'^’^^'^*'*^ 

115^4^9 
11 5'^ 4290 

115^4290’^’'^^'’^*^®'^ 
115^4290^^^*^^^*'^ 
115^4 29 


61^128 

61^1284 
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0729 

P0 26B 

CFCl 



ALS 

1 

Q730 

P026C 

0125 



SAP 

CCCPl 

0731 

PQ26D 

C8DF 



LDA^ 

LWAPl 

0732 

P026E 

El 05 



LOQ- 

5,1 

0 7 3 3 

P026F 

F106 



AOQ- 

6,1 

0 7 34 

PO 270 

OOFE 



INQ 

-1 

07 35 

P0271 

6622 



STA- 

(ZERO) , Q 

0 73 6 

P0272 

C109 


CCCPl 

LDA- 

9,1 

0737 

P0273 

6844 



STA^ 

XPERT 

0 7 3 8 

PQ274 

C106 



LOA- 

6,1 

07 3 9 

PC275 

68 43 



STA^ 

XFERF 

0740 

P0276 

E 1 05 



LDQ- 

5,1 

0741 

P0277 

0154 



SQN 

CCGP3 

0742 

PG278 

0 COl 



ENQ 

1 

0743 

P0279 

1803 



JMP» 

CCCP3 

0744 

P027A 

CE3E 


CCCP2 

LDA^'- 

(XFERF) ,Q 

0 74 5 

P0278 

6E3C 



STA» 

(XPERT) , Q 

0746 

P0 27C 

ODFE 


CCCP3 

INQ 

-1 

0747 

P027D 

0171 



SQM 

CCCP4 

0748 

P027E 

18FB 



JHP^ 

CCCP2 

074 9 







0 75 0 

P027F 

0 A 00 


CCCP4 

ENA 

0 

07 5 1 







0 752 

P0 28 0 

680 0 



STA 

BUFBZY 


P0281 

0 095 





0753 

P0282 

C40 0 

X 

CCCP5 

LDA 

UNPIOF 


P0283 

0 0 E6 

X 




07 5 4 


0283 

P 


EQU 

UNP ('‘-1 ) 

0755 

PQ284 

09FE 



INA 

-1 

0 75 6 

P0285 

6CFD 



STA^ 

(UNP) 

0757 

PD286 

EOFF 



LDQ- 

I 

0 7 5 8 

P026 7 

ODFE 



INQ 

-1 

0 7 59 

P0288 

1898 



J|v,pjf 

CCPQ 


CHECK FUR SHORT READ 

YES, SHORT READ 
COHPUTE N + S - 1 


STORE INTO LWA OF USER'S BUFFER 
BLOCK TRANSFER THE DATA BACK TO 
REQUESTORS BUFFER 


FORCE ZERO LENGTH REQUEST 
TO 1 WORD 


1 CARO DELETED 

SET THE BUFFER NOT BUSY 


115 ^ 4290 **^'^^-^*'- 

115V4'2QQ’^»»v--?«^¥^-¥- 

115'^429 

1 1 9 n 

THE' -^HSOS :H.OM7t^00723 
^^MSOS 9,CM74u0724 
<^'^MSOS '4. eH7400725 
. ^‘^MSOS 4. OM740 0 72 6 
■^^HSOS 4.0H740 0 727 
^•4.0/77^1832 M74D0728 

^4.0/77^1882 M74D0729 

♦*MSOS '4, OM740 0 73Q 
^^MSOS 4. CM740D731 
^^HSOS 4.0M7400732 
74HSOS 4. 0H7400733 
, ^^MSOS 4. GM740 0734 
^^MSOS 4,OM7400735 
^^MSOS 4.UM7400736 
♦^MSOS 4. OM7400737 
■ 61^1284 M7400738 

M74B 0739 


DECREMENT FOREGROUND I/O FLAG 


pl^l284 H74QG740 


61^1284 M7400741 

61^1284 M74QG742 

61^128^ M74Q0743 

AND GO THE THE NORMAL COMPLETION »»HSOS 4.GM7400744 

^^^MSOS 4.0M7400745 
^^^fSOS 4.0M7400746 


BPROTK 
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date; 01/27/99 


0752 

0753 
U7bh 
0 76 5 
0 756 
07 57 

0 7 5 0 
0759 

0770 

0771 

0772 

077 3 
0774 
0 775 
0776 
07 7 7 
0778 
0 7 7 9 

078 0 
07 8 1 
0782 
0763 
0 78 4 
0 735 
0 786 
078 7 
0786 
0789 
0 7 9 0 

0791 

0792 
0 7 93 

0794 

0 7 95 


0797 
0 79 8 
0 79 9 
08 0 0 
0801 
080 2 
0803 

08 0 4 
0 3 0 5 


P0289 

0 300 


CHKLU 

NOP 

0 

P028A 

El 08 



LDQ- 

11,1 

PG28B 

54BC 



RT J- 

(LJABS) 

PO 26C 

01 47 



SQZ 

LUER 

PO 28D 

0 8 54 



TCQ 

A 

PC28E 

8400 

X 

L0GTA8 

ADD 

LOGIA 

P028F 

7FFF 

X 



P0290 

0133 



SAM 

LUER 

P0291 

0 8 64 



TCQ 

A 

90292 

0901 



INA 

1 

P0293 

0131 



SAM 

1 

P0294 

1821 


LUER 

JMP^ 

LUERR 

P0295 

G104 



LDA- 

4,1 

PD296 

A02F 



AND- 

ONEBIT+12 

P0297 

0834 



AAQ 

A 

PQ298 

6104 



STA- 

4,1 

P0299 

EEF5 



LDQ^'' 

{LOGTA3 + D ,Q 

PC29A 

C208 



LDA- 

a,Q 

P029B 

PQ29G 

6800 

022C 



STA 

HO_ j 

P029D 

OF 44 



ARS 

4 

P029E 

A 0 09 



ANO- 

LPMSK+7 

P029F 

09F4 



INA 

-11 

P02A0 

OIQF 



SAZ 

CKCSY 

P02A1 

09BO 



INA 

-901-11 

PQ2A2 

013E 



SAM 

NTCSY 

PO 2A3 

09F5 



INA 

-10 

PD2A4 

0 12F 



SAP 

NOTCSY 

P02A5 

G208 



LDA- 

8,Q 

PO 2A6 

0FC5 



ALS 

5 

P02A7 

AO 05 



ANG- 

LPMSK-t-3 

P02A8 

G9FD 



INA 

-2 

P02A9 

0114 



SAN 

NOTMS 

P02AA 

0800 



RAO 

RETURN 

P02AB 

FD09 




P02AC 

D800 



RAO 

RETURN 

P02AD 

FOD7 




P02AE 

18 00 


NOTM3 

JMP 

Z4A 

P02AF 

FE92 




REQUEST ADDRESS 
ABSOLUTIZE LU 
LU. ZERO 

CHECK TO SEE IF LU LARGER THAN MAX 


M740 0749 
*^MSOS 4.0M740C75C 
M74U 0 751 
M7400 752 
M74Q0753 

M740Q754 


YES 

NO 

IS THE LU=1 

NO PUT THE LU IN THE PROTECT STACK 

GET THE PDT ADDRESS IN Q 
SAVE WORD a OF POT 


M 740 0 75 5 
M740 0 75 5 
M7400757 
M7400 758 
M740 0759 
M74G0 760 
M7400761 
M7400762 
M74QQ 753 
M743 0764 
M740Q765 
M74Q 0 766 


EQUIPMENT TYPE BITS 
COSY DRIVER 

CHECK FOR OCR DEVICE 
CODES 90 - 99 


YES, OCR DEVICE 

BUMP RETURN ADDRESS 

ONLY IF EQUIPMENT CLASS = 2 


INCREASE RETURN ADDRESS BY 2 


**MSOS 4.0 M7 40 0 76 7 
-^HSOS 4.0 M740G768 
^’^MSOS 4.C M74QQ769 
H740u770 
M7400 771 
M74Q0772 
M7400773 
M740 0 774 
M74Q 0 775 
M74Q 0 775 
M74G 0 777 
M740 0778 
M74D0 779 
M740 G 780 

M7400781 


OCR REQUEST 




PD2B0 C2G4 CKCSY 
U2B1 P NTCSY 
P02B1 0112 
P02B2 0804 


P0283 6204 
P02B4 1CD4 
P02B5 1800 
P02B6 FDFF 
P02E7 0000 
P02B8 QQOO 


LDA- 
EQU 
SAN 
SET 
STA- 
NOTC3Y JMP^^ 
LUERR JMP 

XPERT NUM 
XFER- NUM 


4 , Q 

NTCSYC^ ) 

NOTCSY 

A 

4 » Q 

(CHKLU) 

F 

0 

0 


COSY FLAG ACTIVE = NOT ZERO 
SO JOBKILL WILL RESET IT'S 

RETURN 

GO OUTPUT J02 ERROR 


M7400734 
M74QQ785 
»»MSOS 4.0 M74D0786 
^’^MSOS 4.0 M74QQ787 
^^MS6 4.1*» M740Q788 

^-HSOS 4.0 M74QG789 
M740G79Q 


’^^MSOS 4.QM740Q791 
^■^MSOS 4.0M74B0 792 


BPROTK 


P4GE 23 


date: 01/27/99 



o 



080 7 

P02B9 

OBOO 


H 

NOP 

0 


03 0 8 

P02BA 

E8 00 



LDQ 

RC3DE 



P02BB 

01 55 




\ .* 

080 9 

P02OC 

CAOO 



LDA 

REQT8, Q 



P02BD 

FDAE 





0810 

P02BE 

AOIE 



AND- 

NZERO+12 

C) 

0311 

P02BF 

0FC4 



ALS 


0812 

PQ2CQ 

E300 



LDQ 

INDIR 



P02C1 

FDC4 





0313 

P02C2 

0141 



SQZ 

H2-^-l 


0814 

PC2C3 

0814 



TRQ 

A 

*. J 

0 815 

P02C4 

88 00 


H2 

ADD 

RETURN 



P02C5 

FDBF 






0316 

P02C6 

683C 



STA- 

SQV 


0317 

P02C7 

EQF6 



LDQ- 

80T0P 


0818 

P02C8 

5 4 0 0 

X 


RTJ 

C0HPV4 



PG 2C9 

019A 

X 





0819 

P02CA 

0 102 



SAZ 

H25 


0320 

P02CB 

0900 



INA 

0 


0821 

P0 2CC 

0106 



SAZ 

H3 


0822 

PG2CD 

CO F6 


H25 

LDA- 

BOTOP 


0323 

P02CE 

09FD 



INA 

-2 


0824 

PG2CF 

6800 



STA 

PCELL 

'■w.' 


POZDO 

FDB2 






0 3 2 5 

PG2D1 

180 0 



JMP 

NDEIN 



P02D2 

0 114 





O ', 

0326 

PQ2D3 

1CE5 


H3 

JMP^ 

(H) 

0827 

P02D4 

COFF 


HH 

LDA“ 

I 


0828 

P02D5 

0901 



INA 

1 


' 082 9 

P02D6 

0822 



TRA 

Q 


083 0 

P02D7 

B021 



EOR- 

NZERO+15 


0831 

PQ208 

680C 



STA^ 

HI 


0 85 2 

P02D9 

C800 



LDA 

RCOOE 



P02DA 

0136 






0 833 

P02DB 

G9F2 



INA 

-13 


06 3 4 

P02DC 

0106 



SAZ 

Hl-1 


0 8 3 D 

P02DD 

C622 



LDA- 

(ZERD),Q 


0836 

PG2DE 

A031 



ANO- 

ONEBITf 1 


o 

o 

o 

o 


0 83 7 

P02DF 

ull3 


SAM 

Hl-1 

0838 

P02EG 

BQ 31 


EOR- 

ONEBIT^- 14 

083 9 

P02E1 

8622 


ADD- 

(ZERO ) , Q 

0840 

P02E2 

6622 


STA- 

(ZERO) , Q 

Q341 

P02E3 

54F4 


RTJ- 

($F4) 

0842 

P02E4 

0 3 0 0 

HI 

NUM 

0 

0343 

P02E5 

E81D 


LOQ^ 

SQV 

0844 

P02E6 

C4E9 

HIB 

LDA- 

($E9) 

0345 

P02E7 

0102 


SAZ 

H4 

0 3 46 

P02E3 

08h4 


CLR 

A 

0347 

P02E9 

0102 


SAZ 

2 

08t8 

P02EA 

C423 

H4 

LOA- 

(CN3TE) 

0849 

P02EB 

A021 


AND- 

NZERO+15 

G35C 

P02EG 

0834 


AAQ 

A 

0851 

PG2ED 

642B 


STA- 

(CT3TE) 


UNPACK REQUEST LENGTH 

IF REQUEST WAS INDIRECT, USE 

1 INSTEAD OF REQ. LENGTH TO 
FIND RETURN ADDRESS 

HAKE SURE RETURN IS 
UNPROTECTED 

RETURN IS PROTECTED THEREFORE 
A PROTECT VIOLATION HAS OCCURED 


IF THIS IS A GTFILE REQUEST 

SU8R. Z HAS 

SET CORRECT D BIT 

SET 0 BIT IF NOT SET 

INDIRECT REQUEST USING 
STACKED ENTRY 

65K HOOE--DO NOT SAVE 
OVERFLOW 

SAVE OVERFLOW BIT 


O 


M74Q 0794 
M7400795 

M740 0 796 

H740 0 797 
M740 0798 
M74Q 0799 

M7400800 
^-MSOS 4. 0M740 0801 
M74G08D2 

»»MSOS ^.OM7400803 
’^^MSOS 4. 0H7h00804 
^^HSOS 4. OM7400805 

^^MSOS 4.CM74Q0306 
^^MSOS 4.0M74U0807 
^^MSOS 4.0M7400808 
^-MSOS 4.0M7hOG 309 
H740 0810 
M74u 0 811 

«^^HSOS 4.0H74C0 312 

M7400813 
M74aQ814 
^^HSOS 4.GM740D815 
H740Q316 
^^MSOS 4.0M7400817 
^^HSOS 4.0M74U0818 
M7400819 

H74G0820 
. M74Q0821 
M743 0 822 
M743 0 823 
H7400824 
M7400825 
M740 0 826 
M74a0827 
^^MSOS 4. DM740 0828 
^♦MSOS 4.0M74Q0829 
^^MSOS 4.0M74Q0830 
^^MSOS 4,GM74u0831 
^^MSOS 4. 0H74QC832 
^^MSOS 4.CM7400833 
^-MSOS 4. OM740 0 334 
^»MSOS 4.0H7400835 
M7400836 
M74u0 837 
M743 0838 


•h,,- 

o 

c 

o 

o 

c 


I." j 



o 


o 

o 

c 


o 

u 

o 


o 


BPROTK 
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OATE5 01/27/99 


THIS EXITS VIA WHATEVER IS iN iOO ON ENTRY 


M743084Q 


PD2EE 
P02EF 
P02F0 
P02F1 
P02F2 
P02F3 
PQ2F4 
P02F5 
PC2F6 
P02F7 
P02F8 
PG2F9 
P02FA 
°02FB 
P02FC 
PQ2F0 
P02FE 
PC2FF 
P 0 3 0 u 
PQ301 
P0302 


E8 GO 
F097 
0 5u 0 
i+ 4 88 
EOB3 
C8GQ 
FD8A 
6201 
C8G0 
FD88 
6202 
C8G0 
FD86 
6204 
C42B 
6203 
OO 05 
4088 
0 40 0 
14EA 
G Q 0 0 


SAVQ 


(COUNT) 

COUNT 

SAVA 

1 ,Q 

SAVI 

2,0 

SAVPR 

4.0 

(CN3TE) 

3.0 

COUNT 

0 

(DISP) 

0 


SAVE Q IN INTERRUPT STACK 


SAVE A IN INTERRUPT STACK 

SAVE I IN INTERRUPT STACK 

SAVE PRIORITY IN INTERRUPT STACK 
SAVE RETURN IN INTERRUPT STACK 
RESTORE TOP OF INTERRUPT STACK 


M7400842 

M740G843 

M74Q0844 

M74Q0845 

M7400846 

M74-3 Q 847 
M743QB43 

M740Q849 

M74Sa85G 

M7400851 
H743C352 
H7 40 0 853 
M7430654 
M743 0 85 5 
M7 4D 0 85 6 
M740O857 
^♦MSOS 4.0M74G0358 


0 3 7 3 

0874 

0875 


THIS ROUTIN- MOVES THE I/O BUFFER TO THE FOREGROUND, IF^»-^HSOS 4.0M740D86Q 
POSSIBLE. THIS ALLOWS CORE SWAPS TO BE PERFORMED EVEN^^NSOS U.GM7400861 
THOUGH BACKGROUND I/O IS IN PROCESS. ^^MSOS ^.0M74008o2 


0877 

P0 303 

0 0 00 

H 

0 

0 

0878 

PQ3U-* 

5801 


RTJ^ 

M5 

0 3 79 

P0 30 5 

00 00 

H5 

NUM 

0 

033 0 

P0306 

can 


LDA^ 

MMIND 

0881 

PO 30 7 

D8 02 


SET 

Q 

0 382 

P0308 

0 IQC 


SAZ 

Ml 

0883 

P0309 

P050A 

C8Q0 
010 6 


LOA 

RCDDE 

0334 

P03QB 

61 0 A 


STA- 

10,1 

0 83 5 

P030C 

0 9F1 


INA 

-14 

08 86 

PD3uO 

Qlll 


SAN 

1 

C887 
083 3 

P030 E 

18 ID 


JMP^ 

M9 

0839 

P030 F 

C807 


LOA» 

BUF8ZY 

0890 

0831 

P0310 

0114 


SAN 

Ml 

0892 

P0311 

C1D5 


LOA- 

5 , 1 

0393 

P0312 

P0313 

90 00 
00 61 


SU8 

=X3UFS 


ABSOLUTIZE ALL REQUIREO ADDRESSES 

IS THIS A M.M. REQUEST 
INITIALIZE THE SWAP ALLOWED FLAG 
Y £S [i X I T 

IF MOTION BYPASS BUFFER MOVING 


MOTION 

IS THE BUFFER BUSY 
YES, EXIT 

CHECK LENGTH FOR LESS THAN BUFSIZ 


«^MSOS 4.0H7400864 
M74G 0 865 
M7‘t0 0 866 
^*MSOS 4. 0M74008b7 
M740 0 368 
^^HSOS H.CM7400869 
61^128*4 M740067G 


61^128h 
61^1284 
61^1284 
61^1284 
^^MSOS 4, 
^»MSOS 4. 
^^MSOS 4. 
»»MSOS 4. 
^»MSOS 4. 
»^MSOS 4. 


M740 0 871 
M7400872 
M74GQ873 
M7400874 
0M743 0 875 
0M74Q0876 
QM7400877 
0M7400878 
GM7<+00879 
GM74Q0880 


8PR0TK 
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DATE: 01/27/99 



o 

o 

o 

o 

o 

o 

o 

0 


0 394 

P031^ 

0135 


SAM 

M4 


»^MS0S 

GM743Q381 

Q S g is 

PO 315 

1814 

Mi 

JMP* 

H8 

CAN'T BUFFER THIS REQUEST 

- EXIT ^^HSOS 

4. QM740Q882 

0896 







^^MSOS 

4. UM74GG883 

0897 



V- 




^^MSOS 

4. 0M7400384 

0898 

P0316 

GOOD 

BUFBZY 

NUM 

0 


^^MSOS 

t. UM74008B5 

0899 

P0317 

0 0 0 0 

HMINO 

NUM 

0 


»^MSOS 

4.QM74Q0386 

090 0 

P0318 

FF48 

ACCCP 

AOC 

(CCCP-M5) 


»^MSOS 

4. 0M7400887 

090 1 

P0319 

0 0 2A 

ABUF 

ADC 

BUFR-M5 


«^^MSOS 

4 . 0M74Q0888 

090 2 



V- 




^-MSOS 

4. QM74G 0 889 

090 3 

P031A 

68FB 

M4 

STA» 

BUFBZY 

SET THE BUFFER BUSY 

»^MS0S 

4. DM7400890 

0 90 4 

PQ31B 

C106 


LDA- 

6,1 


^^MSOS 

4. 0M74uQ 891 

0905 

P031C 

6109 


STA- 

9,1 

SAVE THE REQUESTORS S 

»^MS0S 

4. QM74QC892 

093 5 

PG31D 

689A 


STA^ 

XFERF 


»^MSOS 

4. UM7400 893 

090 7 



* 




»»MS0S 

4. 0M7400894 

0908 






2 CARDS DELETED 


M7400895 

0909 






4 CARDS DELETED 

61^1284 H74G0896 

0910 

P031E 

C8E6 


LOA^ 

M5 


»^MSOS 

4. 0M7400897 

0911 

PQ31F 

88 F9 


ADD^ 

ABUF 


»»MSOS 

4, 0M740Q398 

0912 



* 



1 CARO DELETED 

61^128 

4 M74G0399 

0913 

PC320 

6106 


STA- 

6,1 

SET NEW BUFFER ADDRESS IN 

THE STACK :?^MSOS 

4. GM74G 09CD 

0919 

P0321 

6895 


SIA^ 

XPERT 


^-MSOS 

4. 0M7400901 

0915 







^f«-MSOS 

4. OM74G0902 

09io 

P0322 

El 05 


LOQ- 

5,1 

BLOCK TRANSFER FROM USER TO THE BUFF^^MSOS 

4 . OM7400903 

0917 

P0 323 

0152 


SUN 

M7 



M740 090 4 

0918 

PC324 

CE93 

M6 

LDA^ 

(XFERF) ,Q 


'^^MSOS 

4.UM74D0905 

0919 

PG325 

6E91 


STA'^ 

(X- ERT) , Q 


^^HSOS 

4* QH74D0 90 6 

0920 

PO 326 

ODFE 

M7 

INQ 

-1 


^^MSOS 

4. QM7400907 

0921 

P0327 

0173 


SQM 

M9 


' ^^MSOS 

4. OH74Q0908 

0922 

P0 328 

18FB 


JMP’^ 

M6 


^♦MSOS 

4. OM740G909 

0923 

P0 329 

0 8 42 

MS 

CL R 

a 

INDICATOR TO SET THE UNPIO 

FLAG 

4. 0M740 0910 

0924 

P032A 

18 04 


JMP» 

MIO 


61^^1284 M74G0911 

0925 

P032B 

G8D9 

M9 

LDA^^ 

M5 

SET NEW COMPLETION IN THE 

STACK 61-^128 

4 M7vJDgi2 

0926 

P032C 

88EB 


ADD^ 

ACCCP 


61^1284 M7400913 

0927 

P032D 

6102 


STA- 

2,1 


6i^l28’4 M740 Q914 

0928 

P032E 

1C 04 

MIQ 

JMP«= 

(M) 

EXIT 

61^128 

4 M7430915 

0929 

PO 32F 

0 0 60 

BUFR 

BZS 

BUFR(BUFSIZ) 


^^MSOS 

4. flM743 G 916 


o 

o 


o 

o 

C) 


o 

o 

o 

o 

o 

o 

o 

0 

o 

o 

o 

o 

o 

o 
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=>AGE 26 


DATE; 01/27/99 


THIS IS WHERE THE OVERLAY OF THE ERROR 
ROUTINE AND JBKILL BEGINS. ROUTINES 
WHICH ARE IN THIS AREA INITIALLY ARE 
NOT REQUIRED AFTER AN ERROR HAS OCCURRED 

OR jbkill is scheduled. 

EQU AREA(^^} 


WE NOW INVESTIGATE THE POSSIBILITY OF 
AN ATTEMPTED ENTRY INTO A PROTECTED PROGRAM 
WHOSE ENTRY IS A PRESET. 


LOA PTR 

LDQ- BOTOP IS IT BELOW MONITOR COMMON 

RTJ* (CONV) 

SAZ Ci 

INA 0 

SAZ 0 

JMP* TSTOIS NO - CHECK JMP TO DISPATCHER 

LDQ- LPREST LENGTH OF PRESET TO Q 

INQ -1 

LDA- (PRESET), Q IS THE COMPUTED ADDRESS 
SUB PCELL A PRESET ENTRY POINT 

SAN D2-^-i 

LDQ PCELL YES 

LDA- i,Q IS IT FOLLOWED BY AN IIN 

SIJR^ ATI 

SAN D3-^-l SKIP IF NO 

JMP B YES, GO EXIT IT PRESET 

INQ -4 

SQM TSTDI3-^-l ARE WE DONE CHECKING PRESETS 
JMP’^ 01 NO CONTINUE CHECKING 

JMP’^ NOEIN GO OUTPUT JOl ERROR 


M 740 0919 
M7^Q 0920 
H740 0921 
M740 0922 
M7400923 
M74Q0924 


H74D0926 
M74U 0927 
M7400928 


M74D0 93C 

^^MSOS H.LM7400931 
^^MSOS -r.‘0M7400932 
^^HSOS 4.0M7400933 
^^MSOS 4.0M743G934 
<^^MSOS 4. DM7400935 
^^MSOS 4.0M74UD936 
M7-i0 0937 
M740 0938 
M740 0939 
M7400940 

M74Q0941 

M7400942 

M74Q Q9*+3 
M740 0944 
M740G945 
M7400945 

M7h00947 
M740 0948 
M740 0949 
M743 0950 


I ) 

o 

o 

{ } 

C) 

o 

o 

c 

o 

o 

o 
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DATE: Oi/27/99 


0968 

P03A8 

C800 


TSTOIS 

LDA 

PCELL 


PQ3A9 

FCD9 





0957 

P03AA 

0 822. 



TRA 

Q 

0968 

P03AB 

0901 



INA 

1 

0959 

P03AC 

9 0EA 



SUB- 

DISP 

0970 

P03AO 

0101 



SAZ 

1 

0971 

P03AE 

18 OE 



JHP^ 

NOTDIS 

0972 

P03AF 

C8G0 


ISOI3 P 

LDA 

SAVPR 


P03B0 

FCDO 





0973 

P03B1 

AOll 



AND- 

LPMSK+15 

0974 

P03B2 

0112 



SAN 

ATONE 

0975 

P05B3 

58G0 



RT J 

DOWNO 


P03B4 

FCF8 





097 6 

P03B5 

E0E9 


ATONE 

LDO- 

$E9 

0977 

P03B6 

E2 09 



LDO- 

9,0 

0978 

P03B7 

C205 



LDA- 

5,0 

0979 

P03B8 

0500 


ATI 

IIN 

0 

0 98 0 

P03B9 

6QFF 



STA- 

I 

0931 

PO 3BA 

0 802 



SET 

Q 

0982 

PG 3BB 

1522 



JMP- 

(ZERO), I 

0933 

PG3BC 

0 002 


NOTDIS 

INQ 

2 

0984 

P03BD 

482B 



STQ» 

VIOL 

0985 

P03BE 

h850 



STQ’^ 

SAVQl 

09 3 6 

P03cF 

C42B 



LDA- 

(GNOTE) 

0937 

P03C0 

E4E9 



LDQ- 

($E9) 

0988 

P03C1 

01 51 



SON 

TBCK 

09 8 9 

P03C2 

Au 11 



AND- 

H7FFF 

0990 

P03C3 

6808 


TBCK 

STA^ 

ADR+i 

0991 

P03C4 

EOF? 



LDQ- 

TOPMON 

0992 

P0 3C5 

5 40 0 

X 


RTJ 

C0MPV4 


P03C6 

02C9 

X 




0993 


0 3 Co 

p 


EQU 

COMV(^-l) 

0994 

P03C7 

0102 



SAZ 

ADR 

0 995 

PG3C8 

090 0 



INA 

Q 

0996 

P03C9 

0107 



SAZ 

PROT 

0997 

P03CA 

GOOD 


ADR 

LDA 

= N5 0 0 0 0 


P03CB 

0 0 00 





0998 

PG3CC 

E0F6 



LDQ- 

BOTOP 

0999 

P0 3CO 

5CF8 



RTJ^ 

(COMV) 

10 0 0 

P03CE 

0102 



SAZ 

PROT 

1001 

PQ3CF 

0 900 



INA 

0 

10D2 

P03DQ 

0101 



SAZ 

TSOK 

1-03 

P03O1 

1815 


PRO T 

JHP^ 

NOEIN 

IDOh 

PQ 3D2 

E83C 


TSOK 

LDQ* 

SAVOl 

10 0 5 

PD3D3 

OOFC 



INQ 

-3 

1006 

P03D4 

C622 


TRYEI N 

LDA- 

(ZERO) ,Q 

1007 

P03O5 

OF 48 



ARS 

8 

10 0 8 

P03D6 

09FB 



INA 

-4 

IG 09 

P03D 7 

0138 



SAM 

NOTEIN-^-1 

1010 

Pa3D8 

09FA 



INA 

-5 

1011 

PC3D9 

0132 



SAM 

ISINT-*^-! 

1312 

P03DA 

09FA 



INA 

-5 

IQ 13 

P03DB 

0114 



SAN 

NOTEIN-^‘-l 


M7400953 


AODR AT WHICH VIOLATION OCCURRED 
ADDRESS OF DISPATCHER 

NOT A JUMP TO DISP 

YES, WAS IT FROM LEVEL ZERO 


M7400954 
M7 43 0 95 5 
M7400956 
^^MSOS 4.0M74i3 0957 
»^MSOS 4.0M7400958 
M7400959 


»^MSOS 4,OM74Q0960 
^^MSOS 4.aM74a096i 
»^H-130S 4.'0M74Q09&2 


AODR OF EXTENDED CORE TABLE »»HSOS 
ADOR OF RCTV IN MONI ^^MSOS 
AODR OF EXIT REQUEST ( T5 ) 


-0 TO Q TO INDICATE ENTRY FROM PP 
JUMP TO T5 


Q=LOC OF INTERRUPT +1 

CHECK TO SEE IF 
LOG. IS FROM PARTI 

CONTENTS OF $100 MUST 

BE IN UNPROTECTED 
CORE OR ABORT 


4. OM7400953 
4» GH74G 0964 
M7400965 
M7400 9b6 
M74a0967 
M7400968 
M740C959 
M7 43 0970 
M7400971 
^^MSOS 4.0M740Q972 
M74D0973 
^'^MSOS '^.uM 743 0 97 4 
^^MSOS 4.(3M7400975 
M74uQ97o 
^-MSOS 4.0M7400977 
^^MSOS 4.QH7400978 
’^^MSOS 4. 0M7400979 

^^MSOS 4.0M7400980 
^<^MSOS 4.0M740 Q931 
»»MSOS 4.0M74Q0982 
-^MSOS 4. OM740Q983 
»»MSOS 4.0M7400984 

^^MSOS 4, OM7400935 
^^MSOS 4.GM7400986 
»^MSOS 4.0M74Q0987 
»^MSOS 4.0M7400988 
»^MSOS 4.0M74QQ989 
M74u 0 99 0 
^*MSOS 4.QM740Q991 
M740C992 
M7400993 
M740 Q994 
M7400995 
M740Q996 
H743 0997 
M743 0 998 
M7430999 
M74aiQ0C 


Q=ADDR OF CELL 3 LOCATIONS BACK 
FETCH CONTENTS OF CELL TO BE TESTED 

EIN=400, IIN=500, INTERREG=8 00 , EXI=E0O 


BPROTK 
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date: 01/27/99 


1314 
IQ 1 5 
1016 

10 17 
1018 
1019 
10 20 
lu2i 
10 22 
1023 

10 2 4 


P03UC 

E80C 

ISINT 

LDQ^^ 

VIOL 

PC5DD 

4428 


STO- 

(CNOTE) 

P03DE 

P03DF 

18 00 
FFOE 


JMP 

K 

PD3E0 

C8Q8 

NOT El N 

LDA^ 

VIOL 

P03E1 

0864 


TCA 

A 

P03E2 

0834 


AAO 

A 

P0 3E3 

0102 


SAZ 

NOEIN-’f 

P03E4 

ODOl 


INQ 

1 

P03E5 

18EE 


JMP^f 

TRYEIN 

P03E6 

P03E7 

18 DO 
FCCC 

NOEI'^ 

JMP 

E 

P03E8 

0 0 0 0 

VIOL 

ADC 

0 


RETURN TO UNPROTECTED PR06RAH 
THE VIOLATION IS LEGAL 

LAST ADDRESS TO TEST 
TRY NEXT CELL 

ERROR EXIT, PROTECT VIOLATION 


M7401001 
M7401002 
^^MSOS 4. 0M74Q1003 

M7401004 
M74Q 1005 
M7uQ100o 
M7401007 
M7401008 
M7L010Q9 
M7401U10 

M7401011 
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date: 01/27/99 


o 


o 

o 


1025 
10 2 7 
1023 


-¥• 

>!■ 


THIS ROUTIME ABSOLUTIZES LOGICAL UNIT AND 
STARTING ADDRESS WHILE DOING LEGALITY CHECKS 
ON THEM. 


M74jl013 
M74Q1014 
M7L] 1 015 


C' 



1030 

PQ3E9 

0 000 

J 

0 

0 

o 

lu3i 

P03EA 

5800 


RTJ 

CHKLU 


P03E8 

FE9D 





1032 

P0 3EC 

OAQl 


ENA 

1 


1033 

P03ED 

A208 


AND- 

8 ,Q 

o 

10 3 4 

P03EE 

0102 


SAZ 

J23-^-l 

1335 

P03EF 

18Q0 


JMP 

PI 



P03F0 

00D3 





1036 

P03F1 

ElOB 

J28 

LOQ- 

11, I 

o 

10 3 7 

°0 3F2 

5 4 BO 

J 2 C 

RTJ- 

{ SABS ) 

1038 

P03F3 

681G 


STA^ 

LOGS 


10 3 9 

P03F4 

4106 


STQ- 

6,1 


10 4 0 

P03F5 

C818 


LDA^ 

RCODE 


10 -rl 

P03F6 

G9FD 


INA 

-2 


1042 

P03F7 

681A 


STA^ 

WRIND 


1043 

P03F8 

01 G 2 


SAZ 

J 43 


13 4 4 

PO 3F9 

Q9FB 

J4 

INA 

-4 


1045 

P03FA 

6817 


STA^ 

WRIND 


10 45 

P03FB 

0111 

J43 

SAN 

J44 


iu47 

P03FC 

1811 


JMP- 

J 8 


10 4 8 

P03FO 

C106 

J44 

LDA- 

6,1 


1049 

P03FE 

OlOC 


SAZ 

J7 


13 5 0 

PG3FF 

09FE 


INA 

-1 


10 51 

P0400 

E0F7 


LDQ- 

TOP 'ION 


1G52 

PO 401 

5CC4 


RTJ» 

(COMV) 


1=353 

P04 3 2 

0 102 


SAZ 

J45 


10 5 4 

PG403 

0900 


INA 

0 


1055 

P04C4 

0106 


SAZ 

J7 


i05b 

P D 4 0 5 

C106 

J 45 

LDA- 

6 , 1 

o 

13 5 7 

P0406 

EQF 6 


LDQ- 

BOT3P 

1G5S 

P0h07 

5CBE 


RTJ’^ 

(CDMV) 


1059 

P04G6 

•3102 


SAZ 

J7 


10 oC 

P 0 4 0 9 

0900 


INA 

Q 

o ' 

1Q51 

PG 4 O A 

0102 


SAZ 

J8 

13 52 

P040B 

18 0 0 

J7 

JMP 

F 

1 


P040C 

FCA9 





1053 

PG40D 

ICDB 

J8 

JMP^^ 

(J) 


13 54 

P04GE 

3 0 00 

SAVQl 

NUM 

0 




GO CHECK LU. RETURN VJITH Q 


M7431017 

M7401018 


SET TO ADDRESS OF PDT 

PROTECTED 

NO — OK 

YES--ERROR JOb 


M7401019 
¥-^-^m^-M7 43 102Q 
♦4^^^H74Q1021 
M74Q1022 


’^^HSOS 4, 
’^’^MSOS 


^^MSOS 


NO, PREPARE TO A 8 S. PARAMETERS 
ABSOLUTIZE S 

PUT S IN STACKED REQUEST 
GET REQUEST CODE 
IS IT WRITE 

YES-RETURN 
IS IT FWRITE 


YES - RETURN 

ERROR - IF STARTING ADDR. IS ZERO 
STARTING ADDRESS - 1 

SEE IF STARTING ADDRESS IS IN UNPROT^^HSOS 4. 

»^M30S 4, 
»^MSOS 4. 

^^HSOS 4. 

NO - ERROR ♦^MSOS 4. 

^^MSOS 4. 

»»MSOS 4. 

^^MSOS 4. 
«^*MSOS 4. 
»^MSOS 4. 

YES ^^♦MSOS 4. 

GO OUTPUT J02 ERROR 


0M7401023 
GM74G1 024 
M74G1G25 
M740102b 
M74j 1027 
M7401028 
M74Q1029 
0M7401030 
M7401031 
M7401032 
M74D1033 
M74Q1034 
M7401035 
, M7431Q35 
M74Q10S7 
OM7401038 
OM7401039 
GM74G1040 
CM7401041 
OM7401042 
QM74G1043 
0H7431044 
OM7401045 
OM7401045 
0M7401047 
QM7401Q48 
M74G1049 


OK - RETURN 


M740 1 0 5 0 
^^MSOS 4.0M7401051 


c 

o 

o 

o 


c 

o 

o 


c 


o 


o 


o 


o 


c 


o 






( 1 
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DATE: Gi/2?/99 


1057 



* 

THIS 

ROUTINE ABSOLUTIZES N AND LEGALITY CHECKS 


M740 1059 

1058 



* 

S + N . 

IT VERIFIES 

THAT THE CALLED DEVICE CAN READ 


M79Q1055 

1059 



* 

OR WRITE AS REQUESTED. 


H7431056 

i:7i 

PO 40F 

0 0 0 0 

LOGS 

NUH 

0 

LOCATION OF PARAMETER LIST 


M7901058 

1Q72 

P0410 

0 0 0 0 

RCODE 

NUM 

0 

REQUEST CODE 


M79D1059 

13 73 

PCtII 

0 0 00 

WRINO 

HUM 

0 

ZERO IF WRITE OR FWRITE 


M7901060 

10 7 9 






1 CARD DELETED 


M7401 061 

1075 

PQ412 

00 00 

L 

0 

0 



M7401062 

1076 

P0913 

El OB 



llil 

REQUEST ADDRESS 

»^MSOS 

4. 0M7401063 

1077 

P0414 

C622 


LDA- 

(ZtRO),Q 

OBIT SET 

^^MSOS 

H. CM 74 01064 

10 78 

PO 91 5 

OFCl 


ALS 

1 


»^MSOS 

4. 0M7401065 

10 7 9 

P 0 91 6 

0123 


SAP 

LQl-^-1 

NO 

*^^MSOS 

•4. 0M74ai066 

1C 3 u 

P0917 

C2 04 


LDA- 

4,Q 

YES--BIT 15 ON N SET 

^^MSOS 

■+, OM7401067 

10 81 

P0418 

0 121 


SAP 

LOl-^-1 

NO 

^*MSOS 

4. 0M74Q1058 

1032 

Pa4l9 

18F1 


JMP- 

J7 

YES — ERROR 

--MSOS 

4. QM740 1069 

1083 

PG-flA 

54BF 

LQl 

RTJ- 

(NABS) 

ABSOLUTIZE N AND STORE IT IN 

^^MSOS 

4. GM7401070 

1084 

P091B 

4105 


STQ- 

5il 

THE STACKED REQUEST 


M740 1071 

10 8 

P041C 

C8F4 


LDA^ 

WRIND 



M740 1072 

13 86 

PG41D 

0111 


SAN 

1 


^^MSGS 

4.0M7401073 

10 3 7 

P 0 9 1 E 

1810 


JHP^ 

L5 

IF REQUEST IS NOT WRITE OR 

^^MSOS 

4. QM7401074 

1088 



. ¥ 



EWRITE, HAKE SURE BUFFER 


M7421 075 

1089 

P091F 

C106 

LI 

LOA- 

5»I 

IS NOT IN PROTECTED CORE 


M7^31076 

1j9u 

P0-*20 

E0F7 


LDQ- 

$F7 

BOTTOM-1 OF UNPROTECTED 


M74D1077 

1091 

PD421 

5C A 4 


RT 

(COMV) 


*^MSOS 

4. 0M74O1D78 

1092 

P0922 

QlOA 


SAZ 

L9A 

IT IS IN PROTECTED 

»^MSOS 

4. 0M74Q1O79 

10 93 

P0h23 

09 GO 


INA 

0 


^^MSOS 

4. 0M740108G 

13 9 9 

P0h29 

0108 


SAZ 

L 9A 

BELOW LOWER LIMIT 


M74Q1081 

1295 

P0925 

D1G6 

L4 

LDA- 

6,1 


^^MSOS 

4. GM7401G82 

10 9 6 

PQ426 

8105 


AOD- 

5,1 

NUMBER OF WORDS 

. ^^MSOS 

■4.0M7401G83 

10 97 

P0 92 7 

09FE 


INA 

-1 


^^MSOS 

4.UM7401G84 

10 98 

P0928 

EQF6 


LDQ- 

BOTDP 


^^MSOS 

4. CM7401085 

1399 

P0429 

5C9C 


RTJ*^ 

(COMV) 


^^^MSOS 

4. 0M7401086 

ilQ Q 

P092A 

0102 


SAZ 

L9A 


’^^MSOS 

4. OH7401Q87 

1101 

P092B 

0900 


INA 

0 


^^^MSOS 

4. OM7401088 

1102 

P0 42C 

QlOl 


SAZ 

L5 


^^HSOS 

4. 0M7431089 

1103 

P042D 

18D0 

L 9 A 

JHP-^ 

J7 

BUFFER ENDS IN PROTECTED CORE 


M740ia9Q 

1104 

P042E 

08 00 

L5 

LDA 

HOLD 

PICK UP WORD 8 OF PDT - EREQST 


M74D1091 


PO 42F 

0 099 







110 5 

PQ-+30 

0FC5 


ALS 

5 



M7431092 

1106 

P0431 

AQ 05 


AND- 

5 

MASK 3 BITS 


M7401093 

110 7 

P0432 

09FE 


INA 

-1 



M74D1094 

110 3 

P0 43 3 

0 113 


SAN 

L50-^-l 

SKIP IF NOT MAG TAPE 


M74Q1095 

1109 

P0434 

C105 


LOA- 

5,1 

HAG TAPE CHECK FOR ZERO WORDS 


M7431Q96 

1110 

PO-435 

0112 


SAN 

LSOfl--^-! 

SKIP IF NOT ZERO WORDS 


M7431097 

1111 

P0436 

13D4 


JMP* 

J7 

ERROR 0 WORD +■ MAG TAPE 


M740 1098 

1112 

P0437 

Q9FE 

L50 

INA 

-1 

CHECK TO SEE IS MASS MEMORY 


M74D 1099 

1113 

PO 438 

6800 

L50A 

STA 

MMIND 

MASS MEMORY INDICATOR 


H7401100 


PQ439 

FEDO 







1114 

P043A 

0102 


SAZ 

L6-^-l 

A=Q YES MASS MEMORY 


M740 110 1 

111 5 

P043B 

1800 


JMP 

P 

NO 


M74Q1102 


P043C 

0 0 80 
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DATE: 01/27/99 


1116 

P043D 

El OB 


L 6 

LDQ- 11,1 

REQUEST ADDRESS 


^^MSOS 4. 

OM7401103 

1117 

P043E 

C4E9 



LDA- ($E9) 

IF 65k: SKIP THE 



M7431iQ4 

1118 

PQ43F 

0112 



SAN L 6 A 

indirect s check 



M740 110 5 

1119 

P0440 

C205 



LDA- 5, a 

IF S IS indirect, move MASS 



M74j 1105 

1120 

PO -^41 

0138 



SAM L7-^-l 

STORAGE address TO STACK 



M74Qlia7 

1121 

PO 442 

C800 


L 6 A 

LOA INOIR 




H7401108 


P0443 

FC42 








1122 

P 0 444 

GllA 



SAN L 8 -^-l 




M7401109 

1123 

P0445 

D800 



RAO RETURN 

IF REQUEST AND S ARE DIRECT 



M74Q1110 


P0 446 

FC3E 







112 4 

P0447 

D800 



RAO RETURN 

ADO 2 TO RETURN ADDRESS 



M7401111 


P0448 

FC3C 







112 5 

PQ 449 

1806 



JMP^ L 8 




M74C1112 

1126 

P044A 

E8C4 


L7 

LDQ^ LOGS 




M74U1113 

112 7 

P044B 

C201 



LDA- i,a 




M7401114 

1128 

PC 44 C 

6107 



STA- 7,1 




M74D 1115 

1129 

P044D 

5202 



LDA- 2, a 




M74D1116 

1130 

PQ44E 

61 08 



STA- 8,1 




M 74 aill 7 

1131 

PO 44 F 

G108 


L 8 

LDA- 8,1 

CHECK FOR MINUS SECTOR NO. 



M74G1118 

1132 

P 0450 

0121 



SAP L85-^-l 




M7401119 

1133 

P0451 

1889 


L84 

JMP^ J7 




M74Q1120 

113^* 

P0432 

E 8 BO 


L85 

LDQ^ RCODE 



61^1294 

M74G1121 

1135 

PO 45 3 

ODFC 



INQ. -3 



61^1294 

H7401122 

113 6 

P0454 

C104 



LDA- 4,1 

IF LU NOT LIB DON'T ADD SCRATCH 

61^1294 

M74bll23 

1137 

PO 455 

AOQA 



AND- LPMSK+3 

MASK OFF MODE BIT 


64^1294 

M743 112 4 

1138 

PG456 

90C2 



sue- LIBLU 




M7431125 

1139 

PO 45 7 

6872 



STA^ LIFLAG 

ZERO IS LIB AND SCRATCH ARE 

SAME UNIT61»1294 

M7401126 

114u 

P0458 

0113 



SAN LBA-'^-l 




M743 1127 

11^1 

PQ459 

C4QQ 

X 

L9 

LDA4- LOADIN 

IF LOADING IS IN PROGRESS, 



M743 1128 


P045A 

7FFF 

X 







1142 

P045B 

01G2 



SAZ LlO-^-1 

DONT ADO SCRATCH ADDRESS. 



M7401129 

M7431130 

1143 

PO 45 C 

0 AGO 


L9A 

ENA 0 

SCRATCH DISK 


61^1294 

114 4 

P045D 

1803 



JMP-'f LiOA 



61^1294 

M7401131 

1145 

P045E 

COCl 


Lie 

LDA- $C1 

COMPENSATE SCRATCH SECTOR - 

1 

61^1294 

M7401132 

1146 

P045F 

Q9FE 



INA -1 




M74G1133 

1147 

P0460 

0171 


LlOA 

SQM LOIA 

REAO/NRITE 


61^1294 

M74S1134 

1148 

P0461 

181A 



JMP^ LQIQ 

HANDLE FREAO/FWRITE AT LOlO 



M7431135 

1149 

P0462 

El 07 


LOIA 

LDQ- 7,1 




M7h01136 

11 5 G 

PQ 4d3 

0174 



SQM LOIER 

IF MSB NEGATIVE - ERROR 



M7^.U1137 

1151 

P0464 

0154 



SQN LOIGO 

IF MSS POSITIVE, NOT ZERO - 

OK 


M743 1138 

1152 

PO 465 

El 08 



LDQ- 8,1 




M74J 1139 

1153 

PQ466 

0D9F 



INQ -95 

CHECK LSB GT SECTOR ZERO IF 

MSB = 0 


M74Q1140 

115^ 

P0t67 

0 161 



SQP LOIGO 




M7401141 

115 5 

P0468 

18E8 


LOIER 

JMP* L84 

ERROR EXIT 



M74Q1142 

1156 

P0469 

0 C 0 0 


LfllGD 

ENQ 0 



61 '>^1294 

M7431143 

1157 

P046A 

0103 



SAZ LQIGQA 

SCRATCH DISK 


61^1294 

M7401144 

1158 

P0-.6B 

285C 



MUI^ N95 



61^1294 

M74G1145 

1159 

PD46C 

OFEl 



LLS 1 

MAKE START OF SCRATCH LOOK 

LIKE DRUM 

ADDRESS , 

M 7431146 

115 J 

P046D 

OFCF 



ALS 15 




M7431147 

1161 

P046E 

FI 07 


LOIGDA 

ADQ- 7,1 



61^1294 

M7431148 

1162 

PQ46F 

810b 



ADD- 8,1 

COMBINE start OF SCRATCH WITH USERS 

ADDRESS 

M7t.ull49 

M74ail5G 

1153 

P047Q 

0122 



SAP LOlOB 



61^1294 

115 4 

P0471 

G 0 0 1 



INQ 1 




M7401151 


8PR0TK 


Pi\GE 3? 


DATE: 01/27/99 



REMOVE SIGN IN LSB IF SET 


STORE COMPENSATED MSB 
LSB 

COMBINE DRUM ADDRESS 
CONVERT TO SECTOR ADDRESS 
GOOD ADDRESS 

THIS SECTION CHECKS FWRITE/FREAD 
NOT LIBRARY DEVICE 

MSB HAS TO BE ZERO 

LSB CAN'T BE ZERO 

COMBINE LSB AND SCRATCH START 

POSITIVE OK - STORE IT 

MASK S7FFF 

ERROR EXIT 

STORE Into parameter list 

HAKE 

SINGLE 

PRECISION 

1 CARD DELETED 

ADJUST LSB FOR LATER CHECK 
IF LIBRARY UNIT MAKE SURE 
ADDRESS NOT BEYOND MAXS EC 
NOT LIBRARY UNIT 


COMPARE MAGNITUDE 


EQUAL MAXSEC 
CHECK -0 

LESS THAN MAXSEC 

ADDRESS 9EY0NJ MAXSEC - ERROR 


FREAD/FWRITE 
NUMBER OF WORDS 
DIVIDE TO GET SECTORS 


ADD START SECTOR 


c: 


M7401152 
M7401iB3 
M743 115 4 
M7401155 
^^MSOS 4,1’^^H7401156 
M74Q1157 
M740 1158 
M7401159 
^^MSOS L.l’^^MZLOllBO 
M74Q11&1 
M74U1152 
M7401163 
M74011&4 
M74Q1165 
M74Q1166 
M74u 1167 
M743116S 
M74U1169 
»^MSOS 4.1^»M7401170 
M7401171 
«^^MSOS L.l'^-^M/LOllZE 
M74ull73 
M74ail74 
^^MSOS 4.1’‘^M7401175 
’^^MSOS h. 1»^M7401176 
»»HSOS 4.1’‘^M74ail77 
»^MSOS 4,1«^-M74 j1178 
61^1294 M74C1179 

»‘^MSOS 4.0M74U118C 
M74G1181 
61^1294 M7401182 

M7401183 
M 7^■D 1 18 4 
H743 1135 

^^MSOS 4.1»‘^M7401186 

M743 1187 
M743 1188 
M740 1189 
M74U119G 
M74D1191 
M74D1192 

M7431i93 
M74ijll94 
M7U3 1195 
M7PG1196 
M7401197 
114^4200’^*^’^'^^^^* 

M7431200 

M7401201 


O 

O 

O 

n 

o 

o 

Q 

o 

o 

o 

o 

o 

o 

o 
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1215 

P0-+A5 

C122 



SAP 

1216 

P04A6 

OCOl 



ENQ 

1217 

PDhA7 

AOll 



ANO- 

1218 

P04A8 

OFCl 


PXl 

ALS 

1219 

P0-+A9 

OF 61 



LRS 

122G 

P 04AA 

18GC 



JMP^ 

1221 

POhAB 

GIGS 


PX2 

LDA- 

1222 

P04AC 

E107 



LDQ- 

1223 

P04AD 

8105 



AOD- 

1224 

POhAE 

0122 



SAP 

1225 

P04AF 

QDOl 



INQ 

1225 

P04B0 

AO 11 



AND- 

1227 

P04B1 

CFCl 


PX3 

ALS 

1228 

P04B2 

OF 61 



LRS 

1229 

PO -+B3 

3814 



DVI^ 

1230 

PO 48^ 

0151 



SQN 

1231 

P0^.B5 

09FE 



INA 

1232 

P04B6 

ECDC 


PX4 

LDQ^ 

1233 

P04B7 

5CDO 



RTJ^ 

1234 

P04B8 

0103 



SAZ 

1235 

PO 4B9 

0 900 



INA 

1235 

P04BA 

GlGl 



SAZ 

12 3 7 

P0488 

1895 



JMP^ 

12 3 3 

P04BC 

E8 0G 


P 

LDQ 


PO-^BO 

FF53 




1239 

P04BE 

0A04 



ENA 

1240 

P04BF 

0 1 41 



SQZ 

1241 

P04CG 

0 A02 



ENA 

1242 

PQLCl 

A8G7 


POl 

ANO^ 

1243 

PC 40 2 

0112 



SAN 

12h4 

PQ 4C3 

1800 


PI 

JMP 


P0hC4 

FC8D 




lZk5 

P0hC5 

ICOG 


P2 

JMP 


P04C6 

FFLB 




124o 

P04C7 

0 Q 60 


N96 

ADC 

1247 

P04C8 

0 00 0 


HOLD 

HUM 

124tt 

P04C9 

0 G C 0 


LIFLAG 

NUM 

1249 


oooc 

P 


EQU 

125G 


GOOD 

P 


EQU 

1251 


04E0 

P 


EQU 

1252 

P04CA 

0016 



BSS 

1253 


C4E0 

P 


EQU 


PXl 

i 

LPHSK+15 

1 

1 


7.1 

5.1 
PX3 
1 

LPM5K+15 

1 

1 

N95 

PXA 

-1 

{PDK4<-i) 

{C0M\/4) 

P 

0 

P 

L84 

WRING 


REMOVE SIGN IN LSB IF SET 
MAKE SINGLE PRECISION 
REAO/WRITE 

ADD NUMBER OF WORDS IN REQUEST 


REMOVE SIGN BIT IN LSB IF SET 

COMBINE DRUM ADDRESS 
CONVERT TO SECTOR ADDRESS 


GET MAX SECTOR 
COMPARE MAGNITUDE 
EQUAL SECTOR 
CHECK -0 

LESS THAN SECTOR 
address BEYOND MAXSEC 


ERROR 


4 

POl 

2 

HOLD 

W3A 


}f y. nfi y 

IS I/C REQUEST 9Y UNPROTECTED 
PROGRAM ALLOWED ON THIS ^ 
DEVICE, CK WORD 8 OF PDT - EREQST 
YES--OK 

NO- GO OUTPUT JOS 


(L) 


RETURN TO CALLING ROUTINE 


0 HOLDS WORD 8 OF PDT - EREQST 

0 

LSAOl ( ^/9& ) 

LSUai (LSAQl+l) 

LTLul {LSUai-^96) 

(LTLOi-^) 

PRTENO( 


M74G1202 
M7401203 
M74j123^ 
M74ai205 
M740i20D 
M7401207 
M74j1208 
H74D1209 
M74D121C 
M74G1211 
M7431212 
M74G12i3 
M7401214 
M7431215 
M743 1216 
M743 1217 
M74G1218 
M7PQ 1219 
M7L31220 
*^-MSOS ^.1»^^M7401221 
^^MSOS 4.1^^M7t0l222 
^*HSOS 4,1^’^M7401223 
M740122H 
^^MSOS 4.GM7401225 

M743122& 

M7401227 

--'^-M74Qi223 

M7401229 

M7L.31231 

MTlOIESE 

M7401233 
M74B1234 
61^129-t H7*+G1235 

M7P01236 
M7401237 
M74Q1238 
M7h01239 
M74Q12^G 


BPROTK 


PaSE 34 


date: 01/27/99 


12 5 5 







M7^31242 

125 7 


0151 



EQU 

ERREL (''-AREA) 




H74C1244 

1258 





M74Q1245 

1250 




>(■ 

THE 

PROTECT VIOLATION IS ILLEGAL. 



M7401E47 

1252 

PC 4 EO 

uAGO 


GETGO 

ENA 

0 




M7401249 

1253 

P04E1 

5800 



STA 

GETTEM+ERREL 


+^MSOS 

4. 

0M74Q 1250 


P04F2 

F043 









125^^ 

P 0 9E3 

0162 



sap 

ERR 

Q=+ IF ERROR EMESSAGE 



M74Q1L51 

12 6 5 

PG4E4 

1800 

X 


JMP 

JKI LL 

Q=- JBKILL WAS REQUESTED 



M74J 1252 


P 0 4c5 

7FFF 

X 







1256 

P04E6 

5 4 F4 


ERR 

RT J- 


SCHEDUE DOWN TO LEVEL 1 



M7‘t01253 

1257 

P04E7 

1301 


ERRSDH 

ADC 

$13 01 




M 74 QI 254 

125 8 

P04E8 

0 0 03 



ADC 

ERRA-ERRSCH 




M 7431255 

1269 

P 0 9 

14EA 



JMP- 

(DISP) 




M7401256 

127G 

PG4EA 

0 814 


ERRA 

TRQ 

A 


+ ''MSOS 

• 

0M7401257 

1271 

PC 4EB 

8 0 0 0 



ADD 

=N$3030 

FORM THE ERROR CODE 

-+MSOS 

4 • 

GM7401258 


P04EC 

3050 








1272 

P04ED 

OOFE 



INQ 

-1 

CHECK IF PROTECT VIOLATION 



M7401259 

1273 

P04EE 

0155 



SDN 

tO-'^-l 

SKIP IF NOT PROTECT VIOLATION 



M74J1260 

127^ 

PG4EF 

E8 0 0 



LDQ 

PCELL+ERREL 

PROTECT VIOLATION HOVE ADDRESS 

++MSOS 

4 • 

0H7401261 


POAFO 

FCE3 









1275 

P04F1 

GO 0 2 



INQ 

2 

TO 8R CONVERTED TO ASCCI 

++M30S 

4. 

0M74ji262 

12 76 

PO hF2 

4800 



STG 

PTRS+ERREL 


'^''MSOS 

t 

QM7-t012o3 


P04F3 

FCEl 








127 7 

P04F4 

E400 

X 

EQ 

LDQ 

TRNVEC 


'*'''MSOS 

s* • 

UM74G1264 


P04F5 

OlEE 

X 







1278 

P04F6 

62 OA 



STA- 

10, Q 

SAVE ERROR CODE IN TRANTA TABLE 

’' + MSOS 

-• • 

GM7401265 

1279 





THF 

FOLLOWING ROUTINE CONVERTS THE ADDRESS 



M74j 1265 

1280 





DF THE VIOLaTIDN FROM HEXIUECIMAL TO ASCII 



M7431267 

1281 




■¥• 

AND 

PUTS IT IN THE 

MESSAGE BUFFER 



M7401268 

1282 

PQ 4F7 

E400 

X 

El 

LOQ+ 

MIBUF 


'' + MSOS 4 , 

1++M74Q1269 


P04F8 

7FFF 

X 








1233 

PQ4F9 

40 FF 



STQ- 

I 


++MSOS 

^ % 

0M743 127G 

123 4 

P04FA 

0 C 0 3 



ENQ 

3 

CLEAR OUT ERROR BUFFER SO JOBPRO 

+ ''MSOS 

4. 

CM74Q1271 

12 8 5 

PG 4FB 

0 AFF 



ENA 

-0 

DOESN'T PTINT MORE THAN THE ERROR 

'^''MSOS 

4 • 

0H74G1272 

1236 

PO 4 FC 

6722 


ElA 

STA- 

(ZERO) ,8 

MESSAGE 

++MSQS 

H • 

0M740127S 

123 7 

PO 4FD 

OOFE 



INQ 

-1 


++MSOS 

4. 

GM7401274 

1283 

PO 4FE 

0171 



SQM 

ElB 


'^''MSOS 

4 • 

uM7401275 

1289 

P04FF 

18FC 



JMP^ 

tlA 


+ ''HSOS 

f • 

GM7401276 

1295 

PG 5 4 G 

C8U0 


ElB 

LDA 

PTRS+ERREL 


-^ + MSOS 

H’ • 

0M74G1277 


P0501 

FC03 








1291 

PQ5G2 

E4 QO 

X 


LDQ + 

MI3JF 

ADDRESS OF JOBENT INPUT BUFFER 



M7401278 


PQ5G3 

0 4F8 

X 
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O 



1292 

P 0 50 ‘+ 

40 FF 


STQ- 


1293 

P0 50 5 

5400 

X 

RTJ + 



PG506 

7FFF 

X 


1 

129A 

P 0 5 0 7 

4522 


STQ- 


1295 

P05G8 

6101 


STA- 


129o 

P0549 

0 802 


SET 

Q 

1297 

PQ5QA 

180 0 

X 

JMP 

1298 

PG50U 

0 '•+ E5 

X 

END 



HA CONVERT ADDRESS TO ASSCII 

(ZERO), I STORE IN BUFFER 

a’^ ABNORMAL TERMINATE 

JKILL 


O PG"1= 05GC( 1292) SOH=uOQQ{ 0) DAT=0QD0( C) 


C) 


u 

o 

o 

o 

n 


u 

Q 

O 

O 

o 


u 


M7VD1279 
H7‘4Q1 28G 

M7401281 

M7401282 

M7401283 

M74Q1284 

M74Q1285 


o 

C'' 

o 

C'! 

o 


■) 

S>.-' 

o 

o 

o 

o 

o 

o 



o 

E a U I V 

A L E N 

C E S 


o 

DEF. LINE 

NAME 

VALUE 



ocoo 

I 

00 FF 

(000255) 


0 023 

CODE 

0013 

(000019) 

o 

0 0 29 

N 

0 0 0 5 

(000005) 

Q G3G 

SIZE 

QJ40 

( 0 0 0 0 6 ) 


0 L 0 1 

DRLVL 

'-uEF 

( G J 0 2 3 9 ) 


0031 

ZERO 

0 0 22 

(OOOQ3h) 

o 

0 u31 

CNOTE 

UG2B 

(000043) 


0u31 

MASK! 

0GB7 

(000183) 


CO 32 

NZERO 

0012 

(000018) 


0 0 32 

CABS 

OG BE 

(000190) 


0 032 

SABS 

00 BO 

(000189) 


0 0 32 

NABS 

008F 

(000191) 


u C33 

TOPMON 

OGF7 

(000247) 


0 0 3 3 

BOTOP 

00F6 

(0 00 246) 


0 0 33 

LUABS 

. ODBC 

(000188) 


G034 

PRESET 

. 00F2 

(000242) 


0 0 3 4 

LPREST 

OCFl 

(000241) 


J U 3 4 , 

OISP 

OuEA 

(000234) 


0 035 

3MEBIT 

0023 

(000035) 


003 5 

ZROBIT 

Q033 

(000051) 


D035 

LIBLU 

0 0 C2 

(0 00194) 


0 036 

NMA TOP 

y 0 Cu 

(000192) 


0 03 6 

3IZECR 

00F5 ■ 

(000245) 


0Q3F 

H7FFF 

0011 

(000017) 

o 

0 0 3a 

COUNT 

00B8 

(000184) 

0Q39 

LPMSK 

■ 0002 

(000002) 


0 041 

BUFF 

flODfl 

(000208) 


0 043 

MASLU 

G8C2 

(0 02242) 

'O 

0 G ^ *t 

JQ 1 

000 1 

( 0 0 0 00 1) 


0 0 4 5 

JG2 

0002 

( 000002) 


OOu6 

J06 

0006 

(000006) 


0 047 

J08 

0 00 8 

(000008) 

o 

J Q 6 5 

3UFSIZ 

OOSO 

(000096) 

0 62 6 

PRTLEN 

0026 , 

(000038) 


0 627 

STLEN 

00-+1 

(000065) 


125 7 

ERR EL 

0151 

(000337) 


o 


o 


RE- EREN 

CED AT 

LINE 

NUMBER 



3 0 87 , 

0 256, 

0 334 , 

0 373, 

0509, 

0 64 7 

0172 
0 0 30 , 
0470 

0 62 7 






li 0 8 9 , 

0111 





3 129, 

3 13 5, 

J 1 5 9 , 

u 1 6 , 

0 17 8 , 

u 297 

0 982, 

i OOfa , 

10 7 7, 

1286, 

1294 

0 10 0 , 

0 26 1 , 

0 t9 3 , 

0497, 

0848 , 

0 851 

0 112 

ulQ3, 

1165 

0522 

1037 

0 1 H 1 , 

0166, 

Q 1d9, 

017 9, 

0 184 

10 83 
0 144, 

0 526, 

0991 , 

1051 



0151, 
0 764 

0 534, 

0817, 

0822, 

0 94 4, 

0 998. 

0952 
0 950 

0 -r 1 0 , 

Q 413, 

0 645, 

0 6 77 , 

0 68 1 , 

0 689' 

3 0 94 , 

0262, 

0 5 1 D , 

0 547, 

0774, 

0836. 

1138 






0989 
0 857, 

0 658, 

0868 




0 0 92, 
0 507 

0 240 , 

0 485 , 

0720 , 

0781, 

0 790- 

0 306 
3 2 83 
0 285 
0487 
3 450 
0 893 , 

0929 





0 628 
0628 
12 63, 

12 74, 

1276, 

1290 




o 


o 

o 


G709, 

0757 , 

0 827 , 

0980 , 

1283, 

1292 


0 

0 3 4 , 

0 42 2, 

0 524, 

0533, 

0 56o, 

0 5 7 4 , 0 7 3 5 , 

0835, 0839, 0 84 G 


0 8 65, 

0986, 

1015 





■ 0 

0 3 55, 

0 556, 

0 336, 

0494 , 

0 6 5 li , 

0to53, 0659, 

0810, G83G, 0849 

0 

1057, 

1098 






0 

G708, 

0838 

0870 , 

0969, 

1269 




0 








' c 

0973, 

1137, 

1184, 

1217, 

1226 



0 


o 

o 

o 

o 

o 

o 
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o 

o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


1^1 

o 


o 

o 

C) 

o 


o 



o 


o 


o 


o 

o 

o 

o 


o 
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S Y I'i B 0 L S 


DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


j u 7C 

PRT 

OOOu 

3 291, 

0 593, 

0594, 

0 5 9 5 , 

0 p9 6 

0 0 7 4 

PRTER 

00 0 6 

0 0 72 





0 0 85 

I PROCl 

GO J8 

0p95 





0 0 9 6 

K32 

0013 

3 u91 





DU97 

BEL0W2 

u 0 1 A 






012 7 

A 

0Q2E 

3 117 





0 1 o 0 

AO 2 

0 03 3 

C 131 





0 li^u 

A b 3 A 

Q0 3A 

3 133 





0 1-^2 

AO 3 

u 0 3 C 

0 2 33 





ul~8 

COMP 

0 0 2 

0 153 





API 

A G 5 

‘0 0 4 5 






u i p 7 

A1 A 

U G ‘-r B 

31-p , 

i- Ip 4 , 

b 1 5 -T 



u 1 5 a 

A1 

0 0 4 C 

0 13 9, 

C 15 r 




0 1 o H- 

A 1 p 

b 0 P 2 

0 161 





0 16 7 

A2 

0 0 5 5 






0177 

AIF 

0 0 50 

0 163, 

0168 




0 17 3 

A4 

b 0 5 F 

0 173 





0 16 2 

A5 

l(06d 

0 1 8 Q 





0198 

REQTB 

j06C 

3 183, 

b 186, 

bl98. 

ul99, 

U 2 Q J 



0 212, 

0213, 

0214, 

0 215, 

0 216 

G ?2u 
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GJ2 9 

N 9 u 

1246 

NABS 

0 0 32 

NT3S Y 

0798 

NZFRO 

0 032 

02 

3 593 

FjI 

1242 

PI 

1244 

P2 

12 45 

PRL7 L 

GG31 

PRORET 

0 0 2 0 

PROT 

10 03 

P<TLEN 

G 62 6 

PRTZ 

3 622 

PRTZR3 

3 618 

PK3 

122 7 

PX4 

1232 

RCODE 

10 72 

S A V R 

0 22 2 

SAVQ 

0 22 3 

SAVQi 

1 u 6 4 

3 i \i 

j371 

S TACK 

3 5 99 

STLEN 

3 ,-.77 
u 0 i- i 

T'JGiR 

i 99 G 

TEXP 

j 395 

THREAD 

0 6 0 5 

T R Y E I H 

1 u 0 5 

TSOK 

1 U L - 

TSTDI3 

3 9 65 

H A 

G - 5 G 

W6 

0 *3 4 

W7 

0 43 9 

y >' 

C 331 

X3 

J oo2 

XFtR- 

0 3 0 5 

Z 

U 42 1 

ZQ 

0 44 tj 

Z3 

Q 45 0 


date; 'jl/27/99 


S Y M 3 

0 L 3 

'C ‘c- 




Au3A 

1- -• 

AGS 

^ 1 

A1 

u 1 s 8 

ABUF 

'0 94 1 

A CCCP 

j9G G 

AD!- 

G99 1 

ATOMP 

0 97 4 

B 

l 239 

31 

0 2-6 

3 U F R 

G 92 3 

GUFSI 7. 

r, T . V 

G 

C '3 J 

CCCP'J 

■J 70 6 

CCCP. 1 

w ' U Lr 

CCCFl? 

G 7 . y 

CCCP 5 

G /' 3 0 

CUP 

_ .1 6 D 

U C P . 

C b 4 e 

CKCSV 

Q 7 9 F 

CHUTF 

u t i 3 1 

conr 

GD2ft 

D1 

Q9:>2 

02 

09 6 G 

03 

0 96 3. 

ElB 

129 0 

EQC 

C529 

ERR 

1 2 0 6 

FILE3 

JU22 

G 

0 46 9 

G1 

u 47 1 

G3 

0 5 0 4 

G-t 

0620 

G5 

0 52 2 

GET 

0 29u 

GETC 

0 31 4 

GETERR 

0 31 7 

H 

0 8G 7 

HI 

0842 

Hlb 

0844 

HH 

0827 

HOLD 

1247 

I 

GO u 0 

J 

1G3^ 

JQl 

J u 4 4 

J32 

0 0 **■ 

J-c4 

IO 48 

J^5 

10 5b 

J7 

1 6 2 

K32 

J u 96 

L 

1075 

LOi 

103 3 

Lol GOA 

1161 

Li 

1C8 9 

Liu 

1145 

L 5G= A 

ill:; 

Lo 

1116 

L 6 A 

1121 

LER 

118o 

LIBLU 

J G 3 5 

LIFLAG 

1240 

L PREST 

0 u 0 4 

LPTRS 

u G2 4 

LSAG 1 

1249 

M 

0877 

Ml 

0895 

MIC 

0928 

MASKT 

u ij 3 1 

MASLU 

ij u 4 3 

MAXSEG 

Qull 

NEViTAP 

0 45 2 

NOEIN 

10 2 3 

NOT CSY 

0 80 2 

03 

0594 

04 

059 5 

05 

0 59 6 

PCFLL 

0 22 4 

PCKl 

117 0 

PCK2 

1194 

PROTEC 

0 0 2 5 

PROTEN 

G319 

PRT 

0 u 7 u 

PTR 

0223 

PTRS 

0 22 5 

PXfj 

1 2u 5 

REQST 

SCft 

0 302 
0 4l 1 

REOTB 

SCHl 

019 8 

•J -- 1 .+ 

RETURN 

SCHCMP 

0 22 6 
C -*■ 'J ^ 

STX 

Qo28 

Ss^APCK 

ij J i b 

3 HA P ON 

0 U 0 ~T 

T I H r 

U 69 1 

TIHFXP 

G39 7 

THF;TYP 

0 ,.i i 0F 

UNP 

0F5-T 

U N FIl-! 

u C 13 

UNPIOF 

UO 63 

WRI NO 

10 76 

X 

J ^ S' 

Xi 

L F 5 1 

X Ff'?T 

J8G ~ 

Y 

L ' 2 

Y1 

0 w 0 

7 4 

!J-r2 4 

Z~A 

0+2 9 

ZERO 

Ooii 


A13 

G 1 5 -r 

AiA 

L 15 7 

AIF 

-.17- 

APCELL 

: ■ > / b 

APTi'. 

u 2 / 4 

AREA 

L 33 /' 

R- 

0 2 5 3 

BB 

. 4 

9FL C'H? 

U09~ 

Cl 

i 4 9 

U A u; F 

. . ^ 

C A 0 P S 

. 4 79 

CCCPu : 

u 7 1 ■? 

CCCP j - 

c "ic 

COG PI 

U 7 3 b 

C C PG L 

0 5 3 9 

UUP - 0 u 

0 4 S 

CCPi 

0 L 7 . 

ROMP 

0 1 8 

CUMPV 4 

0 0G9 

COMV 

u99 3 

nisp 

G : 6- 

OUHNC 

u 27 U 

E 

u 283 

ERRA 

12 7 0 

ERR EL 

12p 7 

ERRSCH 

1267 

G1 J 

Q 5 6 -r 

G15 

0 -T 7 6 

G2 _ 

L — 8 4 

G51 

0 3 2 4 

Go 

Gb33 

Go5 

GpnO 

GETGO 

1252 

GETLSB 

0 310 

3ETMSB 

J 3 u 9 

H2 

C 8 1 5 

H25 

0 822 

H3 

G d26 

I NO 

1230 

INDIR 

0 22 7 

IPi 

C 023 

J 0 6 

0 ] 4 0 

J06 

uG4? 

J28 

1 G 3 0 

J8 

1053 

J8CNFG 

0G18 

JKILL 

u 0 2 6 

LGIG 

117 4 

LQluA 

1176 

LOIGB 

1166 

LICA 

1147 

Lli 

1187 

L4 

1095 

L 7 

1 1 2 b 

L8 

1131 

L 8 -*■ 

1133 

LOAOIN 

Oj 12 

LOCF 

0 ij 2 4 

LOGS 

1071 

LSU 01 

125 0 

LTLGl 

1251 

LUAOS 

0 033 

M4 

G9G3 

MS 

0879 

M 6 

d 91 3 

MIBUF 

NOTDIS 

COlO 
C9 83 

MMATOP 

NOTEIM 

0 0 3 6 

1017 

MMIND 

NOTMS 

■J899 

0795 

06 

0597 

ONEBIT 

0035 

P 

1238 

PCK3 

1195 

PCK4 

1198 

PRESET 

0 0 3 4 

PPTA 

C- 5 J 

PRT END 

125 3 

PRTER 

0 u 7 >- 

PXOi 

1213 

PXi 

1218 

PX2 

1221 

SABS 

u G 3 2 

SAVA 

0 220 

SAVI 

b 22 1 

SCHJMP 

G 4 1 7 

SIZE 

0 u3G 

SIZECE 

U 4 3 c 

TAGl 

u 3 t -1 

TAGL 

b j 8 i 

TAGS 

0L8. 

TOF 

L 5 D u 

TOP MOM 

u b' 5 3 

T rT H V 7 C 

. I 0 

UN'-^TI'H 

G G 1 4 

VIOL 

1 j2 4 

X 1 6 

b — — s 

X 1 4 

0 6 0 B 

Xib 

0 c 7 3 

b F 7y 

Y F 

0 6 2 8 

Yi 

G ‘)33 

Y- 

L O' — 

Z ROB IT 

<j u 5 5 






JPKILL 


= aGE 1 


OATE: 01/27/99 


u : 1 
0 0 0 2 
OC G3 

U U C T 


NAM JBKILL UECK-IO M79 MSOS , Q 

MASS STORAGE OPERATING SYSTEM VERSION O.u 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 19/b 


SUM1-1ARY-11UM750 0 Jul 
M (' E u Q 0 0 2 
M 7 5 G 0 0 G S 
M75G 0 OC ^ 


0 j 3 o 

0-0 3 
0 u 0 9 
0 G 1 3 

0 '3 i 2 

G J 1 

0 : 1 r 

03 17 
uC- 1 8 
0019 

o . 2 0 

Q. 21 
0 0 22 
0 022 
u32- 
0 0 2 5 
0 2 6 
0D27 

0 3 29 


0 0 02 


G 0 EA 


- JOc KILL MODULE OF JOB PROCESSOR 

- THIS IS THE JOB KILL PORTION OF THE JOB PROCESSOR. 
AL INTERRUPT STACK ENTRIES AND PENDING I/O FROM 

^ Un:-^ROTiiC TED CORE ARE DELETED. 


jii. ^ ^ if. if. sif. if. if. ^ yf. .'f. jf. :f. if- if. 


if if if if. if if if ^ if if ^ ^ ^ ^ ^ ' 


■. if if if :if if : 


ENT JKILL 


EXT INT5TK 
EXT UN°TIH 


EXT 

EXT 

FXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EQU 

EXT 


LOGIA 


FILES 

IUP,LOAlDIN 


UNPIO 

UNPIOF 

JBCNFG 

JB=ROE 

JKIN 
LPMSK(2 ) 
COM^VA 


JOB CANCEL WAIT FLAG 
ENTRY POINT IN JOBENT 


(TRVFC) 


EQU DISP(SEA) 


M /' 5 0 0 j 0 o 

M75000C8 
M753 G ju9 
N 7 5 3 0 J 1 0 

M 7 5 J 3 3 1 2 


M73; J 0 31a 

M 7 5 3 J 3 1 o 
M 7 5 3 0 J 1 7 
M3’5 ^ J 313 
M75u 0 019 
M7E- 0 - 2u 
M75uQQ21 
M 7 5 J u 0 2 2 
M 7530023 
M750u02^ 
M753Qa25 
^^MSOS ■+. QM750 u 026 
^^MSOS A. 0M75;> 0 027 

M753QQ29 


0 3 3 1 

POuCG 

4847 


JKILL 

STQ^^ 

QSAV 

0032 

PGOtil 

E4G0 

X 


LDO 

LOGIA 


P00D2 

7FFF 

X 




0 3 3 3 

P 0 u 3 3 

4813 


GETC3 Y 

STQ^ 

LOGO 

0 3 3 -t 

P00 0 4 

E6 GO 

X 


LDQ 

LOGIA , D 


pp 005 

0 0 G2 

X 




u . 3 2 

P G u u 6 

G208 



LDA- 

8,0 

03 36 

POOL 7 

OF 44 



ARS 

4 

0 0 3 7 

P0008 

A009 



ANG- 

LPM5K+7 

0 0 3 3 

PD0G9 

09F4 



INA 

-11 

0U3 9 

PG GOA 

0117 



SAN 

DNCSY 

03 4G 

POQOB 

C2C4 



LDA- 

4 , Q 

0u4l 

P 0 u u c 

G1G5 



SAZ 

DNCSY 

0042 

POOOD 

0900 



INA 

0 

0 J 4 3 

P 0 G L F 

0113 



SAN 

DNCSY 

0 U 4 4 

P 0 i 3 0 F 

6204 



STA- 

4,Q 

0045 

POQIO 

0 8 0 4 



SET 

A 

0 0 4 6 

DOGll 

621F 



STA- 

31 » D 

03 47 

P0Q12 

E8 04 


DNCSY 

LDu^ 

LOGO 

0 3 4 3 

P0G13 

GDFE 



INQ 

-1 

0G^9 

P00l4 

0142 



SQZ 

D0NC3Y 

00 5 0 

PQQi5 

18E0 



JMP^ 

GETCSY 


-5 TELLS CALL WAS FROM T5 


’^-MSOS -^.GM750 0 031 
^^MSOS 4.C M750G032 


^^MSOS A.u M75Q0033 
M750003A 


EQUIP. TYPE 

BITS 4-10 
COSY TYPE 

COSY ACTIVE FLAG 
NOT ACTIVE 


SET UNPROTECTED COSY INACTIVE 
RESET INITIAL CALL FLAG IN COSY 
DRIVER PSYTAB IF C.O. USED DURING 
THIS JOB 


’^^MSOS 

^‘^MSOS 

»^MSOS 

"^^HSOS 

»^HSOS 

’^^HSOS 

«^^MSOS 

»^^MSOS 

^^^MSOS 

^^MSOS 

«^^HSOS 

^‘^MSOS 

«^^MSOS 

^^MSOS 

-^MSOS 

»^MSOS 


a.1’^-'^M75uQ3 35 
4.1^^H750 0 035 

4.1^’*‘M75!J0 038 
4.1»^M75Q0039 
4.1^^»M750 0y 40 
4.1»^M7500041 
4.1^^M753 j0a2 
A.1^»M750i] 043 
4.i*^^Hr5000t4 
4.C M750Q045 
4.0 H75u00ao 
4.0 M7500047 
4.0 H75G0048 
4.0 M7500049 
4.0 M7500u50 




JBKILL 


PAGE 2 

date; 01/27/99 

0 0 5 1 




V- 



2 CARDS DELETED 

0 3 52 

PQ016 

0 0 0 0 


LOGQ 

MUH 

0 


00 5 4 

PQ017 

440 0 

X 

OONC3Y 

STQ 

LOADIN 



P0018 

7FFF 

X 





03 5b 

POQig 

CO B 8 


SGI 

LDA- 

$38 

SET ALL unprotected RETURN 

0J57 
00 53 

PGGIA 

u9FA 


SG2 

INA 

“5 

LOCATIONS, LEVEL ZERO AND 

POOIB 

60FF 



STA- 

I 

ONE PRIORITY, TO THE ADDRESS 

0 3 5 9 

POOiC 

9 0 3 0 

X 


SUB 

=XINT3TK 

OF THE DISPATCHER. 


POOID 

7FFF 

X 





005 0 

POQIE 

0121 



SAP 

1 


0061 

P 00 IF 

1824 



JMP^- 

SGA 

table CHECKED. 

0 0 5 2 

P0u20 

C4E9 



LOA- 

($E9) 

CHECK 65K MODE SWITCH o5K=l 

C 3 5 3 

P0G21 

Q ID 4 



3AZ 

Si 


GO 5 -T 

PQU22 

COOO 



, LDA 

=X$QBOO 



PGG23 

GBC 0 






0 3 6 5 

P0024 

68 0 B 



STA^ 

SGA + 1 

DO NOT CLEAR UPPER BIT OF P 

00 5 6 

P0G25 

6313 



STA^ 

S2 

IF 55K MACHINE 

0057 

P 0 0 26 

C104 


SI 

LDA- 

4 » I 

CHECK IF PRIORITY LEVEL ZERO 

0 j 58 

P0027 

A 0 11 



ANO- 

LPHS<+15 

OR ONE 

03 69 

PG02 8 

OF Cl 



ALS 

1 

SIGN EXTEND SIT I4 

G07G 

P0C29 

OF kl 



ARS 

1 


0071 

PGQ2A 

0133 



SAM 

SGA 


0 0 7 2 

PO 02B 

09FO 



INA 

-? 


0 3 73 

PO G2C 

0 1 31 



SAM 

SGA 


0^7^ 

POU20 

1311 



JHP’^ 

SG3 

CHECK IF A RETURN LOCATION IS 

0u75 

PO 02E 

G1Q3 


SGA 

LDA- 

3,1 

0 0 7 6 

P002F 

AO 11 



AND- 

Sii 

A UNPROTECTED CORE LOCATION. 

Oo 7 7 

P 0 0 5 0 

EO F7 



LDQ- 

$F7 

A UNPROTECTED LOCATION 

0 0 7 3 

PO 031 

G9FE 



INA 

-1 


0 3 79 

P0032 

540 0 

X 


RTJ 

C0MPV4 



P0033 

7FFF 

X 





OOBu 


0 0 33 

p 


EQU 

C03PAR( ^^-1 ) 


0 0 8 1 

P0C3‘* 

0 102 



SAZ 

S25 


0 3 3 2 

PDU35 

0900 



INA 

0 


0 0 3 3 

PuC3d 

0107 



SAZ 

SG3 

PROTECTED CORE RETURN 

0-8 

P C 0 3 7 

CIO 3 


S25 

LOA- 

3,1 


0 j 3 5 

PG0 3.3 

AOll 


S2 

AND- 

$11 


00 8 6 

P0059 

E0F6 



LDQ- 

$F6 


0 3 3 7 

P003A 

5CF8 



RTJ^ 

(C3MPAR) 


0 3 88 

P0Q3B 

0 102 



SAZ 

SG3 


0G39 

P005C 

0 90 0 



INA 

0 


0090 

POG30 

0102 



SAZ 

SGZ 


0 0 9 1 

PO 05 E 

COFF 


SG3 

LDA- 

I 

TABLE LOCATION 

0 J 9 2 

PCuSF 

18DA 



JMP* 

SGZ 


00 95 

P0G4C 

CO EA 


SGZ 

LDA- 

$EA 

SET ADDRESS TO DISPATCHER 

0 3 9 T- 

POO^tl 

6103 



STA- 

3,1 


0 3 9 5 

P0042 

1 8FB 



JMP^ 

SG3 


Cj97 

P0043 

54F4 


SG4 

RTJ- 

($F4) 

SCHDLE SHELF DOWN TO LEVEL 

00 9 3 

P0044 

1300 


SG4A 

NUM 

$ 13 u 0 

ZERO 

0u99 

P0045 

0QC4 



ADC 

REIRN-SGAA 



♦^MSOS 

^-^MSOS 

^^MSOS 

*^HSOS 

»^MSOS 

^^HSOS 

^■^‘MSOS 

^*HSOS 

«^-^MSOS 

^»HSOS 

■s^^MSOS 

«-^MSOS 


^^MSOS 

-^HSOS 

’f^MSOS 

^^»HSOS 

'^^MSOS 

^^HSOS 

^--’'^MSOS 

^^HSOS 

^^MSOS 

*^MSOS 

^^MSOS 

^^MSOS 

^^HSOS 


H7500u51 
M753 3 052 

H7500054 


Hr 50 0 356 
M7500Q57 
M75 j Q 0 5 8 
M75a 0 0 59 


H 7 5 u G 0 6 0 
H750G 351 
UM75Q0062 
4. {)M7500 a53 
CM7t?00 054 

4.0M76GOO&5 
-+ . 0M7500 056 
4. GH750 0 057 
4. 0H75Q0058 
0M75Q0G59 
4. OH75G 0 370 
4. 0H75GQ071 
M75j 0072 
H. 0H753G073 
4. 0M75Q0fl74 
M75Q 0075 
M75G0376 
H. 0M7500077 
UM7500078 
-T. 0M75Q 0 079 

-4,CH750038G 
-f.uM75G0 0 81 
4i (jM750uQ62 
■+• GM75 0 0083 
- . G H 75 0 0 0 3 4 
-T. OH 750 0 085 
0M750 0 086 
0H750 0 0 87 
4. QH7500Q88 
4. UM75Q 0 089 
't , QM75 00090 
M7500091 
M75QU092 
M7500093 
M750uQ94 
M750 0 095 


M7500097 
M75j u 098 
H7500099 


JBKILL 


PAGE 


3 


DATE; J1/E7/99 



i t 



010 0 

P 0 0 4 tS 

14EA 



JMF- 

(SEA) 


0101 

PQ 047 

0 u b G 


QSAV 

NUM 

G 

(^) 

013 3 

P 0 0 4 3 

C4G0 

X 

RETRNl 

LDA 

UNPTIM 



P0049 

7FFF 

X 





010 - 

P004A 

3400 

X 


ADD 

UNPIO 

o 


P0Q4B 

7FFF 

X 





013 5 

P00 4C 

343 0 

X 


ADD 

UNPIOF 



P0040 

7FFF 

X 





GICd 

PO 04E 

01 01 



SAZ 

1 

1^- 

0107 

P0Q4F 

18F3 



JNP^ 

SG4 


Dies 

P0050 

6 43 0 

X 


ST A 

JBCNFG 



P0Q51 

7FFF 

X 





0109 

PDG52 

640 0 

X 


STA 

JKIN 

u 


P0G53 

7FFF 

X 





Oil 0 




¥ 




0111 

P0G54 

EOEE 



LOO- 

SEE 


0112 

PQ 055 

3 6 0 0 



S P B 

0 

o 

0113 

PO 0 5 b 

E8F0 



LDQ^ 

GS A V 


C 1 1 ■+ 

P 0 a 5 7 

ODOO 



INQ 

0 


0115 

P0058 

0141 



SQZ 

JOBP 


0116 

PO 0 59 

0C08 



ENG 

8 

I 1 

0117 

P0U5A 

0D06 


JOBP 

ING 

6 


0113 

P0U5B 

C4G0 

X 


LDA 

J BP ROE 



P0Q5C 

7FFF 

X 





0119 

P00 50 

60FF 



STA- 

I 


0120 

P0C5E 

QA 01 



EN A 

1 


0121 

P0Q5F 

14FF 



JMP- 

(I) 


CHECK IF TIMER IN EFFECT 
OR UNPROTECTED I/O 

IF SO, WAIT UNTIL COMPLETED. 
CLEAR JOB CANCEL WAIT FLAG 

1 CARD DELETED 

REPROTECT LOADER RETURN ADDRESS 

TERMINATE IN J03PR0 
RF3 IN JOBPRO 
GET JOBENT RETURN 

INDEX TO SCHEDULE JOBPRO 


0124 




1 CARD DELETED 


0126 


END 




PGM= 0060 ( 

96) 

COM = 3000 { 

0 ) 

OAT = OuGG { 

0 ) 


o 


o 


o 

o 


o 

o 


M750U10C 
^^MSOS DM750 u IQ 1 


M75GD103 

M750 QiO^ 

M 7 5 j G 1 0 5 

M75GCi06 
M 7500107 
H/5Q0108 

M75 3 0 10 9 

M75 0 0 110 
M7500111 
M750 G 112 
*^HSOS M-.GM750 0113 
»»MSOS 4.GM75G011L 
^^MSOS 4. 0M75G 0115 
^^MSOS -.GM75JU116 
«^^HSOS 4.GM75a0117 
^^MSOS H. 0M75Q L118 

«^-MSOS h,0M75GQ119 
’^^MSGS 4.UM750 0 12D 
^^HSOS 4. QM75Q 0121 


M7500124 

M7500126 


c 

o 

o 

c 

o 

o 

i'^\ 

o 


o 

o 

o 

o 

o 



JBKILL 


PAGE 


date: U1/E7/99 


E Q U I V 


DEF, LINE 

G'JuD 
0 0 26 
0 3 29 


A L E N C E S 


NAME 

T 

LPMSK 

OISP 


VALUE RE-E9ENGED AT LINE 

OuFF (000255) 005a, 0091, 0119, 

0002 (000002) 0037, G068 

OOEA (000234) 


number 

0121 



JBKILL 


PAGE 


5 


date: Qi/27/99 


3 Y M B 0 L S 


DEF. LINE 

NAME 

ADDRESS 

REFEREN3 

ED AT 

LINE NUMBER 

0 014 

JKILL 

0 0 0 0 

0 014 



0 033 

GETCSY 

0 0 0 3 

Q Q 50 



Q G 4 r 

DNCSY 

00 12 

3 0 3 9 1 

u 041 » 

0 0 h3 

0C52 

LOGO 

0016 

3 u 33 » 

0 0 47 


0Q&4 

J 0 N CS Y 

0017 

3 049 



3 C 5 b 

3G1 

0019 




0 j5 7 

SG2 

uOl A 

0 092 



3 0 6 7 

SI 

002 6 

0 0 63 



00 75 

SGA 

002E 

3 0 65 1 

0 071 , 

0 073 

0 080 

COMPAR 

0033 

0 0 87 



3 3 8 4 

S2 5 

0037 

0 0 81 



0 0 85 

32 

0058 

0 0 66 



0 u91 

SG3 

00 3E 

i3 0 74 1 

0 083, 

0388, 0095 

0 093 

SGZ 

0040 

Q 0 90 



0C97 

SG4 

0 0 43 

0 G 6 1 » 

0107 


0 Q98 

SG4A 

00-+4 

0 099 



0101 

aSAV 

0047 

0 3 3 1 » 

0 113 


01C3 

RETRN 

0048 

0 0 99 



ull7 

JOBP 

u 0 5 A 

3 115 




date: 01/27/99 


V.,.- 


JBKILL 


=>AGE 


EXTERNALS 




o 

O' 

o 

o 

o 

o 

o 


o 


OEF. LINE 

NAME 

VALUE 

RE- ERE 

0 016 

INTSTK 

OOID 

0 0 59 

0017 

JNPTIM 

0049 

0103 

0018 

LOGIA 

00 0 5 

0 032 

0019 

FILE3 

7FFF 


0 020 

lUP 

7FFF 


0 020 

LOADIN 

0018 

0 Q54 

0 021 

UNPIO 

0 Q4B 

3 104 

0 0 22 

UNPIOF 

004D 

0105 

0C23 

JBCNFG 

0051 

0108 

0 02 a 

JBPROE 

0 05C 

3 118 

J 025 

JKIN 

0 0 53 

0 109 

0027 

C0MPV4 

0033 

3 0 79 
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P H A 

B E T I 

CAL 

SORT 

0 F 
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B 0 L S 











CD'iPAR 

lU? 

LPMSK 

^ J ^ 

008C 

0d2[i 

Q026 

QG97 

COMPVA 

J3CNFG 

QSAW 

SGPA 

3 027 
3 023 
QlOl 
0 098 

nisp 

JBPROE 

RETRN 

SGA 

0 0 29 
0 024 
3103 
0 075 

ONCSY 

JKILL 

SI 

SGZ 

0047 

0U14 

0067 

0093 

OOMCS Y 

JKIN 

S? 

UNPIO 

0G54 
002 5 
0085 
0021 

FILES 

JOBP 

S25 

UNPIOF 

Q019 
0117 
0084 
0 02 2 

GETCS Y 
LOADIN 
SGI 

UNPTIM 

0033 
03 2 0 
00 56 
0017 

I 

LOGIA 

SGZ 

OOOG 

0018 

0057 

INTSTK 

LOGQ 

SG3 

0 016 
0052 
0091 
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000 1 
03 02 
03 0 3 

0 0 0 T- 


0 3 3 5 


00 3 9 


00 12 
OQ 1 3 

0 01 
0 0 1 o 
03 17 
0018 
0019 
00 20 
0 321 
Ou 22 
00 23 

0 0 2 '4 

0 3 2 5 

0 u 2 6 

00 27 
0026 
0 3 2 9 
0 G 3 0 
0 3 3 1 
00 3 2 
OQ 33 
0 3 3 4 
uQ3E 
03 3c 
0Q3 7 
0G3H 
0 3 3 9 
QQ 40 

0 j 42 
0 3 43 
0 0 44 
03 45 
0 3 46 
03 4 7 
0 3 S 
0 3 49 
03: 5G 
0c91 


V- 
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NAM UPLOAD DECK-IO M/6 MSOS 5.0 

NASS STORAGE OPERATING SYSTEM VERSION p.Q 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197o 

PROCESSOR FOR ^L,^LGO,AND ^ENTRY-POINT STATEMENTS 


SUMMARY- 11 0H7bJ 0031 
M/6QQQQ2 
M76a0003 
M 7630004 


^^MSOS 4. 'jM76uC'3G6 


P 0 G G C 
PODCl 
P10G2 
PQQ03 
P 0 0 0 4 
POOLS 
P 00 0 6 
P 0 0 0 7 
P00G8 
Pu 009 


Q002 
0 012 
0 022 
GO 32 
0 0 EA 

C8FE 
oC74 
0167 
CC73 
6805 
OAGQ 
6C 70 
34F4 
1800 
uOuQ 


^ ij. If. 4. ^ 


ENT JBL 
ENT JPl 


H76Q 0 0 09 


M7b00012 

H7630Q13 


JBL 


RELEAS 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EQU 

EQU 

EQU 

EQU 

EQU 

HUM 

SJA* 

SQP 

LDA^ 

STA^ 

ENA 

STA^ 

RTJ- 

NUM 

NUM 


TRNVEC 
PRORET 
J6PR0E 
REL31A 
PROTEC 
LOGIA 
MIB 
LI8ET 

JBCNGL, JBCNFG 
TRANV 

lUP, MIB,LOAOSO 
LOADIN 

JPRET , JPRETl, JPRETN 
FILE2 
FILES 
LOGl 
BRKPT 
UNPIO 
SWAPCK 
COMPU 4 
JOBIND 
LPMSK (2 ) 

HFFFF (£12) 

ZERO ($22) 

H8Q J3 (£32) 

DISP (SEA) 


JOBENT 


ABS. ADDR. OF TRANTA BUFFER IN 
RETURN LOC. FQR PROIEC (TRVEC) 

ABS ADDR. OF JOB PROC. ROUTINE IN JOBENT 


65K COMPARE ROUTINE 
LOCORE MASK TABLE 


(TRVEC)H7600015 
M / 6 J 0 0 1 o 
M7oQ0017 
M76i] 0 018 
M76Q 0019 
M 7 b 0 0 0 2 0 
M/6Q 0 021 
M76UGQ22 
M7&QQQ23 
M7buu024 
M7500G25 
M7baQ026 
H76 li 0Q27 
M7600a28 
M76Q 0 029 
M76G0030 
M76u0031 
M7b0u 032 
M76U 0 Q33 
M760 0034 
^^MSOS ‘4.GM76Q0 u 35 
M7b3 0036 
M7b30037 
M 7 60 0033 
^^MSOS 4. 0M76Qu339 
M7DQa040 


$C8FE 
(F2) 
JP2 
(F3 ) 
RELEAS 
0 

(F3) 
($-4) 
$18 0 0 
0 


ENTRY POINT 

ENTERING FROM JOB FILE MODULES 
RELEASE IT BEFORE CALLING PROTECT 

CLEAR PROGRAM IN AREAS FLAG 


-sf^MSOS 

-^•MSOS 

^^HSOS 

^^MSOS 

’^^MSOS 

^-MSOS 

^^HSOS 

»^MSOS 


•4 • 


4 • 
u , 


M76Q 0042 
M760Q043 
OM7bOOa44 
GM7600045 
OH7500a4b 
QH76G0047 
GM7bGG Q 48 
uM 7630049 
0M760 005 0 
GM7600 051 


O 

O 
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C) 

o 

o 

o 
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O 
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o 

o 

o 

n 
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D0p2 

P 0 0 G A 

CC6C 


JP2 

LOA^ 

(F3) 

IS PROTEC IN CORE 

^-MSOS 

-^.0M76u'J052 

QO 53 

PO0G3 

0 119 



SAN 

JPI 



M760 0 053 

0 3 5 4 

POOOC 

EC69 



LDQ^ 

(F2) 

SET UP RETURN ADDRESS FOR PROTEC 


M76D 0 054 

005 5 

POOuQ 

FOOO 



AOQ 

=XJP1-JBL 



M763 0 055 


PGOCE 

0015 








0 0 5 o 

P Q 0 0 F 

4400 

X 


STQ 

PRORET 

TEMP RETURN LOG. IN TRVEC 


M76i3 0 0 5 6 


POQIO 

7FFF 

X 







0357 

POGll 

54F4 



^TJ- 

t$F4) 



M7600 057 

0 j 5 8 

PGC12 

12 3 0 



NUM 

$1230 



M76a0056 

03 59 

P0018 

FFFF 

X 


AOC 

(PR3TE3 ) 

SCHEOLE PROTEC 


H7600Q59 

0 0 5 0 

P0014 

14EA 



JMP- 

(DISP) 



M76 3 0 0 5 0 

0 3 5 1 

P0015 

y C 0 5 


JPi 

ENO 

5 



M76D0061 

0 3 62 

P0G16 

C400 

X 


LDA 

TRNVEC 

GET AOOR OF TRANTA TABLE IN JOBENT 

■•=^^MSOS 

t. 0M7600 062 


P0Q17 

7FFF 

X 







0063 


0017 

P 


EQU 

TRMV (*-l) 


^^MSOS 4 

•u M76000b5 

0 3 6 4 

P0G18 

6QFF 



STA- 

I 


^^MSOS 

4. 0M7600064 

0 3 65 

P0019 

C6FF 


JPIA 

LDA- 

( I) ,Q 

MOVE 5W0R03 FROM JOBENT BUFFER TO 

L’^^MSOS 

4, QM7600065 

00 6 6 







TRANSFER TABLE 


M7600055 

0 0 5 7 

POCIA 

6A 79 



STA-^ 

JOBP3 , Q 



M76000o7 

0 j 5 8 

POulB 

ODFE 



INQ 

-1 



M7o00 Qo8 

0 j59 

POulC 

0 1 41 



SQZ 

1 



M7600069 

Q070 

POOlO 

IbFB 



JHP«- 

JPIA 



M76DG070 

03 71 

°0 OlE 

CCF8 



LOA^- 

{TRM\/) 

TRANTA TABLE ADDRESS 

^^HSOS 4 

,0 M760UU71 

0 3 72 

POOIF 

0 9 0A 



INA 

10 

SET ABS. ADDRESS OF TRANTA 

^^MSOS 

4. 0M760G072 

0 3 7 3 

P0020 

5 8 58 



STA^ 

ERR3UF 

ADDRESS FOR STORE OF ERR. MES. . 

^^HSOS 

4. 0M760Q 073 

00 7 4 

PQ 021 

Q9FB 



INA 

-4 


^•^MSOS 

4. 0H76D0074 

0 0 7 5 

PO 022 

QCFC 



ENQ 

-3 



M76L0075 

y j 7 6 

P0 023 

6A79 


LOOP 

STA^ 

LOA DEP, Q 

AND LOADER FROM JOBENT BUFFER 


M76 3 3 0 76 

0 3 7 7 

PO 024 

0901 



INA 

1 

BUFFER. 


H7630077 

0 0 7 8 

PO 025 

Q1 42 



SQZ 

OUT 



M7600078 

0079 

P0G26 

0001 



INQ 

1 



M763GQ79 

0 3 8 0 

P0G27 

18FB 




LOOP 



M760 0 0 80 

OuBl 

P00 28 

4400 

X 

OUT 

STQ 

HIB 

CLEAR INTERMODULE LOCKOUT FLAG 


M760 0 381 


P0029 

7FFF 

X 







0u82 

P002A 

C400 

X 


LDA 

JBPROE 

GET RETURN 

=^^MSOS 

4. UM76DQ082 


PQ 028 

7FFF 

X 







OQ 83 

P0Q2C 

6800 



STA 

LBL7+1 

TO JOBENT 

^»HSOS 

4. 3M7600aS3 


PQ 020 

G 0 73 








03 3 4 

P002E 

DC 01 


LBLl 

ENQ 

1 


^^MSOS 

4, 0M76Q0084 

fl j 3 5 

P002F 

CE66 



LDA- 

(SM) ,Q 



M7 6 0 0 08 5 

u 3 8 6 

P0030 

E C 65 



LDQ^ 

C3M) 



M763 0 086 

QQ87 

P0031 

0 FE8 



LLS 

8 



M7600087 

B088 

P0032 

4842 



STQ^ 

TEMP 



M75 3 Q 088 

3 ] 9 i- 

PO u 33 

OC04 



ENQ 

LTA3-TABL 

-1 


M760U 090 

0391 

P0C34 

CA3 5 


LBL2 

LDA^ 

TA31,Q 



M760u091 

0092 

P00 35 

983F 



SUB^ 

TEMP 



M76G 0 092 

G093 

P003& 

0104 



SAZ 

L3L3-^^-l 



M76Q0093 

0 3 9 4 

P0 0 37 

ODFE 



INQ 

-1 



M760 0 094 

0 3 9 5 

PQG38 

0171 



SQM 

1 



M7600095 

0 0 9 6 

P0G39 

18FA 



JMP^- 

LBL2 



M760 0 096 

0 3 98 

P 0 0 S A 

0CD5 


LBL2A 

ENQ 

5 


^ SOS 

4. OM760 0098 
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0135 

0136 


PO 03B 
P0 03C 
P0 03D 
P0U3E 
POOoF 
POOi^O 
POO'+l 
P00A2 
PO 0 A3 
POO-rA 
P 0 0 A 5 
POuAo 
POO A7 
PQGA8 
PCiOaD 
POOaA 
P0 04B 
POO^C 
POO AD 

pooae 

P 0 0 AF 

PG05G 

POCiSl 

P0052 

PO 053 

PuOSa 

Pu 0 5 5 

PQ05& 

P0Q57 

P0Q58 

P0059 

P 0 G 5 A 

PQ05B 

PGG5C 

PO 05D 

P 0 05 E 

PQ05F 

PQ06Q 

P0 061 

PQ062 

P0063 

P0 06A 

P0065 

P0066 

PD06/ 

PQOba 


^8 39 

00 FD 

01 68 
DC 01 
CE56 
BO 12 
0112 
QCOl 
18 0 2 
GCG2 
18 22 
0151 
180 6 
ODFE 
0151 
1803 
QOFO 
015C 
3CAF 
0112 
58 0 0 
00E8 
E823 
CAIC 
Q 83A 
0917 
6802 
58 0 0 
0 0 0 0 
18 A5 
QC02 
CE3B 
UCOI 
EE39 
0FE8 
081A 
90 0 0 
AF2C 
QlOA 
90 00 
0 0D3 
0101 
180*+ 
18E6 
0A05 
1837 


0LA3 

ulAA P0Db9 5 8 FF 
0145 POObA 582C 
014b PQ06B AC FF 
3147 P006G aC2C 
Q1-+8 P0060 hGA? 


LBL3 STQ--^ 
INC 
SQP 
ENQ 
LDA^ 
EOR- 
SAN 
ENQ 
JMP=^ 
ENQ 

LBL8 SQN 
JMP* 
INQ 
SQM 
JMP"^ 
INQ 
SQN 

LBL3A LDA* 


LAD DON LDQ- 
LDA^ 
AAQ 
INA 
STA^ 

LBLA NUH 
JMP^ 

LBL5 ENQ 
LDA-'>‘ 
ENQ 
LDQ^ 
LLS 
TRQ 
SUB 


TE8P 

-Z 

LBL3 

1 

(S^l) ,Q 
HFFFF 
2 
1 

*+2 

2 

LBL9 

1 

LBL3A 

“1 

1 

LBL3A 

-? 

LBL5 

{LOADER) 

LAOOON 

PREJOB 

TEMP 

TABLOC, Q 
A 

TABLOG-LBLA 

LBLA 

* 

$0 00 0 
RETRN 

2 

(SM> , Q 
1 

(Si) ,Q 
8 
A 

=N$AF2G 


REQUIRED TO BRING IN JPLGO 
NOT OR ^X,N 
CHECK FOR N ON ^X 


SCHEDULE JPLGVA TO EXECUTE 


IS THE LOADER ALREADY IN CORE 
YES, GO ON 
NO, GET IT 


IS THIS A LOAD AND GO STATEMENT 


LBL6 

LBL9 


SAZ LBLo 
SUB =NBD3 

SAZ 1 
JMP^ L8L2A 
JMP^ L8L3A 
ENA 5 
JMP» LBL7 


^LGO FROM STANDARD INPUT 


NO, LOAD FROM LIBRARY 


^ TABLE OF JOB PROCESSOR LOADER TYPE REQUEST 
TABl NUM $58PF X JP PROCESSOR STATEMENT 

ALF i,X, X,N JP PROCESSOR STATEMENT 

NUM $ACFF L JP PROCESSOR STATEMENT 

ftLF 1^ , L,LU uP PROCESSOR STATEMENT 

ALF 1,LG LGO JP PROCESSOR STATEMENT 
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0149 

P0 06E 

00 00 


LTAb 

BSS 

LTAB (0 ) 



M760 0149 

0151 




^ TABLE 

: OF 

JOB PROCESSOR LOADER PROGRAMS 



M7600151 

G152 

P006E 

0033 


TABL3C 

ADC 

RBLOAO-^ 

»^MSOS 

4 • 

0H75QG152 

0153 

POObF 

G 0 32 



ADC 

RBLOAD-^ 

»^MSOS 

4* 

0M7600153 

0154 

P0070 

00 31 



ADC 

RBLOAD-^ 

^*MSOS 

4 • 

OM760Qi54 

Qlp 5 

Pa071 

00 30 



ADC 

RBLOAD-^ 

’^^MSOS 

4 • 

GM76Q 0155 

015 6 

P 0 Q 7 2 

0 02F 



ADC 

RBLDAD--'^ 

--MSOS 

'T • 

OM7600156 

015 7 

Pu 0 7 3 

0 0 0 7 



ADC 

TRLOAD-^ 



M7b0Q157 

0159 

P0Q74 

U 0 D 0 


TEMP 

NUM 

$0 00 0 



M7600159 

0150 

PC Q 75 

7FFF 

X 

F2 

ADC 

FILE2 



M 760 u 16 0 

0161 

P0 0 76 

7FFF 

X 

F3 

ADC 

FILE3 



M7600161 

0162 

P0C77 

0 0 00 


LGOMOD 

NUM 

0 

^^MSOS 

H • 

CH7b001o2 

0163 

P0078 

0 0 Q 0 


ERRBJF 

NUM 

0 

^^‘■MSOS 

*-r • 

GM76Q0163 

0154 

P0 0 79 

FFFF 


GOLOAD 

NUM 

SFFFF 

--MSOS 

4, 

0M76001b4 
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Q 
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o 

o 

o 

o 

o 

o 

n 


0io6 

0158 

0159 

0171 


0175 
01?i- 
0175 
017 6 

0177 

0178 
017 9 
0180 
0181 

0182 

013^ 

0185 

0186 
0137 

0188 
0139 
019 0 

0191 

0192 
019 3 
019 9 


019 5 
0197 

0139 

020 0 
020 1 
02 02 
0203 
020 A 
0 2 0 5 
0 206 
020 7 
02 0 8 

Q21Q 

0212 

0213 


P9 07A 
P0 07B 
PDG7C 
P0070 
P007E 
P007F 
P0 0 3Q 
P0 081 
P00 82 
PQQ83 
P008 4 


OBOO 

0C03 

CE19 

9A12 

0116 

ODFE 

0171 

18FA 

E4Q0 

7FFF 

1622 


PD085 E81G 


POO 86 
P0087 
P0038 
P0089 
P00 8A 
P0G8B 
P008G 
P0u8O 
P0 08E 
P008F 
PG090 
P0091 
P0092 


PQ 093 
PO 094 
P0 095 
PC096 
P0 097 
PO 098 
P0099 
P0Q9A 
P009B 
PQ 09C 


G AQ8 
5800 
00 91 
0 121 
1878 
OCOQ 
40F3 
GCQ3 
13D3 
2A4C 
4942 
4544 
54FF 


OOuu 
OOuG 
0 OGO 
0 0 00 
G 000 
OuOG 
COCO 
GGOO 
QC OG 
00 0 0 


P009D OC OE 
PG09E OAQl 


'-‘ENTRY P3INT JOB PROCESSOR STATEHENT 
♦ THIS IS A PROGRAM LOAD AND EXECUTION PROGRAM 
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ENTRY POINT 
CHECK FOR LIBEDT 


TRLOAD 

NOP 

0 


ENQ 

3 

TRL 

LDA^ 

(3M) ,Q 


SUB» 

TAB, Q 


SAN 

TRLQ-^-1 


INC 

-1 


SQM 

1 


JMP-*^ 

TRL 


LDQ 

LIBET 


JMP- 

($22) ,Q 

TRLG 

LOQ^ 

S3 

* 

ENA 

8 


RTJ 

LOADER 


SAP 

JMP^ 

TRL2 


JBP 

TRL2 

ENQ 

0 


STQ- 

$F3 


ENQ 

3 


JMP^ 

LBL9 

TAB 

ALF 

3, ^LIBEDT 


NUM 

S5 4FF 



J08P3 

NUM 

$00 0 0 


NUM 

$0000 

SH 

NUM 

$0 00 0 

JOBP 

NUM 

$003 0 

J04 

NUM 

$0 00 0 

JO 3 

NUM 

0 


NUM 

0 

BPS 

NUM 

$0 00 0 

RI 

NUM 

$000 0 

LOADER 

NUM 

$00 0 0 


.'flf.^g.lf.^^’f. If- ^ 

RETR'J 

ENQ 

14 

L BL5G0 

ENA 

1 


GET LIBEDT SCHEDULED 

ABS. LOCATION OF J. P. 

STATEMENT. 

PROGRAM LOAD AND EXECUTE FROM LIB 


LOADER ERROR-ABORT JOB 

ZERO $F3 - LOC OF BREAKPOINT 

GET JOB EXECUTED 

(NOTE THAT T IS IN NEXT WORD) 


M76001b6 

M76Q Q 166 
M763Q169 

M760Q171 


M7600173 

M760Q174 

M7600175 

M7600176 

M76G0177 

M76QQ178 

M7600179 

H7600180 

M76Q0181 

M76DG182 

M760 0 18h 
M7b0ai85 
^^MSOS •^.0M76DQ136 
M7600187 


’‘^MSOS 4. 
^'^MSOS -+.G 
^-MSOS 4. 

^^HSOS' 4. 
"'‘■'-'HSOS 


ABS. LOC. 

NOT USED 
A 8S. L 
ABS, LOC. 
ABS. LOC. 

NOT USED 
AES. LOC. 
ABS. LOC. 
ABS. LOC. 


.If. >f.if.^ff 


QM76Q0188 
M76D 0 189 
UM760Q190 
M7600191 
OM7600192 
UM7600195 
H76Q0194 


M7630195 

M760 0197 

H763 0199 
M76u02flG 
M763 0201 
M760 02G2 
M76Q0 20 3 
M 7 6 G 0 20 4 
M7600205 
M763Q2G6 
M760G207 
M7600208 

M7600210 


INDEX TO RF3 IN JOBPRO 
INDEX TO SCHEDULE JOBFRO 


M7600212 
‘-'‘MSOS 4 . QM7600213 


O 


O 


O 


O 

O 

C' 

o 

c 

o 

o 

o 

o 

o 

o 

o 


I ; 


UPLOAD 


PAGE 6 


DATE? 01/27/99 
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o 

0214 P0Q9F 1400 LBL7 JMP+ 0 
POOAu 0000 

O 
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o 

C) 
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o 
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o 

o 


»^MS0S ■+.GM7600 214 


o 

o 

o 

o 

o 

C' 
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o 
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o 

o 
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o 

o 
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0216 






M760Q 216 

0218 




if.if.if. 

«^L JOB PROCESSOR 

STATEMENT 


M760 0218 

Q219 




^ THIS 

ROUTINE INSTRUCTS 

THE LOADER TO LOAD 


M7630219 

0220 




^ RELOCATABLE BINARY INFORMATION. 


M762G220 

0222 






M76j0222 

022t 

POOAl 

uBOO 


RBLOAD 

NOP 

0 

ENTRY POINT 


M7630224 

022 5 

P00A2 

C801 



LDA^ 

TEMP 


»^MSOS 

4. QM7600225 

0226 

P00A3 

09FB 



INA 

-4 


^^MSOS 

4 . GM76 00226 

0227 

P u 0 A 4 

0102 



SAZ 

2 


»^MSOS 

4. OM7600227 

0228 

POO A5 

0 AO 0 



ENA 

0 


^^MSOS' 

4. 0M7630228 

0229 

P0CA6 

180A 



JMP-» 

LOAD 


, *»MSQS 

4. OM760 0229 

023 0 

PO QA7 

OC02 



END 

2 


-»-^msos 

4. QM76G0230 

0251 

P00A8 

CEEC 



LDA^ 

(SM) , Q 


^‘^HSOS 

4. 0M76Q 0231 

0232 

P 0 0 A 9 

80 00 



EOR 

=NB2C4E 


»-HSOS 

4. 0M760Q232 


POOAA 

2C4E 








0233 

POOAB 

0102 



SAZ 

2 


^^MSOS 

4. CM760 0 233 

0 2 3 4 

PO OAC 

u A 01 



ENA 

1 


^-MSOS 

4. 0M76QQ234 

0235 

PQQAD 

1802 



JMP» 

•^ + 2 


^^MSOS 

4 . QH760 0235 

023 6 

PO OAt 

QA02 



ENA 

2 


«-^^MSOS 

4.GM760Q236 

0237 

DQQAF 

68C7 



STA^f 

LGOMOD 

SET ^LGO.N STATEMENT INDICATOR 

^^^MSOS 

4 . 0M7600237 

023 8 

POOBO 

88E4 


LOAD 

ADD^ 

SM 


’^^HSOS 

4 . QM7600238 

0239 

POuBl 

0 901 



INA 

1 



M76Q 0 23 9 

0240 

PG0B2 

OFCl 



ALS 

1 



M76Q D 240 

u241 

F00B3 

dOFF 


LOADl 

STA- 

I 


^^MSOS 

4 . uM763 0241 

0242 

P0 0B4 

58 0 0 



RTJ 

ASCHEX 

NUMBER IS GIVEN. 


M76G0242 


P00B5 

0 0 B4 








0 2 43 

PuQEo 

0161 



SQP 

RBLi-^-1 



M7600243 

0244 

P0uB7 

18 42 


ERR 

JMP-*^ 

ERRJ04 

INPUT ERROR. 


M760Q244 

0 2 4 6 

PGGB8 

Eu FF 


RBLl 

LDQ- 

I 


^’^MSOS 

4 . OM763024D 

0 24 / 

P00B9 

484C 



STQ^ 

NEXTI 

SAVE INPUT BUFFER CURRENT ADDRESS 

'^■^MSOS 

4. QM7bO 0247 

0 2 48 

POOBA 

0111 



SAM 

RBL2B 


*^MSOS 

4. OM7bO 0246 

0249 

POuBB 

1816 



JMP^ 

RBL2 

NO LU BY USER - USE STANDARD 


M760 0 249 

u2 5 0 

POOBC 

E4Q0 

X 

RBL23 

LDQ 

LOSl 



M7bOQ25Q 


POGBD 

7FFF 

X 







0251 

POOBE 

0 8 52 



TCQ 

Q 



M7600251 

0252 

P008F 

08 32 



AAQ 

Q 



M7&Q 0252 

0253 

P 0 0 C u 

ODFE 



INQ 

-1 



M760 0253 

02 5 4 

PDOCl 

01 71 



SQM 

1 



M760 0254 

0255 

P00C2 

18 37 



JHP^ 

ERRJ04 



M760 0 255 

025 6 

P00C3 

6841 



STA’^ 

SAVLU 

SAVE LU NO. 


M7d30256 

025 7 

PQ 0C4 

0822 



TRA 

Q 



M7600257 

0258 

P00C5 

E6 00 

X 


LDQ+ 

L0G1A,Q 

PICK-UP POINTER TO PHSTAB 


M760 0256 


PC0C6 

7FFF 

X 







0259 

P00C7 

0A02 



ENA 

2 



M7600259 

0 25 0 

PU0C8 

A208 



AND- 

8,Q 

CK BIT TO ALLOW UNPROTECTED READS 


M763Q 260 

0251 

PO ocg 

ulG3 



SAZ 

EREX 

IF ZERO, READ BIT NOT SET 


M760G261 

0262 

POOCA 

0 AQl 



ENA 

1 



M75u 0262 

0263 

POOCB 

A2C8 



AND- 

8,Q 

CHECK PROTECTED BIT 


H76u0 263 

0 2 6 4 

POuCC 

0101 



SAZ RBL14 

IF PROTECTED BIT SET - ERROR 


M760 0264 


V.-'' 


JPLOAO PAGE 8 


o 

0 2 3 5 

PGOCO 

182C 


EREX 

JMP^ 

ERRJOt 


3 2 56 

PO QCE 

C836 


RBLIA 

LOA^ 

SA\/LU 


0257 

POQCF 

CFC4 


RBLIB 

ALS 



025 8 

P OODO 

18QA 



JMP-'^ 

RBL3 


02 7 0 

POGDl 

C8A5 


RBL2 

LDA^ 

LG3MOO 


0271 

P0 0D2 

0 103 



SAZ 

RBL2A 

'J 

0272 

POQ03 

C0B3 



LDA- 

$B3 


027 3 

PC0D4 

68 3 0 



STA^ 

SA\/LU 


0274 

P0GD5 

18F9 



JHP» 

R8L13 

o 

0275 

F0GD6 

CO 32 


RBL2A 

LDA- 

HSuOO 

027 5 

PQ0D7 

EQF9 



LOQ- 

$F9 


027 7 

P00D8 

48 0 0 



STQ 

SAVLJ 



POG09 

0 0 2B 






0276 

PO D DA 

5 8 3 0 


RBL3 

RTJ 

LOADER 



POQDB 

00 3E 






0 2 79 

POODC 

0103 



SAZ 

RBL3A 


023Q 

POUDO 

u900 



INA 

0 


0231 

PuODE 

0119 



SAN 

RBL4A 


0282 

POODF 

1823 




JBF 


0283 

POOEQ 

E898 


RBL3A 

LDQ^^ 

GOLOAD 


0284 

POOEl 

0 162 



SQP 

2 

C) 

023 5 

PCUE2 

C8 23 



LDA^ 

NEXTI 

0286 

P00E3 

18CF 



JMP’^ 

LOADl 


0 23 7 

P00E4 

E8 92 



LDQ'^ 

LGOMOO 


0288 

P0CE5 

Q141 



SQZ 

RBL4 

o 

0239 

POO E6 

1880 



JMP» 

L8L9 

02 90 

P00E7 

1CB9 


RBL4 

JHP^ 

(RBLOA3) 


u292 

P0QE8 

&8BD 


RBL4A 

STA* 

J03+-1 

o 

0293 

PO 0E9 

C400 

X 


LDA 

lU? 


pooea 

7FFF 

X 



$A 


02 9 4 

POOEB 

AO OA 



AND- 


02 95 

POOEC 

Q8 18 



EOR4 

SA\/LU 


0295 

PGOED 

0119 



SAN 

RBL9A 


0297 

PQOEE 

0C24 


RBL5 

ENQ 

36 


0298 




¥ 




0299 

POQEF 

GEA9 


R8L7 

LDA^ 

(J33+1) , Q 

o 

03 0 0 

PDOFO 

6EA4 



STA^ 

(SM) , Q 

0301 

P 0 uFl 

ODFE 



INQ 

-1 


0 3 0 2 

P0QF2 

0171 



SQM 

RBL9 


0 3 3 3 

O00F3 

18FB 



JMP» 

RBL7 

o 

0 30-t 

PQ0F4 

C8A0 


RBL9 

LDA^ 

SM 

0 3 0 5 

P0QF5 

6400 

X 


STA 

JOBIND 



P00F6 

7FFF 

X 





03 0 5 


9QF7 

p 

RBL9A 

EQU 

RBL9A ) 

o 

0 3 0 7 

P0QF7 

18E8 



JMP- 

RBl3A 


03 09 

P00F8 

0 0 29 

X 

HIBI 

ADC 

MIB 

o 

0 311 







0312 

P0DF9 

GOOO 


ERRJ34 

LDA 

=N53034 


POOFA 3Q3A 


o 


date: 01/27/99 



ipi n/i n 




9 


DATEJ 01/27/99 



c 

o 

o 

o 

o 

f^'\ 

o 

o 

O' 

o 

o 

o 

o 

c 

o 


UPLOAD 
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DATES 01/27/99 


;:j 


o 


o 

' OS? 7 







0328 

P01G6 

OQ 00 

READMM 

Q 

0 


03 2 9 

POIQ 7 

68 OA 


STA^ 

SNfl 

O ' 

0330 

P01u8 

48 08 


STQ^ 

SN 


0331 

P0109 

5 4 F4 


RTJ- 

(5F4) 


G332 

POlOA 

480 0 


NUM 

$ 43 0 0 , 0 



POIGB 

0000 




r''i 

Li 33 3 

PUluC 

0 0 00 

TH 

NUN 

£0000,3802 



PQIOD 

08C2 





u33A 

POiOE 

00 GO 

NW 

NUN 

$0 0 0 0 


0335 

PG13F 

QOQO 

FL 

NUM 

$000 0 


0336 

PQliO 

000 0 

SN 

NUM 

$0 , $0 



Pulli 

GOOD 





0337 

PQ112 

C8F9 


LDA^ 

TH 


033 8 

PC 113 

0101 


SAZ 

1 

n 

0339 

P0114 

18FD 


JHP^ 



0 34 0 

P0115 

ICFO 


JMP^ 

CREADMM) 


READ MASS MEMORY SUBROUTINE 
Q HAS MSB, A HAS LS8 OF MM ADDRESS 

^^MSOS 

WAIT FOR COMPLETION 


M76D0327 

M7600328 

M7d00329 

o 

M76GQ 33 0 

, , 

M7600331 


0M7600332 


M76y 0 33 3 

. c 

M76Q 0 334 
M760 0 33 5 

M7600336 

M7600337 

M7600338 

■ o 

M7600339 

o 

M7600340 


o 



o 

o 

o 

o 

o 

o 

o 


o 

o 

c- 

o 

o 

o 


o 


o 


JPLOAD 
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DATE: 01/27/99 


0342 

0 3 4 4 
0345 

0347 


^ THIS SUBROUTINE JUMPS TO AND IS RETURN FROM THE 
^ LOADER 


M7b0 0 342 

M76G 0 344 
M763Q 345 

M7600347 


0349 

PD116 

7FFF 

X 

XSWAP 

ADC 

SWAPC< 

0350 

poll 7 

7FFF 

X 

UNPI33 

ADC 

UNPIO 

0 351 

P0118 

0 0 0 0 


QSAV 

ADC 

0 

0352 

PO 119 

0 0 00 


LOAOLR 

0 

0 

0353 

POllA 

5809 



RTJ^- 

LLR 

0 3 5 4 

P0118 

48FC 



STQ^ 

QSAV 

0 35 5 

PflllC 

EOEE 



LDQ- 

SEE 

0356 

POllO 

0 6g 0 



SPB 

0 

0357 

^OllE 

OC 00 



ENQ 

0 

0358 

POllF 

4G18 



STQ» 

(LOADI ) 

3 3 59 

PO 120 

0400 



EIN 

0 

0360 

P0121 

E8F6 



LDD'^ 

QSAV 

0351 

P0122 

1CF6 



JMP^ 

(LOAOLR) 

0362 

PQ123 

GOOD 


LLR 

0 

Q 

0 3 6 3 

P0124 

48F3 



STQ^ 

QSAV 

0 36^ 

P0125 

EGOO 



LDQ 

(LOADER ) 


O0126 

FF75 





0355 

P0 12 7 

0 151 



SQN 

LOADLl 

0366 

Pfll28 

18D3 



JMP^ 

ERJ03 

0367 

P0129 

48 OD 


LOADLl 

STQ^ 

LOADL2+1 

0363 

P012A 

DCOO 



RAO^ 

(LOADI) 

0369 







037 0 







0371 

P012B 

E8F7 



LDQ- 

LLR 

037 2 

P012C 

44 0 0 

X 


STO 

JPRET 1 


P012O 

7FFF 

X 




0373 

P012E 

EO 00 

X 


LDQ 

=XJPREI N 


P012F 

7FFF 

X 




03?’ H 

PO 130 

4400 

X 


STQ 

JPRET 


P0131 

7FFF 

X 




0 37 5 

PQ132 

40EE 



STQ- 

SEE 

0376 

P0153 

0 70 0 



CPB 

Q 

0377 

P0134 

E8E3 



LOQ- 

QSAV 

037 8 

P0135 

140 0 


L0A0L2 

JMP + 

0 


P0136 

0 0 0 0 





0 3 7 9 

p 0 1 3 r 

7FFF 

X 

LOADI 

ADC 

LOAOIN 


POINTER TO UNPIO RESET 
POINTER TO UNPIO SNITCH 


GIVE THE LOADER CONTROL 


SET PROTECT BIT FOR 
CLEAR FLAG 

RETURN LOCATION 

RETURN TO CALLING PROGRAM 

CHECK IF LOADER PRESENT 


M760 0 349 
M760 Q350 
M76Q0351 
M760 0 352 
M7&J0353 
M76D 035h 
M76C 0 355 
M76G0356 
M76U 0 357 
M7d3 0 358 
M76] 0359 
M7600360 
M76j 0 3ol 
M760 0 362 
M760 0 363 
H76D03b4 


LOCATION OF LOADER 
SET FLAG FOR PROTECT PROCESSOR 
TO LET LOADER READ AND WRITE 
BELOW THE SCRATCH AREA. 

LOADER RETURN ADDRESS IS AT RTJ LLR PLUS 
PATCH RFTIJRN IN TRVEC MODULE 


M760 0365 
H760 0356 
M7630357 
M76 j 0 36 8 
M7b:- 0369 
M76G 0370 
M7600371 
M760 G 372 


RETURN FROM LOADER TO JPRETN IN TRVEC MODULE M76Q0373 
PATCH THE, PRESET TABLE IN LOCORE M7600374 


CLEAR PROTECT BIT FOR 
RETURN LOCATION. 


M76G 0 375 
M7600376 
M76G 0 377 
M7 60 0 37 8 


M7600379 


JPLOAO ^’AGE la date: Ql/27/99 

O 



0381 





o 

05 33 





^P JOB PROCESSOR STATEMENT 

033 4 




^ THIS 

IS THE ^RELOAO 

INITIALIZATION ROUTINE 


0336 




^ LOADSD 

- MASS STORAGE SYSTEM DIRECTOR TABLE LOC. 

o 

033 7 




^ LOADEP 

- LOADER 

ENTRY POINT 

0 389 




4 



o 

0391 

P0138 

OBOO 


PREJ3B 

NOP 

0 

ENTRY POINT 


0392 

P0139 

C0F7 



LDA- 

$F7 

SET TEMPORARY HIGHEST AND 


0 393 

P013A 

60EO 



STA- 

$E3 

LOWEST UNPROTECTED LOCATION 

o 

0394 

PO 13B 

0901 



INA 

1 

SET FWA BASE FOR LOADER 

0395 

PU13C 

682A 



STA^ 

FWALOD 


0 39 6 

P013D 

C0F6 



LDA- 

$F6 



039 7 

P013E 

60 EC 



STA- 

SEC 


C' 

0398 

P013F 

6 8 28 



STA^- 

LWALOD 

SET LWA BASE FOR LOADER 


Of 0 0 

PQ14G 

E825 



LDQ''^ 

LSD 

LOAD LOADER INTO HIGH CORE 


Q4C 1 

P0141 

FOEB 



ADQ- 

SEB 



0-r02 

P0142 

0204 



LDA- 

4,0 



0403 

PQ143 

68CA 



STA^ 

NW 

LOADER SIZE 


0-0- 

P0144 

90F6 



SUB- 

$F& 



0 4 D 5 

PO 145 

0 864 



TCA 

A 

FIRST WORD ADDRESS 

r') 

0 -r O 6 

PQ14 6 

68C8 



STA^ 

FL 



0-Q7 

PG147 

6CQQ 



STA 

(LOADEP) 




PQIhS 

FF53 







040 6 

P0149 

4810 



STQ^ 

PJ5 

SAVE Q TEMPORARILY 

O 

0 40 9 

POI 4 A 

C0F7 



LDA- 

SF7 

GET START OF UNPROTtCTED -I 

041G 

P014B 

0901 



INA 

1 

+1, ACTUAL START 


0 411 

P014C 

5 4 0 0 

X 


RTJ4 

C0MPV4 

GO COMPARE 



P014D 

7FFF 

X 





o 

0 4 1 2 

P014E 

E8 08 



LOQ^ 

PJ5 

RESTORE Q 

0 413 

Pu 14F 

0103 



SAZ 

OKL 

SAME SIZE 


0-1- 

P0150 

0900 



INA 

0 

TEST MINUS ZERO 


U 4l 5 

PO 151 

0111 



SAN 

OKL 

UNPROTECTED BIGGER THAN LOADER 

r»**S 

'.J 

0 4 1 b 

P0152 

180F 



JMP^ 

JPG5 

ERROR, JPQ5, LOADER BIGGER THAN 

0 417 


0 1 53 

p 

OKL 

EQU 

OKL {^) 



0416 

P01b3 

C206 



LD A- 

5, Q 


o 

0-19 

P0154 

E2 05 



LOQ- 

5,0 

MSB IN Q, LSa IN A 

0 42 1 

P0155 

DCCl 



RAO^ 

{ JNPI03 ) 

SET UNPIO SWITCH 


0422 

P0156 

58AF 



RTJ^ 

READMM 

READ IN LOADER FROM MASS STORAGE 

o 

0424 

P015 7 

5CBE 


PJ4 

RTJ^ 

(XSWAP) 

CLEAR UNPIO SWITCH 

0-25 

P0153 

5801 



RTJ^^ 

4 + 1 



0426 

P0159 

0 G 00 


PJ5 

0 

0 

PJ5 SET UP Q TO POINT TO ADDRESS 


0427 

P015A 

GOOD 



LDA 

=XFWALOO- 

o 


PO 15B 

0 0 OD 






0 428 

P015C 

88FC 



ADD^ 

PJ5 

CONTAINING FWA-L WA - BAS £S FOR 


0 429 

PG15D 

0 822 



TRA 

0 

LOADER 


o 


o 



JPLOAD 
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OATES 01/27/99 



o 

o 

o 


0-r3u P015E uA 01 
Gt31 PQ15F 58B9 
D432 P016Q 1CD7 
0't33 P0161 GOOD 
P0162 3035 
043i* P0163 1800 
P0164 FF99 


JPG 5 


ENA 1 

LOADER 

JMP^ tPREJOB) 
LDA =N$3035 

JMF ERJ03A 


0436 P0165 7FFF X LSD ADC LOAOSO 

0437 P0166 0000 FWALOD NUM 0 
0433 PQ167 OQQO LWALOO NUM 0 
0-^39 P0 168 0 0 00 NUM 0 


RETURN 

OUTPUT JPG5 ERROR 

NOT ENOUGH CORE FOR, LOADER 


o 


■'“N 

o 

o 

o 

o 


o 

o 

o 

o 

V..'' 


^^MSOS -r. 0M76G0-f30 
«‘»MSOS 4.DM76D0431 
M7600 432 

M76Q 0 433 - ^ 

M760 Q 434 

o 

M7 6 3 0 455 
^^MSOS 4.0M7600437 

4»MSOS 4.GM76Q0438 D 

s^^MSOS ,.9H7600 439 

O 


O 


O 


O 


O 


o 


o 


o 


o 


UPLOAD 


PA3E lA- 


DATEJ Jl/27/99 


* 




0970 

09-71 

0472 

0473 
0 4-7 4 
0 47 5 
0 4 7 6 
0477 
0 47 8 
0 47 9 
Q 4 8 u 
G431 
0432 

u 43 3 
0 4 3 4 
0435 


P0169 

PG16A 

PQlbB 

P016C 

P016D 

PO lo E 

P016F 

P0170 

P0171 

P0172 

PQ173 

P0174 

PQ175 

P0176 

P0177 

P0178 

PC179 

P017A 

P017B 

P017C 

PG17D 

P017E 

PQ17F 

P016U 

P0181 

P0182 

P0183 

P0184 

P0185 

PO 186 

PG187 

P0188 

PQlpg 

PO 18A 

P018B 

pGiac 

P018D 
PG18E 
P018F 
P 0 19 G 
P0191 
PG192 
P0193 
P0ig4 
P0195 


0 0 0 0 
OAOO 
6837 
EOFF 
OF 61 
B162 
F032 
ODFE 
E622 
0122 
0F28 

1803 
DOFF 
DOFF 
0 8 44 
GF68 
0FC8 
0822 
GOFF 
B003 
60FF 
0814 
BO OA 
0 llu 
0 A 4 0 
6800 
FEF5 

1804 
8 0 0 0 
0 0 03 
QllE 
OAOO 
E819 
0 F £8 
QlGl 
180F 
0 F E4 
QFA4 
4813 
0 102 
2000 
00 OA 
88 OF 
OCOQ 
1CD3 


0487 PQ196 QDCF 
0^38 P0197 0814 
0439 Pul9e 0172 

0490 P0199 OOF5 


» THIS 

IS A 

DECIMAL AS 

ASCHEX 

0 

0 


ENA 

0 


STA» 

TEMPI 

NEXT 

LDQ- 

I 


LRS 

1 


SQP 

2 


AOQ- 

H80Q0 


INQ 

-1 


LDQ- 

{$22), Q 


SAP 

2 


ORS 

8 


JMP^^ 

^(•3 


RAO- 

I 


RAO- 

I 


CLR 

A 


LRS 

8 


ALS 

8 


TRA 

Q 


LDA- 

I 


EOR- 

$3 


STA- 

I 


TRO 

A 


EOR- 

$A 


SAN 

NEXTl 


ENA 

0 


STA 

GOLOAD 


JMP^ 

OVER 

NEXTl 

FOR 

= N$03 


SAN 

CHECK-^-1 

OVER 

ENA 

0 


LOQ^ 

TEMPI 


LLS 

8 


SAZ 

OK-^-1 


JMP» 

ERRl 

OK 

LLS 

4 


DLS 

4 


STQ-» 

TEMPI 


SAZ 

2 


MUI 

= NSA 


ADD» 

TEMPI 


eno 

0 


JMP-^ 

(ASCHEX) 

CHECK 

INQ 

-$30 


TRQ 

A 


SQM 

ERR1-^“1 


INQ 

-10 


SET TEMP LOG. TO ZERO 
LEFT OR WRITE CHAR. COUNT 


LEFT CHARACTER 

RIGHT CHAR. INCREASE WORD 
COUNT 


A AND Q CONTAINS CHARACTER 


CHECK FOR $FF 

NOT $FF CHECK IF COMMA 


THIS CHARACTER A COMMA 

DECIMAL HEX HUMBER 

CHECK FOR OVER TWO CHARACTERS. 

COMPUTE HEX NUMBER 


A CONTAINS HEX NUMBER 
0 - NO ERROR. 

RETURN 

CHECK IF BETWEEN S3u AND $39 


o 



M7600 441 
M7600 442 
M7600443 
H760 0 444 
M760 0 445 
M76Q0 446 
M76I0447 
M76QD448 
»^MSOS4,0^M7e00449 
>^MS0S4. fl^M76Q 0 450 
»^MSOS4.G»M76Q0451 
M76Q0452 
H7600453 
M763 Q 454 
M763 0 ^55 
M7b0 0 45 6 
M760 0 45 7 
M76QG458 
M763 0 459 
M7 60 0 hdO 
M7600h61 
M7&C0 462 
M760 D 463 
M7600h 64 
M760 0 -+65 
M7b 0 0466 
^^MSOS 4.0M76Q0467 
^^MSOS 4.GM76QD468 
^^MSOS 4.GM76G0469 

»»MSOS 0M760fl-t70 
^^MSOS -r.QM760 Q47i 

M760 0 47 2 
M76GQ473 
M76 00474 
M7600 475 
H76G047D 
M76D0477 
M760 0-t78 
M76u O 479 
M76Q048G 
M760 0481 
M76G 0 482 

M76Q0 483 
M76Q0 484 
M7600485 


M76Q0487 
M7600488 
M7&fl0439 
H7B0 0490 


O 

O 

O 

O 

o 

o 

o 

o 

o 

€' 

c 

o 

o 

c 


UPLOAD 
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date: ai/27/99 



U ■ 

Q491 

P019A 

0172 


SOM 


0492 

P019B 

EO 12 

ERRi 

LDQ- 

C) 

0493 
04 34 

P019C 

ICCC 

CKI 

JMP- 

P019D 

E3 05 

LDQ^- 


0 4-9 5 

P019E 

0FA4 


QLS 


0496 

P019F 

0 8 34 


AAO 

o 

0 497 

POlAu 

68 02 


STA^ 

0493 

POlAl 

18CA 


JMP^ 


0499 

PO 1A2 

0 0 0 0 

TEMPI 

NUM 

o 

0 53 1 




END 


CKi- ^-1 

LPHSKt-io ERROR RETURN Q=$FFFF 

(A3CHEX ) 

TEMPI STORE HEX. DIGIT 

4 

A 

TEMPI 

next get NEXT CHARACTER. 

SGuOO 


JBL 


PGM= UlA3 ( 419) DOM = 3000 ( 0) DAT = OOuO ( 0) 


O 

(D 

O 

o 

o 

o 


o 


o 


M7600491 
M760Q492 
M7b0(i 493 
M76 jG494 
M750 0 *+95 
M760 0495 
MTdOO 497 
M76DQ498 
M7600499 


M^bOOSOl 


O 

O 

c 

'v..' 

c 

, \ 
("") 

C) 

C'l 

o 

o 

o 

o 


JPLOAO 
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OATEJ 01/27/99 



) t 


o 

E Q IJ I V 

A L E N 

C E S 




w 

DEF.LINE 

MAME 

VALUE 


RE'ERENCED AT 


QGGD 

I 

OuFF 

1000255) 

0 064 , 

006 5, 


0026 

LPMSK 

00 0 2 

( Q0Q0Q2) 

3 492 


n 

3 0 37 

HFFFF 

0012 

(000018) 

0104 



0 0 38 

ZERO 

0022 ■ 

{ 00003*+) 




0 0 39 

H8 0 00 

0032 

(000050) 

0275 , 

0 45 0 


0 0 4 0 

DISP 

u 0 E A 

(0Q0234) 

0 050 



o 


0241* 0246, 0447, 0 456, 0457, 0 452, 0464 




o 

o 


o 

o 

Q 

o 

o 

C) 


o 

o 

o 

o 


( 1 


o 


o 

o 




o 

o 

o 

o 
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DATE: Si/27/99 


Cj- 


o o 


C' 

3 Y M BO 

L S 





C 

Q 

OEF.LINE 

NAME 

ADDRESS 

RE" E REN 

SEO AT 

LINE NUMBER 

O 


0 012 

JBL 

0 0 0 0 

0012, 

0 05 5 



0013 

JPl 

0015 

0013, 

0 05 3, 

0 055 


o 

0 u 51 

RELEAS 

iju 0 9 

3 0 46 



n 

0ij52 

JP2 

0 0 0 A 

0 0 44 





00 63 

TRNV 

0017 

0 0 71 





0 0 6 5 

JPIA 

0019 

0 0 70 





0 0 7 o 

LOOP 

0 0 23 

0 0 80 





0 061 

OUT 

0028 

0Q73 





0 08 4 

LBLl 

0 0 2E 






0 091 

L3L2 

0034 

0 095 





0 0 98 

LBL2A 

Q03A 

Q138 



■ C 


0C99 

LBL3 

0 03B 

0093 




0110 

LBL8 

0 0 4o 

9101 





0117 

LBL3A 

004D 

0111, 

0114, 

0139 



0120 

LAODON 

0 0 51 

0 118 



o 


0126 

LBL4 

0 05 7 

0 123 , 

0124 



0 126 

LBL5 

u059 

0 116 





0139 

LBLb 

0066 

0135 




u 

^ 140 

LBLO 

0067 

0109, 

0193 , 

0289 

' f-'i 

0144 

TABl 

0069 

0090 , 

0 091 


L..-' 


0149 

LTA8 

0Q6E 

00 90 





0152 

TA3L0C 

006E 

0121, 

0123 




5159 

TEMP 

007 4 

0 0 88 , 

0092, 

0099, 0120, 

0 22 5 O 


0 160 

F2 

0075 

00 43 , 

0 05 4 




0161 

F3 

0076 

0 0 45 , 

0G48, 

0 052 



5162 

LG 0 MOD 

0077 

J 237, 

0 27Q , 

0287 


o 

016 3 

ERRBUF 

0078 

0 0 73, 

0316 


■ o 

0164 

GOLOAD 

0079 

0 283 , 

0469 



0173 

TRLOAD 

007A 

0157 





0175 

TRL 

007C 

0180 





0184 

TRLG 

0 0 8 5 

3177 



o 


0 190 

TRL2 

0 08B 

3188 




0194 

TAB 

008F 

0176 





3 199 

J08P3 

0093 

0057 





0 201 

3H 

0095 

0 085 , 

0 086, 

0103, 0129, 

0131, 0175, 0184, 0231, 0238, 0300, 0304 Q 


0202 

JOBP 

0096 





0 203 

J04 

0097 






02C4 

J03 

0098 

0 292 , 

0299 




D2C6 

BPS 

009A 




o 


020 7 

RI 

009B 




o 

0 20 8 

LOA DEP 

009C 

0 0 76, 

0 117, 

ij ^ 

o 


o 

o 


r ; 


JPLOAO 


DATE! 01/27/99 


PAGE 


18 


0212 

RETRN 

009D 

3127 


3 213 

LBL5G0 

G09E 

3 318 

0141 

0 21h 

LEL7 

009F 

0 0 83 , 

0224 

RBLOAO 

aoAi 

3 152, 

015 3, 

0 238 

LOAD 

aoBC 

0 229 


0 241 
0244 

LOAD! 

ERR 

0 0 B3 
Q0B7 

3 2 86 


0246 

RBLl 

a 0 B8 

0243 


0 25 0 

RBL2B 

ODBC 

0 248 


0265 

EREX 

uO CO 

0 261 


0 2 6 6 

RBLIA 

UOCE 

0 264 


0267 

R8L1B 

GOCF 

0274 


0 270 

RBL2 

OODl 

0 2 49 


0 2 7 p 

RBL2A 

0006 

j 271 


3273 

RBL3 

OODA 

0 258 

0 30 7 

0 283 

RBL3A 

OOEC 

0279 , 

0 29 0 

RBL4 

0 0E7 

0 288 


0292 

0297 

RBL4A 

RBL5 

00E8 

OOEE 

3 281 


0299 

RBL7 

uOEF 

0 3 0 3 


0304 

RBL9 

00F4 

3 3 02 


0 30 6 
0 309 

RBL 9A 
MIBI 

a0F7 

G0F8 

0296 

0255, 

0 312 

ERRJ04 

OOFS 

3 244, 

0315 

ERJ03 

OOFC 

0 5 56 

0 32 0, 

3 316 

ERJ03A 

flOFE 

3 313 , 

3 319 

JBP 

0102 

318? , 

0282 

u 321 

GAVLU 

0104 

3 2 56, 

0 26 6, 

0 32 2 

REXTI 

010 5 

3 247 , 

0 285 

0 328 

REAOMM 

010 6 

3340 , 

0 42 2 

Q 333 

TH 

OlOC 

0 337 


0334 

N|W 

01 0 E 

0 403 


3 i 3 5 

FL 

0 10 F 

a 4 0 6 

3 33 Q 

0 336 

3N 

cue 

3 3 29, 

0 3 49 

XSWAP 

0116 

0 424 


0350 

UNPIOS 

0117 

3 421 

0 360, 

0 351 

OSAV 

0118 

0 3 54, 

3 352 

LOADER 

0119 

3187, 

0278, 

e 362 

LLR 

0123 

Q353, 

0 371 

0367 

LOADLl 

0129 

0 3 65 


0 37 8 

L0ADL2 

0135 

0 3 67 

0368 

0379 

uOADi 

013 7 

3 358 , 

a 391 

PREJOB 

0138 

0119, 

0432 

0 417 
0424 

3KL 

PJ4 

0153 
015 7 

0 413, 

0 415 

0 426 

PJ5 

0159 

3 403 , 

a 412, 

0 43 3 

JPG5 

0161 

0 hId 


0 43 6 

LSD 

016 5 

0 400 

0 42 7 

0^37 

FWALOO 

016 6 

0 395, 

0 438 

LWALOD 

016 7 

0393 

0 485, 

0 -fH 4 

ASCHEX 

0169 

3 242, 

0 4 7 

MEXT 

016C 

0 498 


0 471 

MEXTl 

018 5 

0 467 



0154 » 


0265 
0 3 
0273, 


0 363, 
0361, 


0 A2 7 , 


0 493 


G155, 


0277, 


0 377 
Q 431 


0 428 


0156, 


0295 


0 29 0 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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DATEJ Gi/27/99 


j -73 

OVER 

Q188 

3470 


0478 

OK 

0180 

0 476 


0 48 7 

OHECK 

0196 

0 4 72 


0 492 

ERRl 

019B 

0h77 , 

0489 

0 494 

OKI 

Q19D 

3 491 


D499 

TEMPI 

01A2 

0 446» 

0 47 4 


0h8.3. 0+9 hi 0 49 7 


JPLOAD 


DATES 01/27/99 


PAGE 20 


X T E R 

N A L S 



DEF. LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 

0 0 1 5 

TRNVEC 

0017 

0 0 62 

Q 016 

PRORET 

0010 

0056 

0017 

JBPROE 

0 02B 

CC82 

0 018 

RELSIA 

7FFF 


0019 

PROTEC 

0 013 

0 0 59 

Q Q2Q 

LOGIA 

QGC6 

0258 

0 0 21 

HIB 

liDF8 

0081, 0309 

0 Q22 

LI6ET 

0 083 

0 181 

0 023 

JBCNCL 

7FFF 


0 0 23 

JBCNFG 

7FFF 


0 G24 

TRANV 

7FFF 


0 0 2 5 

lUP 

QOEA 

0 293 

3 0 2 5 

LOADSO 

0165 

0 436 

0 3 2 6 

LOADIN 

013 7 

0 379 

0 G27 

JPRET 

0131 

0 374 

0 0 2 7 

JPRETl 

012D 

0 372 

■3 0 2 7 

JPRETN 

G12F 

0 3 73 

0 0 28 

FILE2 

0075 

Q16Q 

OG 29 

FILE3 

0076 

0161 

0030 

LOGl 

OOBD 

3 250 

3 0 31 

BRKPT 

7FFF 


C032 

UNPIO 

G117 

0 350 

0033 

3WAPCK 

0116 

0 3 49 

0 0 34 

COMPV4 

0140 

0 411 

0 0 3 5 

JOBTND 

00F6 

0305 



JPLOAD PAGE 21 

ALPHABETICAL SORT OF 


DATE: ul/27/99 
S Y H B 0 L S 


o 


■u 


o 

o 



as: HEX 

G-444 

DPS 

0 206 

BRKPT 

0 0 31 

E'X J03A 

L316 

ERR 

0244 

ERRl 

D 492 

F_ 

G33 5 

FWALOO 

0 437 

GOLOAD 

0164 

JBL 

uQ12 

JBP 

0319 

JBPRDE 

0 017 

JPl 

G 0 1 3 

JPIA 

0 0 6 5 

JP2 

3 0 52 

L8L2A 

0u98 

LBL3 

0 099 

LBL3A 

0 117 

lBL9 

umo 

LGQHOU 

0162 

LIBET 

0022 

L3ADL1 

0 36 7 

L0ADL2 

0 378 

LOADER 

0 352 

LTAB 

0149 

LWALOD 

0 43 8 

MIB 

0 0 21 

OKL 

0^17 

OUT 

0 081 

OVER 

0 473 

RBLi 

02<+6 

RBLIA 

0266 

RBL13 

0267 

RBL^^A 

0292 

RBL5 

0297 

RBL7 

0 2 99 

RETRN 

L212 

RI 

0 20 7 

SAVLU 

0 321 

TEHP 

0159 

TEMPI 

0 499 

TH 

0333 

TRHyEC 

QQ15 

UNPIO 

0 032 

UNPI33 

0 550 


CHECK 

0487 

CKl 

0 49 4 

ERRBUF 

0163 

ERR30^ 

0 312 

H800 0 

0 03 9 

HFFFF 

003 7 

303 

020^ 

304 

0 20 3 

JPRET 

0 02 7 

3PRET1 

002 7 

LBL^ 

0126 

LBL5 

0128 

LLR 

0 562 

LOAD 

0238 

LOAOSO 

0025 

LOGl 

003 0 

MIBI 

0509 

NEXT 

0447 

P 34 

042^ 

P35 

0 42 6 

RBL2 

0 270 

RBL2A 

0275 

RBL9 

030‘4 

RBL9A 

030 6 

SM 

0 201 

SN 

0 33 6 

TRANV 

002 4 

TRL 

0175 

XSWAP 

0349 

ZERO 

0 03 8 


u 

o 

o 

© 

o 

o 

o 

o 

o 

r"-\ 


CQHPV-+ 

OOS^t 

DISP 

0 3 4 0 

F2 

0160 

F3 

C161 

I 

0000 

lUP 

0 0 2 5 

30BIND 

0 035 

30BP 

0 2 0 2 

3PRETN 

0 027 

LADDON 

‘J 1 2 u 

LBL5GO 

0213 

LBL6 

0139 

LOADl 

0 241 

LOADEP 

023 8 

LOGIA 

00 2'D. 

LOOP 

00 76 

NEXT! 

B 471 

NEXTI 

0322 

PRE30B 

0391 

PRORET 

0016 

RBL28 

0250 

RBL3 

0273 

RBLOAD 

0224 

READMM 

032 3 

SWAPCK 

0033 

TAB 

019*4 

TRLG 

0184 

TRL 2 

0190 


EREX 

0265 

ERJ03 

0315 

FILE2 

0 328 

FILES 

0029 

3BCNCL 

0023 

JBCNFG 

0023 

30BP3 

0199 

JP05 

0 433 

LBLl 

0 08 4 

LBL2 

0 0 91 

LBL7 

0214 

LBL8 

Clio 

LOADl 

0379 

lOADIN 

0026 

LPMSK 

0 03 6 

LSD 

0 h3 6 

NW 

■0 334 

OK 

0 47 8 

PRO I EC 

0019 

Q5AV 

0351 

R8L3A 

0 283 

RBL4 

0290 

RELEAS 

0351 

RELSIA 

0G18 

TABl 

0144 

TABLOC 

C152 

TRL GAD 

017 3 

TRNV 

0 063 


/ ■’ 

o 

u 

C) 

o 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


OOOi 
0 3 0 2 
00 0 3 
000 4 


0 0 3 b 
00 0 7 

00 0 9 

0 Oil 
0012 
0013 
001^ 
0015 


0017 

0013 

u j 2 u 

03 21 
0 0 2 2 
0 0 23 
0 3 2 4 
0 0 2 5 
002 6 
00 2 7 
G328 
0Q29 
003 0 
0 j 3 1 
00 32 
00 33 
003 4 

G u 3 6 
00 3 7 
0033 
0 0 39 
0 0 40 
00 4 1 
0042 

0 0 4,5 
0 0 t 4 

0 Q 4 5 
0 ] 4 D 


004 6 


JPCHGE 


¥ 

V- 

¥ 


PAGE 


DATEJ 01/27/99 


NAM JPCHGE DECK-ID M77 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS OIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-11CM77'j 0 00 1 
M77a0002 
M7700003 
M77Q0004 


o 

o 


4 


JPCHGE-STATEMENT PROCESSOR FOR, ^ CSY ^V 

^adr ^^aof -bsr ^esF 


JOB PROCESSOR STATEMENT 

* THIS STATEMEMI ALLOWS THE OPERATOR THE OPTION OF 
» SELECTING DEVICES FOR SYSTEM UNITS OTHER THAN 
^ THOSE CURRENTLY USED. 





^ If. >1. If. If.:}. 3(.^ 






ENT 

CHANGE 





ENT 

JPCG 


G 022 



EQU 

ZERO ($22) 





EXT 

JBCNCL 





EXT 

Mil NP 





EXT 

VINPV4 





EXT 

NUHLU 





EXT^ 

ASCHEX 





EXT 

lUP 





EXT 

TRMVEC 





EXT 

FILE2 





EXT 

LOGIA 





EXT 

MIB,MIBX 





EXT 

JB^'ROE 





EXT 

MIBUF 


00 C2 



EQU 

LPMSK (2 ) 


QOEF 



EQU 

LEVEL (lEF) 

POOUO 

G8FE 


JPCG 

NUM 

$C8FE 

PDOOl 

68 4A 



STA^ 

ABSLOC 

P00G2 

EOEF 



LDQ- 

LEVEL 

O00Q3 

01 57 



SQN 

GOGO 

POQG 4 

oC43 



STA* 

( F2) 

PO 0 0 5 

0 8 44 



CLR 

A 

P 0 0 G 6 

6400 

X 


5TA 

MIB 

PGQQ7 

7FFF 

X 

3f. 



PO QG8 

E 4 0 0 

X 


LDQ 

MI8JF 

P0QG9 

7FFF 

X 




POGGA 

18 03 



JMP^ 

REENTR 

P 0 0 0 B 

EGGO 

X 

GOGO 

LDQ 

= XMIINP 

POOOC 

7FFF 

X 




POGGD 

C622 


REENTR 

LDA- 

($22) ,3 


^f-^MSOS 4.GM7700005 
' M7700Q07 

M77u 0009 

M773G311 
M77D0 J12 
H7700 013 
M7 7 3 OOl^t 
M773Q015 


M77G0017 
M770GG1S 

^^HSOS 4.GM77G0020 
^^MSOS 4.uM77C0ij21 
^^MSOS H. 0M773GD22 
^--MSOS 4.0H77 u 0 02 3 
M77u0024 
M77G 0 025 
M773002S 

ABS. ADDR. OF TRANTA BUFFER IN JOBENT { T RVEC) M? 70 0 0 2 7 

M7730Q28 
M7700 029 
■ M77D0030 
M7 70 0 0 3 1 
M770DQ32 
M7790033 
M7700D3^ 


:R address IN MINT 
NO OF LU IN SYS8UF 


FLAGS IN MINT 


ENTRY POINT - (LOA» »-l) 
SAVE ABS LOC OF PROGRAM 

CALLED FROM MINT 
FWA TO FILE 2 


^^MSOS 
^ ■’^MSOS 


CLEAR MIB SWITCH - LOCK OUT FOR INTER MODULE 


M7700Q35 
M770 0 037 
0M77G 0 038 
0M7700039 
M770QQ40 
M770U041 
M77G0042 


TRANSFERS 

CALLED FROM JOBPRO 


M77QQQ43 
«^^NSOS 4. 0M77UU 044 

*^MSOS 4.QM77G0045 
^^HSOS 4.0H77QQ046 


r\ 


o 


•vw-' 


u 

o 

o 

o 

o 

o 

c 

o 


Q IS POINTER TO INPUT BUFFER AT THIS POINT 


M77Q0048 


O 


JPCHGE 


PAGE Z 


date: 01/27/99 


o 

o 

o 

o 

w* 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 0 49 

PGOOE 

BO 0 0 



EOR 

=N£2A56 


POOOF 

2A56 





0 0 5 0 

P 0 0 1 ti 

6800 



STA 

VSW 


POull 

00 80 





0 0 51 

P0C12 

0111 



SAM 

SET 

0 0 5 2 

P0C13 

1818 



JMP» 

NCSY 

0 0 5 3 

P0014 

09E8 


SET 

INA 

-$17 

0 0 5 4 

P0015 

0112 



SAN 

SETO 

0^35 

P0016 

1800 



JMP 

ADX 


P0Q17 

0 QE2 





0135& 

P0G18 

0903 


SET f 

INA 

3 

0 0 5 7 

P0019 

0112 



SAN 

SETQO 

00 58 

POOIA 

1800 



JMP 

BSX 


PQ OIB 

OOEA 





0059 

poaic 

09FE 


SET 00 

INA 

-1 

0 0 0 U 

DOOiO 

BUD 



SAN 

NCSY 

0061 

POOlE 

ODOl 



INQ 

1 

00 52 

POOIF 

C622 



LDA- 

<S22) ,Q 

0 0 5 3 

PO u2u 

BO 00 



EOR 

=N55359 


P0021 

o3 59 





0 0 5^ 

P0022 

0 115 



SAN 

SET 1 

0 0 5 5 

PG023 

C201 



LDA- 

i.Q 

0 0 56 

P0024 

0FC8 



ALS 

8 

0 0 57 

P0Q2 5 

AOGA 



AND- 

$A 

0 j 5 8 

Pu 026 

09D3 



INA 

-S2C 

GGd9 

P0 027 

3102 



SAZ 

SETCF 

00 7 0 

P u 028 

G A 0 2 


SETl 

ENA 

2 

0^71 

P0029 

1818 



JMP^ 

RF3A+1 

00 72 

P00 2A 

0822 


SETC7 

RAO^ 

CFLAF 

00 73 

PG02B 

ODOl 


NCSY 

INQ 

1 

00 7 4 

PC02C 

4 0 FF 



STQ- 

I 

0 3 7 6 

P0020 

5822 



RTJ-^ 

CHANGE 

0Q77 

PGQ2E 

C820 



LOA-7 

VLUFLG 

00 7 8 

PDC2F 

0117 



SAN 

G I3JT 

00 79 

PDQ30 

E400 

X 


LOQ 

TRNVEC 


P0Q31 

7FFF 

X 




QO 3 a 

P0032 

C20C 



LOA- 

12, Q 

0 0 81 

PO 05 5 

0113 



SAN 

GTDJT 

003 2 

P0054 

CC15 



LDA^ 

{lUPP ) 

0 iJ 8 o 

P 0 0 3 5 

640 0 

X 


STA 

VINPV4 


P0 0 35 

7FFF 

X 




0 u 3 

Pu 0 3 7 

COEF 


GTOUT 

LOA- 

LEVEL 

00 3 5 

P0 038 

0106 



SAZ 

RF3A-1 

0 0 85 

P 0 u 3 9 

0 8 44 


SWAP 

CLR 

A 

Oi 37 

PO 03A 

640 0 

X 


STA 

MIBX 


P003B 

7FFF 

X 




00 33 





RELE, 

AS (JPCG 

0 j 88 

PQ03C 

54F4 





0 3 3 8 

P 0 0 3 0 

1901 





0 0 38 

P005E 

FFC2 





00 39 

P0G3F 

0 ACl 



ENA 

1 

00 9 0 

P 0 0 4 0 

OCOE 


RF3A 

ENQ 

l4 


GOTO ADVANCE ROUTINE 

GOTO BACKSPACE ROUTINE 
NO 


HAKE SURE A COMMA 
FOLLOWS ^CSY 


SCHEDULE UPLOAD 
WIL BE STORING L.U. 
INPUT BUFFER 



NO V PROCESSED GET OUT 

JOBENT TRANTA TABLE 

IS A JOB IN PROGRESS 
YES 


BACK TO J.P. 

DONE WITH MINI BUFFER 

» 1 ? 1 


SCHEDULE JOBPRO 


INDEX TO RF3 IN JOBPRO 



M770(3 0^9 

M7700050 

M77DQ051 
M77Q0052 
M770 0 055 
M7700 05A 
M77G0055 


M7700 05fa 


M7700057 


M7700 058 


' M7730059 
sf^MSOS 4. 0M779005Q 
^^MSOS 4,0M7700u6i 
*^MSOS -^.0M770 0 a62 
-»MSOS -r.CM7700063 

^-^MSOS 4. GM7700 064 
’■^MSOS 4.QM77u0 065 
^^MSOS if.0H770 0 Q&5 
^^HSOS ^.OM7700057 
--MSOS 4.GM770Q06S 
^»HSOS 4.0M77GOQ69 
•*‘^MSOS 4.0M770 lI37Q 
^^MSOS 4.QM7700a71 
LOC^^^MSOS 4.0M7700072 
^^MSOS 4. 0M770aa73 
M770007H 

M77D 0 075 
^^MSOS 4.CM770a077 
M770 0 078 
^^MSOS 4. 0M7700079 


-^HSOS 4.0M77a0030 
^^MSOS 4.0M7700081 
M77aa082 
^^MSOS 4,QM7700083 


»*MSOS 4. QM7700084 
^^MSOS 4.0M77300S5 
»^MS0S 4. UM7700086 
»^MSOS 4.QH77a0Q87 

»^MSOS 4. GM77 j 0 088 


O 

O 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 


^^‘MSOS 4. OM77C0 089 
M77GQ090 


O 




JPCHGE 


PAGE 


3 


DATE: 01/27/99 



009 1 

PG 041 

68 07 



STA^ 

INDEX 


0C92 

P0D42 

0400 

X 


LOA 

J BP ROE 

c 

P0043 

7FFF 

X 


STA- 


00 9 5 

P 0 G -t 

60FF 



I 


00 9 -r 

P00 45 

C803 



LDA^ 

INDEX 


0 09 5 

POO-to 

14FF 



JMP- 

( I) 

Q 

0 0 9 7 

POO 47 

7FFF 

X 

F2 

ADC 

FILE2 


00 9 8 

P0048 

0 0 0 0 


INDEX 

NUM 

0 

o 

010 0 

P0049 

7FFF 

X 

lUPP 

ADC 

lUP 


0101 

PO Q4A 

GOOD 


QSAVE 

ADC 

0 


G1D2 

PQQ4B 

aooo 


A8SL0C 

ADC 

0 

o 

UlO 3 

PG04C 

0 0 00 


CFLAF 

NUM 

0 

U1Q4 

PD04O 

00 00 


VLU 

NUM 

0 


010 5 

PO 04F 

FFFE 


VLUFLG 

NUM 

-1 


o 

o 

o 

o 

0 

o 

o 

o 

o 


OiQ? POuuF OBGO 
Oija P005G OAFD 

0109 POOSl 6841 

0110 P0052 C83F 

0111 P0053 0113 
jU2 P0G64C0G0 

P0Q55 00 56 

0113 

uIIh P0056 6830 

Q116 PG057 E8F3 

0117 P0058 FOOD 
P0C59 0095 

0118 P005A F838 

Q12Q P005B 5800 X 
P005C 7FFF X 

0122 P005D QFFO 

0123 Pu 05E 01 56 

0124 PD05F E833 
012y PGG6Q 0141 
0126 PQ06i 0164 
012/ P0Q62 6A36 
0123 P0063 D82F 
0129 P0J64 1BF2 

0131 P0065 0172 

0132 POGbS 18Q0 
P0067 0 0 70 

0134 P0u68 E82A 

0135 P0069 01 42 

0136 PQ06A 0171 

0137 P0G6B 186C 


CHANGE 

NOP 

0 


ENA 

-2 


STA^ 

COUNT 


LDA^ 

vsw 


SAN 

C3-^^-l 


LDA 

= NB 55 

♦ 


STA^ 

count+1 

C3 

LOQ^ 

AbSLOC 


ADO 

=X3JF-JP 


ADQ- 

COUNT 


RTJ 

ASCHEX 


LLS 

1 6 


SQN 

C5-M-1 


LDQ^ 

COUNT 


SQZ 

1 


SQP 

ERR-^- 1 


STA« 

NJM,Q 


RAO-^ 

COUNT 


JMPT- 

C3 

C5 

SQM 

C6-»-l 

ERR 

JMP 

J04ER 

C6 

LOQ^ 

COUNT 

SQZ 

C7-'^-l 


SQM 

C7-^^~l 


JMP^ 

J04ER 


INDEX TO PROPER MOD IN JOBENT 
SET UP RETURN 

TO JOBPRO 

RETURN TO JOBENT 


ENTRY POINT 
SET COUNT TO -2 


CHECK IF OR 

A=NON ZERO IF ^K ^ 

A=Q SET COUNT+1 TO ENABLE THE 


PROCESSING OF THE STATEMENT 


FIND ABS. LOC. OF BUFFER 
LOCATION TO STORE ALPHA 

CHAR. INTO. 


IF MORE THAN 3 WORDS READ 
ERROR. 

STORE L.U. NO. IN NUM ARRAY. 


LAST CHAR. 


o 


o 




^»MSOS 4. DM770 0091 
»^MSOS 4.0M7700Q92 

-^MSOS 4. 0M770Q 093 
^^MSOS 4.QM7700a94 
»»MSOS 4.SM770a095 

M77uOG97 
«-^^MSOS 4. GM770 0 098 


M77u0100 
M770 0 10 1 
M7700102 
»^MSOS GM77uGi03 
»^HSOS 4.0M770G1G4 
^»MSOS 4.GM770G1C5 

. M77Q0107 
M7700108 
M77jai09 
H77Q011G 
M770 0111 
MF700112 



H7700113 
M773 0114 

M77Q0ii6 

M7700117 

M773Qiia 

M77SQ12G 


M770 0 122 
M7700123 
H7700124 
M7700125 
M771 u 12 6 
M77j0127 
M770Q128 
M77G 0129 

M77D0131 
^^•MSOS w.DH77uQ132 


U 

O 

o 

O 

O 

O 


M7730134 
H77DQ135 
M7700136 
M77Q0 137 


O 



V,.-- 





JPCHGE 


PAGE 4 

DATES 01/27/99 





o 

0136 

P0 06C 

dA 2C 

C7 

STA^ 

NUMjQ 

STORE L.U. NO. IN NUM ARRAY. 



M7700136 

0 


0139 

P0D6D 

01 43 


SQZ 

SAX-^-1 

Q=0 IF COUNT HAS GONE TO ZERO 



M770 0 139 


o 

014J 

PO Q6E 

uDQl 


INQ 

1 

SET UNUSED PORTION OF ARRAY 



N7700140 

, 0 

0141 

P0 06F 

0 8 0^+ 


SET 

A 




M770G141 


0142 

P0070 

18FB 


JMP^ 

C7 




M77GG142 


o 

014^ 

P0 071 

OAFC 

SAX 

ENA 

-3 




M770 014^+ 


0145 

PD072 

60FF 


STA- 

I 




M7700145 


0146 

P0073 

DOFF 

C8 

RAO- 

I 




M7700146 



0147 

P0074 

G921 


LDA^ 

BUF, I 

CHARACTER 



M77Q0147 


; "''i 

0148 

P 0 0 7 5 

E923 


LDQ^ 

NUM, I 

LOGICAL UNIT NO. 



M7700148 

, 0 

s— * 

0149 

P0076 

0 161 


SQP 

Cl4-^-l 




M77 J 0 149 


0150 

PU077 

1CD7 


JMP-^ 

(CHANGE) 

RETURN 



M77GG 150 



0152 

P0G78 

0 151 

C14 

SQN 

C14XX 


»^MSOS 

^ « 

OM770Q152 

0 

( 1 

0153 

=*0079 

1872 


JMP=f 

J03ER 

L.U. ZERO 

’‘^MSOS 

4 « 

GM7730153 


0154 

P00 7A 

G9B6 

C14XX 

INA 

-$49 


^^MSOS 

'~T • 

UM7700154 



0155 

P0 07B 

0115 


SAN 

C9-^- 

1 



M7700155 



0156 

P007C 

0 ACl 

C14A 

ENA 

1 


-^HSOS 


OM7700i56 

0 


0157 

P00 7D 

5 8 70 

RTJ» 

CAOD 

GET THE RIGHT SYSTEM ADDRESS 

^^MSOS 

^ • 

QH770Q157 


0 15 8 

P0 07E 

QA 02 


ENA 

2 




M770G158 



Q159 

PQ07F 

6 8 54 


STA^ MASK 

MAY BE READ FROM 



M77Qul59 


o 

0150 

PflOSu 

1830 


JMP^^ PROTST ($F9) = UNIT Nl FOR 

CURRENT 1 

0EVIM770U 160 

0 

0151 

PD081 

0 9FC 

C9 

INA 

-3 




M770Q161 


0162 

P0082 

0117 


SAN 

Cil-’^ 

-1 



M77CG162 



0163 

PGC8 3 

0AQ3 


ENA 

3 

PUNCH 

^^MSOS 


0H7700163 



0164 

P0084 

58 69 


RTJ^ 

CADD 


^^MSOS 

4 « 

uM77j 016 4 

: 

'w' 

015 5 

PG085 

GA 04 


ENA 

4 




M7700165 


■ 0166 

PGG86 

6840 


STA^ MASK 

BE WRITTEN ON 



M77001&6 



0157 

P0D87 

C8 40 


LDA^ 

MSGLAS 

STORE CODE TO REJECT IF NEW ' 



M7700167 



0158 

P0C88 

68 4D 


STA^^ 

EQ3 LAS 

LIST DEVICE IF HASS STORAGE EQPT. 



M770G153 

0 


015 9 
0170 

P0069 

1827 


JMP^ PROTST LIST DEVICE 



M7700169 



P0C8A 

G9FB 

Cll 

INA 

- 4 




M77GQ170 



0171 

PC08B 

QilE 


SAN 

C13-^ 

-1 



H7700171 


o 

0172 

P0 08C 

QAQZ 


ENA 

2 

LIST 

»»MSOS 


OM7700172 

' 0 

0173 

0174 

POO 80 

5860 


RTJ^ 

CADD 


^^MSOS 

4 » 

GM7700173 


Pu C8E 

G A 04 


ENA 





M7700174 



0175 

P0Q8F 

63 4 4 


STA^ MASK 

MAY BE WRITTEN ON 



H770Q175 



0176 

P0u9D 

1820 


JMP^ PROTST FOR CURRENT PUNCH DEVICE 


M773 0175 



017 7 

P0 09i 

0 0 0 0 

vsw 

NUH 

0 




M77Q0177' 



0178 

PUu92 

0 0 0 0 

COUNT 

NUH 

0, G , 0 




M7700178 




P0093 

0000 











PO 094 

0 0 0 0 







M7700179 

: 0 


0179 

P0Q95 

00 0 0 

BUF 

NUM 

0 , Q , 0 






P0 096 

0 0 0 0 











PO 097 

0 0 0 0 







M77G G 180 


Pi 

013 0 

P0a98 

GOOD 

NUH 

NUH 

C, $FFFF 




0 



P0099 

FFFF 









0181 

P0C9A 

U9F9 

C13 

INA 

-6 




M77a018l 



0182 

PQ09B 

flllD 


SAM 

G13 J-^-1 




H77u 0182 


.0 

0133 

PQU9C 

0 A02 


ENA 

2 




M77Q0183 

0 


013'- 

P0 09D 

6836 


STA^ 

MASK 




M7700184 


0185 

PGG9E 

C9FA 


LOA- 

NUM + 1, I 




M7700185 



o 


o • o 


(1^ 



JPCHGE 


PAGE 5 
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0186 

PO 09F 

G13i* 



SAM 

C13X->^-l 




M7700136 


013 ? 

POOAO 

DOFF 



RAO- 

I 




M770Q187 

o 

0188 

POOAi 

C9F3 



LDA* 

BUF,I 




M770 0188 

0189 

PG 0A2 

09BE 



INA 

“$L1 




^M77 jQ189 


ul3 J 

P00A3 

0113 



SAN 

C13Y-^-i 




M77u 0190 

o 

0191 

P00A4 
POOA 5 

FOO 0 
1000 
18Q4 


C13X 

ADQ 

=N £ 1 0 0 0 




M77G0191 

0192 

PC0A6 



JMP- 

C13Z 




M770Q192 


0193 

P00A7 

09FE 


C13Y 

INA 

-1 




M7730193 


0 1 9 •+ 

PO 0A8 

0101 



SAZ 

1 




M77GG194 

o 

019 9 

P00A9 

182E 


C13J 

JMP>^ 

JOAER 




M770 0195 

0196 

POO AA 

68A3 


C13Z 

STA^ 

VLJFLG 

SET V FLAG 

»^HS0S 

■+ • 

5M77G 0196 


0197 

POOAB 

CC9D 



COA- 

(lUPP) 

SAVE J P INPUT UNIT 

**HSOS 

4 • 

0M770Q197 


0198 

POOAC 

68A0 



STAL 

VLU 


**MSOS 

A • 

0M7700198 

o 

0199 

PQ 0 AD 

CDOO 

X 


LDA 

= XIUP 


**MS05 

A • 

QH77G0199 


PODAE 

0 0 49 

X 









02 OC 

POOAF 

6822 



STA^ 

LUADDR 


>^-MSOS 

4 , 

QM77Q0200 


0201 

P 0 0 B 0 

4822 


PR0T3T 

STQ^ 

UNITNO 

SAVE NEW LU NUMBER 

>>‘>^MSOS 

f 

0M770 D2Q1 

r-\ 

020 2 

POOBi 

CO OB 



LDA- 

LPM5K+9 




M7700202 


0203 

P00B2 

0 8B6 



LAQ 

A,Q 

SAVE LU ONLY 



M77u 0 20 3 


02 0 4 

PGGB3 

09FE 



INA 

-1 




M770 0204 


0205 

P00B4 

0111 



SAN 

NOERR->^-l 




M77D02Q5 

Q 

02 0 6 

P00B5 

1822 



JMP>*^ 

JOAER 

JUMP IF GORE ALLOCATOR 



H7700206 

0207 

Pu GB6 

09 01 


NOEPR 

INA 

1 




H7700207 


G20o 

POO B7 

90 0 0 

X 


sue 

=XNJMLJ 

GET NO OF LU FROM SYSEUF 



M770 0208 



P00B8 

7FFF 

X 








G 

0209 

POOB9 

0102 



SAZ 

CNTINU->f-l 

CONTINUE IF OK 



M7 7 0020 9 

0 210 

POOBA 

0 131 



SAH 

CNTlNU-^-1 

CONTINUE IF OK 



M770021G 


0211 

POuBB 

i 81C 



JMP-^ 

JOAER 




M77Q0211 


0212 

PQOBC 

E500 

X 

CNTISiU 

LDQ 

LOGIA, 0 




M77G0212 

O 


POOBD 

7FFF 

X 







0213 

POOBE 

OA G1 



ENA 

1 




M770Q213 


0214 

POOBF 

A208 



AND 

1- 8,0 

PROTECTED 



M770 0 214 


0215 

pooca 

0101 



SAZ 

1 

SKIP IF LEGITIMATE CHANGE 


M7700215 


0216 

PQOCi 

1828 



JMP^ 

J07ER 




M770 0216 

0217 

poac2 

call 



LOA* MASK 

UNIT NUMBER— DEVICE 

IS PROTECTEDM7703217 


0 218 

P0QC3 

A208 



AND 

8,0 

IF BIT 0=1 



M773Q218 


0219 

POOCA 

Gill 



SAN 

1 1 




M77QQ219 

o 

Q220 

P u 0 C 5 

1826 


PTDER 

JMP^ 

J03ER 

ERROR-EXIT 

^>»MSOS 

^ • 

QM77G 0220 

022 1 

P00C6 

C8DF 



LDA- 

EOOLAS 




M77Q 0 221 


0222 

P00C7 

0106 



SAZ 

NOCLCK 

SKIP IF NO EQPT CLASS CHECK REOUIRED 


M77Q0222 


0223 

P00C8 

B2D3 



EOR- 

8,0 

COMPARE EQPT CLASS NEW 



M770G223 

o 

0224 

^00C9 

A80D 



AND* 

EQ3MSK 

UNIT- REJECT IF SAME AS 



M7700224 


0225 

PO OCA 

0111 



SAN 

RSCLCK 

INVALID CLASS 



M7700225 


022 6 

POOCB 

1320 



JMP>^ 

J03ER 




M77Q0226 


022 7 

POOCC 

GAOO 


RSCL3K 

ENA 

G 

RESET FIELD AFTER CHECK PERFORMED 



M7700227 

o 

0228 

POOCD 

6 808 



STA>^ 

EOCLAS 




M77G0228 

j2 29 

PO OCE 

C3 04 


N0CL3K 

LDA- 

UNI TNO 

FINALLY — SET NEW UNIT NUMBER 



M77u0229 


023 0 

POOCF 

6C02 



STA^^ (LUADDR) IN LOCATION RESERVED 

FOR IT 


M770023G 


0231 

P Ou DO 

18A2 



JMP’^ C8 

GO GET ANOTHER PARAM 



M7700231 

Q 

02 32 

POODl 

0 0 0 0 


LUADDR 

NUM 

0 




M7730232 

0233 

=>0002 

QQGO 


UNI TMO 

NUH 

0 




MF70Q233 


023 4 

P00D3 

0 0 G 0 


HASK 

NUM 

1 0 




M7700234 


o 


o 


o 

o 

o 

o 

G 

o 


/ '‘t 

C) 

o 

o 

o 

o 

o 

o 

o 



JPCHGE 


DATE: 01/27/99 


=>AGE 


0735 

POOD 4 

lOuO 


HSCLAS 

NUM 

S 13 3 0 

MASS STORAGE DEV 

EQPT CLASS 


M7730235 

0236 

PO 005 

0 OOQ 


EQCLAS 

NUM 

0 




M77Q0236 

023 7 

PG0D6 

3800 


EQCHSK 

NUM 

$333 0 

EQPT CLASS FIELD 

SPEC. 


M7700237 

0233 

PQ 0D7 

I3AOO 


JO^ER 

ENA 

Q 



^^MSOS 

4. 0M7700238 

0239 

P03D& 

E 4 u 0 

X 

COM EX 

LOG 

TRNVEC 

TRANTA TABLE IN JOBENT 

^^MSOS 

4. 0M770Q239 


P00D9 

00 31 

X 








0240 

PQODA 

80 00 


COMEXX 

ADO 

=N$3034 



«^^MSOS 

‘r. QM77J 0240 


PQODB 

30 34 









0241 

POODC 

620A 



3TA- 

10,0 



^^MSOS 

4. UM77C:U241 

0242 

POODD 

CQEF 



LOA- 

LEi/EL 



’’^MSOS 

4. QM770Q242 

0243 

POODE 

0106 



SAZ 

JPXERR 



^•^■MSOS 

4. 0M7700243 

0244 

POOOF 

G802 



SET 

0 



♦*MSOS 

4. 0H7700244 

.0249 

PQOEO 

54F4 



RTJ- 

($F4) 

SCHEDULE JOB SANS 

EL WHICH WILL CALL 

^^MSOS 

4. OM 77 002 4 5 

0246 

PO OEl 

1202 



NUM 

$1202 

IN JBKILL 


^»MSOS 

4. OH7700246 

0 2 47 

P00E2 

7FFF 

X 


ADC 

JB3MGL 



^--MSOS 

4.QM77GQ247 

0248 

PQ0E3 

1800 



JMP 

SWAP 

RELEASE CORE 


^^MSOS 

■+. UM770 Q248 


PDOE^ 

FF54 









0249 

PO 0E5 

uAGi 


JPXERR 

ENA 

1 

TELL JOBPRO 


^»MSOS 

H.QM773Q249 

025 C 

P 0 uE6 

0 COb 



ENQ 

6 



*-MSOS 

*4. OH 77 3 G 25 G 

0251 

P00E7 

1800 



JMP 

RF3 A + 1 

TO TERMINATE JOB 


-^MSOS 

4. QM77Q0251 


P00E8 

FF58 









0252 

PG0E9 

a A05 


J07ER 

ENA 

3 



^^MSOS 

4. OM7700252 

3 253 

PQ3 EA 

18ED 



JMF-*- 

COMEX 



»^MSOS 

4. 0M77Q0253 

0254 

POOEB 

0 A04 


J08ER 

ENA 

4 



-^MSOS 

4. OM7730254 

0255 

POOEC 

18EB 



JMP^ 

DOMEX 



^■^MSOS 

4. 0M7700255 

0255 

POOED 

0 800 


CAOD 

NOP 

0 



^^MSOS 

ir. QM773 0 256 

025 7 

PQ OEE 

48A3 



STQ^ 

COUNT 



^^MSOS 

4.GM770 0 257 

0 2 5 8 

POOEF 

E8 00 



LDO 

CPLAF 



*^^MSOS 

4. OM7730238 


P u 0 F 0 

FF5B 









0259 

POOFl 

0144 



SQZ 

SYS 



*^MSOS 

4.QM77U0259 

0 25 3 

PtiOF2 

3 Q E9 



ADD- 

$E9 

THE STATEMENT WAS 

XCSY, PICK UP 


M77u C 260 

0251 

P00F3 

68DD 


HERE 

STA-^ 

LUA30R 

COSY L.U. ADDRESS 

^‘^MSOS 

4. GM7700251 

0252 

POOFi^ 

E8 9D 



LDQ-^ 

COUNT 



^^MSOS 

4. OM7700262 

0253 

P00F5 

1CF7 



JMP^ 

{ CADD) 



^^^MSOS 

4. GM77DQ263 

U 2 6 H 

PO 0 F6 

8802 


SYS 

AOD^ 

SADD 

STANDARD SYSTEM ADDRESSES 

^^MSOS 

4. QM770Q254 

0 2 5 5 

P00F7 

18FB 



JHP^ 

HERE 



^^HSOS 

4. GM770 0265 

0266 

PO 0F8 

QQF3 


SADD 

NUM 

$F8 



^^HSOS 

4.5M7730256 


0258 




ADVANCE ROUTINE 

WHICH ADVANCES RECORDS OR FILES 

M77J 0268 

0259 








M770 a259 

0271 

P00F9 

0 DGl 

ADX 

INQ 

1 



M770 0271 

0272 

POOFA 

C622 


LDA~ 

l$22) ,Q 



M77uQ272 

0 2 73 

POOFS 

BOOQ 


EOR 

= ADF 

IS IT 

A ^ADF 

M7700273 


POOFC 

44 46 







027-t 

POUFD 

0 103 


SAZ 

ADF 

YES 


M770 0 274 

02 75 

POOFE 

09EB 


INA 

-$14 

IS IT 

A ^ADR 

M7730275 

0276 

POQFF 

0103 


SAZ 

ADR 



M7700276 

0277 

POIGG 

18D6 


JMP^ 

J04ER 

ERROR 


M7700277 

U278 

PO 101 

QAQ5 

ADF 

ENA 

5 



M7700278 



JPCHGE 


paGE 


7 


DATE: 01/27/99 


0279 P0102 180E 

0280 P0103 0A07 
0231 POlOA 180G 


JMP^‘ MOTION 
ENA 7 
JMP^ MOTION 


M77Q 0279 
H770G280 
H7 70 0 281 


023 3 
02 8^ 


BACKSPACE ROUTINE WHICH BACKSPACES RtCORQS OR FILES 


M7700283 

M7700284 


0236 
02 8 7 

02 38 

023 9 
0 2 3 0 
0291 
0 2 92 

0293 

0294 
0 2 9 5 

0296 

0297 

0298 

0299 
0 3 0 0 
030 1 
030 2 
0 3 3 3 
030-t 
0305 
030 6 

03 07 
03 08 
03 09 

03 10 

0311 
0 312 

0313 

0314 

0315 

0316 

0317 

0318 
0 319 
03 2 G 
0321 
0 322 
0323 


PQ 1 Q 5 
PQ106 
P01C7 
PQ108 
PO 109 
PblGA 
PO 10 B 
POIOC 
POIOD 
POlOE 
POlOF 


GDul 
C622 
BCCO 
5346 
0103 
09EB 
0103 
18CA 
0 AOd 
1302 
OAOl 


POllG 
POlll 
P0112 
PQ113 
=>0114 
PO 115 
PQ115 
PQ117 
P0118 
P0119 
POllA 
PQ118 
POllC 
PQ 110 

POllE 

POUF 

PQ120 

PQ121 

P0122 

PQ123 

PQ124 

P0125 

P0126 

P0127 

P0128 

P0129 

P012A 


OFCC 

681C 

C201 

0FC8 

AOOA 

09D3 

oiei 

1 8BF 
0001 
40FF 
E8 DO 
FF2F 
FOOD 
G 095 

5 8 CO 
Q 0 5C 
0143 
0121 
1805 
QlQl 
18B2 
4807 
18F3 
48 0 A 
54F4 
1000 
0 0 06 


INQ 1 

LDA- ($22), 9 
EOR =ASF 

SAZ 8SF 
INA -$14 
SAZ 8SR 
JMP’f J04ER 
ENA 6 
JMP^ MOTION 
ENA 1 


IS IT A ^BSF 
YES 

IS IT A ^8SR 

YES 

ERROR 


MOTION ROUTINE SETS UP A REPEATED MOTION REOUEST 


MOTION 


HOTG 


ALS 12 
STA^ REQ+4 
LDA- 1,0 
ALS 3 
AND- $A 
INA -$2C 
SAZ H3TQ 
JMP^ J04ER 


MOTl LDO AB5L3C 


MAKE SURE THERE IS A COMMA 


ERRROR 


FIND ABS. LOC OF BUFFER 


MOT2 
MOT2A 
HOT 3 

MOT4 


RTJ ASCHEX 

SQZ MOT2A 
SAP MOT2 
JMP- M0T4 
SAZ M0T3 
JMP» J04ER 
STO^ REO+3 
JMP^ MOTl 
STC^ REOCNT + l 
RTJ- ($F4) 

NUM $1030 
ADC MOT5-REQ 


ALPHA WAS entered, SHOULD NEVER GET ONE 

ZERO WAS RETURNED ERROR 

ALL DONE GO DO MOTION 

JP04 ERROR 
STORE LU 

SAVE NUM OF TIME TO REPEAT 


M77DG286 
M77Q 0287 
M770 0283 

M770Q289 
M770 Q 290 
M7700291 
M770 0292 
M7700293 
M773 0294 
H770 0295 
M7700296 
M77Q0297 
M773 0 298 
M7700299 
M77Q 0300 
M7700301 
M77UU 302 
M7700303 
M7700304 
M773 0 30 5 
M7 70 030 6 
M77003Q7 
M7700308 
M77Q0309 


:XBJF-JPCG GIVE ASCHEX ADDRESS INCASE OF AN INCORRECT M77DG310 


M773 0 311 
M77D0 312 

M7700313 
M773 0 314 
M7700315 
M770Q 316 
M773 Q 317 
M77Q0316 
M7730319 
M7700320 
M7730321 
M7700322 
M7700323 


JPCHGE 


= AGE 


8 


DATE! ul/27/99 


C' 





032 4 

P012B 

0 0 0 0 


NUN 

0,0,0 




PO 12C 

0 0 00 





o 


P012D 

0 0 00 





032 6 
0326 

P012E 

14EA 

* 

JMP- 

(SEA) 




Qi27 

P012F 

0178 

MOT5 

SQM 

CONFER 

IF ERROR CHECK IT OUT 

o 

03 2 8 

P0130 

EO 00 

REQCNJT 

LDQ 

= N0 



P0131 

0 0 0 0 





0329 

P0132 

ODFE 


INC 

-1 



0 3 3 u 

PG133 

0141 


SQZ 

COMP 

ALL DONE 

o 

033 1 
0332 

P0134 

18F2 


JMP^ 

MOT 4 

NOT DONE, DO AGAIN 


0333 

PQ135 

OAQl 

COMP 

ENA 

1 



0334 

P0136 

1800 


JMP 

RF3A 


o 


P013 7 

FF08 





0335 








0336 

PO 13o 

0 814 

CONFER 

TRQ 

A 



033 7 

Pul39 

AQIF 


AND- 

$1F 

SEOOO 


0 33 8 

P013A 

80 21 


EOR- 

$21 

$800 0 


0339 

P013B 

0101 


3AZ 

C0NJP4 

GOTO JP04 ROUTINE 


0340 

P013C 

18F3 


JMP^ 

REOCNT 


0341 

P013O 

1899 

C0MJ^4 

JMP^ 

J34ER 


{ \ 

0542 




END 




PG'i= 013E { 313) :0M = 000 0 { 0) OAT = OuOO ( 0) 

O 

o 


o 


o 


M770032A 




o 


M773 0325 
MT70G326 
M?’70 0327 
M77G 0 328 

M770 0 32 9 
M77a0330 
H77Q0331 
M770C332 
M7700333 
M?73 033A 

M77J 0 335 
H770 0 336 
H7730337 
M7700 338 
M7700339 
M770 0340 
M77Q0341 
M770 G 342 


O 


i_.) 


o 


o 


o 


o 



JPCHGE 


3AGE 


9 


date: Cl/27/99 


Q U I V 

a L E N 

C E S 


DEF . LINE 
0 0 0 G 

NAME 

I 

VALUE 

OOFF 

{ 0C0255) 

0020 

ZERO 

0D22 

(000034) 

0 0 33 

LPMSK 

000 2 

(003002) 

3 0 3 4 

LEVEL 

u u EF 

(000239) 


o 


REFERENCED AT LINE NUH6ER 

0074* 0G93t 0u95j ul45» ul-toi Q18 7i 
]202 

0038, 0Q84, 0242 


o 

o 

o 


O 

o 

o 

o 

o 

C' 


o 

o 

0308 

o 

O 

o 

, Q 
O 
' C 

o 

' o 
' o 
o 

o 


o 


JPCHGE 


date: 01/27/99 


PAGE 10 


O 


c 

S Y M Q 0 

L S 




/■'’I 

DEF .LINE 

MAME 

ADDRESS 

REFERENC 

EO AT LINE NUHBER 


Q Q17 

CHANGE 

0 04F 

0017, 

0 0 7 6, 0150 


0 Li IB 

jPCG 

flOQO 

0018, 

0088, 0117, 0310 


0046 

GOGO 

OGQB 

0 039 



0 Q48 

REENTR 

OOuD 

3 0 45 



0053 

3ET 

0014 

3 Q 51 



0 056 

SETC 

0018 

0 0 54 



0 0 59 

3ET0C 

QQIC 

0 057 


'w- 

0 07 0 

SET! 

0028 

0 064 



0 072 

SETCF 

002A 

0 0 69 



0 073 

NCSY 

0G2B 

0 0 52 , 

0 3 60 


0 0 8 4 

GTOUT 

0037 

00 78 , 

0 C81 

w‘ 

0 08 6 

SWAP 

0039 

0248 



0 09G 

RF3A 

0 0 40 

0 0 71 , 

Q08b, 0251, U334 


0 09 7 

F 2 

0 047 

3 0 40 



0 098 

INDEX 

0 048 

0 091, 

0 094 


0 ICO 

lUPP 

0049 

0 0 82 , 

0 197 


OiQi 

QSA VE 

0 0 4 A 




3102 

A8SLOC 

004B 

0 0 37 , 

0116, 0309 


0103 

CFLAF 

0 0 -4 c 

LJ0 72, 

0258 


0 104 

MLU 

Q04D 

3 198 



3 10 5 

L/LUFLG 

0 0 4E 

0 u / / , 

019 6 


0 116 

C3 

0057 

0111, 

0129 


0131 

C5 

0065 

0123 


’'■J 

0132 

ERR 

0 0 6 6 

0126 



0134 

Co 

0068 

0 131 



0138 

C7 

0 0 6C 

0135, 

0136, 0142 

'T> 

01-44 

SAX 

0071 

0139 



014 6 

C8 

0073 

3231 



0152 

C14 

00 78 

0149 



0154 

G14XX 

007A 

0152 



015 b 

C14A 

007C 



o 

0161 

G9 

0081 

3 1 3 5 



0 170 

Cll 

00 8A 

0 1 62 



017 7 

SISH 

0091 

0 0 50 , 

0 110 


0 1 78 

COUNT 

0092 

0109, 

0114, 0118, 0124, 0128, 0134 


0179 

BUF 

0 0 9 5 

0117, 

0147, 0188, 0 310 


3 180 

NUM 

0098 

3127, 

0138, 0148, 0185 


0181 

C13 

CO 9 A 

0171 



0191 

C13X 

00A4 

0186 



0193 

G13Y 

0DA7 

3 190 



3195 

:i3J 

00A9 

0182 



( ) 


o 


; O 
. n 

O 

■ ' ' ■ o 

. n 

o 

• <3 

: O 

■ O 

0257, 0262 ■ Q 

o 

O 

■ O 


r ■-! 



JPCHGE 

=>AGE 11 



DATE! 

01/27/99 

019 6 

C13Z 

00 AA 

0192 





G EQi 

PROTST 

OOBO 

3160, 

0169, 

0176 



0 20 7 

NO ERR 

0 0 B6 

3 2 0 5 





3212 

ONTINU 

uGBC 

3 209, 

0 210 




a 220 

PTDER 

U0C5 






0 227 

RSCLCK 

aocc 

0 225 





0229 

NOCLCK 

0 0 CE 

3 222 





0 2 32 

LUAODR 

bODl 

3 2 0 0 , 

0 230 , 

0261 



0 233 

JNITNO 

00D2 

0201 , 

0229 




0234 

MASK 

00D3 

3159, 

0166, 

0175, 

0184, 

0 217 

3 235 

NSCLAS 

0004 

0167 





0236 

EQCLAS 

00D5 

3168, 

0 221, 

0228 



0 23 7 
0238 

EQCMSK 

J04ER 

0006 

0007 

0224 

3132, 

0137, 

0195, 

0206, 

0211 , 0277, 0292, 0„306, 0317, 0341 

0 239 

COMEX 

0008 

3 253, 

0255 




u 240 

COMEXX 

flODA 






0249 

JPXERR 

OOE5 

0 2 43 





0252 

J07ER 

uQE9 

3 216 





0 2 5 4 

J08ER 

uOEB 

3153, 

0 220, 

0226 



0256 

CAOD 

QOED 

3157, 

0164, 

0173, 

0263 


0 261 

HERE 

Q0F3 

0265 





0264 

SYS 

0GF6 

3259 





0266 

SAOD 

OOFS 

0 2 64 





0 271 

ADX 

00F9 

0 0 55 





0278 

ADF 

0101 

0274 





0 280 

ADR 

0103 

0276 





0286 

BSX 

0105 

0 0 58 





0293 

BSP 

OlOD 

0289 





0295 

BSR 

OlOF 

0 291 





0299 

MOTION 

0 110 

0279, 

0 281 , 

0294 



0 30 7 

MOJO 

0118 

0 3 0 5 





0309 

MOTi 

ullA 

0 319 





0316 

M0T2 

0123 

0 314 





9317 

M0T2A 

0124 

3 313 





0 318 

MOT3 

012 5 

3 316 





0 32G 

MOTh- 

0127 

0315, 

0-331 




0 322 

REQ 

0129 

3 3 00 , 

0318, 

0323 



0327 

MOT5 

012F 

Q 3 23 





0 328 

REQCNT 

0 13 0 

0 320 , 

0 340 




0353 

COMP 

013 5 

0 330 





0 356 

COMPER 

013 8 

0 327 





0 341 

COM JPw 

0130 

0 339 






JPCHGF 


PAGE 12 


DATE: ul/27/99 


EXTERNA LS 


DEF. LINE 

NAHE 

VALUE 

REFERENCED AT 

3 j21 

JBCNCL 

00E2 

0247 


0022 

Nil NP 

Ou QC 

0 0 46 


0 0 23 

VINPV% 

0 03 6 

0 083 


0G24 

NJMLU 

0008 

0 208 


00 2 5 

ASCHEX 

01 IF 

3 12 0, 

0 312 

3 0 26 

lUP 

00 AE 

0 100, 

0 199 

0 0 2 7 

TRNVEC 

U0D9 

0079, 

0239 

0 028 

FILE2 

0047 

0 097 


0 0 29 

LOGIA 

GOOD 

3 212 


0 0 3 0 

NIB 

00 0 7 

0 0 42 


0G30 

NI8X 

003B 

0 087 


3 031 

JBPROE 

0 043 

0 0 92 


3 0 32 

MI3UF 

00 0 9 

0 0 44 



JPCHGE P^\GE 13 


w-is- A l_ 

P H A 

0 E T I 

CAL 

SORT 

0 F 

AB3LOC 

010 2 

ADF 

0 278 

ADR 

0280 

Cll 

D 17 D 

G13 

0181 

C13J 

0195 

C3 

Dll 6 

C5 

0 131 

C6 

0134 

CNF INU 

G212 

COMEX 

. 0239 

COMEXX 

Q24G 

ERR 

0132 

F2 

0 097 

FILE2 

3 028 

lUPP 

UlO 0 

J8CNCL 

Qu21 

J8PRDE 

0 0 31 

LOGIA 

0029 

L PMSK 

0 033 

LUA33R 

0232 

HDTi 

0 30 9 

MOT 2 

0316 

MOT 2 A 

0 317 

NODLC K 

0229 

NOERR 

0207 

NUM 

0180 

REaCNT 

0 32 8 

RF3A 

3 U9Q 

RSCLSK 

0227 

SETCF 

G072 

SWAP 

0 0 66 

SYS 

0 2 64 

ZERO 

0020 






DATE: 01/27/99 


S Y M B 

0 L S 





ADX 

0271 

ASCHEX 

0025 

BSF 

0293 

C13X 

0191 

C13Y 

3193 

C13Z 

0196 

C7 

0138 

C8 

0146 

C9 

0161 

C0MJP4 

0341 

COMP 

0333 

CONFER 

0336 

GOGO 

u 0 46 

GTOUT 

008 4 

HERE 

0 261 

J04ER 

023 8 

J07ER 

0252 

J08ER 

0254 

MASK 

0234 

MIB 

0050 

MIBUF 

0 03 2 ■ 

M0T3 

0318 

MOTh 

032 0 . 

MOTS 

0 32 7!' 

MUMLU 

002 4 

PROTST 

0 23 1 

PTDER 

0 220 

SAOO 

0266 

SAX 

0144 

SET 

0 053‘ 

TRNVEC 

0027 

UNITNO 

0233 

VINPV4 

0023' 


BSR 

0295 

BSX 

0286 

BUF 

0179 

C14 

0152 

C14A 

‘ 0 15 D 

C14XX 

0154 

CAOO 

0256 

CFL AF 

0103 

CHANGE 

0017 

COUNT 

0173 

EQCLAS 

0 23 6 

EDCMSK 

0237 

I 

03 0 0 

INDEX 

u u 9 8 

lUP 

0026 

JPC3 

0013 

JPXERR 

0 249 

LEVEL 

0034 

MIBX 

0G3G 

MIINP 

0 022 

MOTG 

030 7 

MOTION 

0299 

MSCLAS 

0235 

NCSY 

uG73 

QSAVE 

0101 

REENTR' 

0048 

RED 

0322 

SETO 

0 9 5b 

SET 00 

0 059 

SETl 

0070 

VLU 

010 H 

VLUFLG 

0105 

VSW 

0177 


ASCHEX 


= AGE 


1 


date: Oi/27/99 



00 0 1 





NAM 

ASCHEX 

DECK-ID M78 

MSOS 5.0 


00 0 2 



¥ 


MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 


00 0 3 





SMALL 

SYSTEMS DIVISION, LA JOLLA 

, CALIFORNIA 


0 0 0 4 



■y- 


COPYRIGHT CONTROL 

DATA CORPORATION 1976 

1. ; 

00 0 o 





ASCII 

TO HEX CONVERSION 



00 0 8 








GOIQ 




THIS 

IS A 

DECIMAL ASCII TO HEX CONVER 

SION ROUTINE 

■s_y 

0011 



itf. 

UPON 

ENTRANCE THE FOLLOWING REGISTERS 

CONTAIN. 


0012 




r 

- LOCATION OF 1ST 

CHARACTER. 



0013 




D 

= THE 

LOCATION TO 

STORE A ALPHA 

CHARACTER. 

o 

0014 




UPON 

EXIT. 




0015 




A 

- PLUS 

ONE IS ERROR CONDITION 



OG 16 





ZERO 

- MORE WORDS FOLLOWING 



0017 





MINUS - NO MORE 

FOLLOWING 


o 

0018 




a 

- HEX 

NUMBER 




0019 




I 

- NEXT 

WORD LOCATION 


0 

0o2l 




if. 3f. Sf. ^ if. if. ^ if. ^ ^ 

0 0 23 





ENT 

ASCHEX 



o 

03 2 b 

PCOGu 

QBOO 

ASCHEX 

NOP 

0 

ENTRY POINT 



00 28 

POOQl 

4 8 4F 



STQ^ 

LOCA 

LOG. OF ALPHA CHAP. 


0 0 2 9 

P00 0 2 

OAiO 



ENA 

0 



\ 

0030 

P0Q03 

68 4F 



3TA* 

TEMP 

ZERO TEMPORARY 

STORAGE 


0C31 

POO 0 -+ 

68 4F 



STA^ 

COMMA 

ZERO COMMA COUNTER. 


0 3 32 

P G 0 u 5 

6 8 4F 



STA^ 

HEXNO 

ZERO NUMERIC 

FLAG 


00 3 4 

PO G 0 6 

C522 

ASCH 

LDA- 

($22) , I 

INPUT WORD 



0Q35 

P Q 0 u 7 

0 8 22 



TRA 

Q 




0 3 36 

P0008 

FuGO 



ADQ 

=NBQ303 



o 


P00 09 

D3D3 






003 7 

PO DuA 

G14D 



, SQ2 

ERR-^-1 




03 38 

PO GOB 

0F43 



APS 

8 




0039 

POOOC 

AOOA 



ANO- 

$A 



o 

0040 

POOOO 

580F 



RTJ^ 

3JB 



ao4i 

PO GOE 

D8u5 



RAO^ 

COMMA 

INCREASE COMMA 

COUNTER. 


0042 

POOOF 

0156 



SQN 

ASCHl-^-1 




0043 

POOlO 

C522 



LDA- 

($22) , I 

WORD 


o 

0 3 4 4 

PGOll 

AOOA 



AND- 

$A 



0 3 45 

PD012 

580A 



RTJ^ 

SUB 




0 8 4 6 

P0013 

DOFF 



PAO- 

I 

INCREASE WORD LOCATION 


0047 

PQ014 

0 151 



SQN 

A3CHl-^-l 



o 

004 8 

POG 15 

18F0 



JMP^‘ 

ASCH 



0 3 5 3 

Pu 016 

01 33 

ASCHl 

SAM 

ASCH4---1 




o 


l; 


SUMMARY-11 GM78UGGG1 
M78G0GC2 
M78GG003 
M78u 0 00 4 


M78UG0Q5 

M78j 0 0 0 8 

H7800G10 
M7800311 
M7 8j 0 012 
M7800Q13 
M780 0 014 
M783 0 015 
M7800015 
M78j00ir 
M780 0 01 8 
M783 0 019 

M780a021 


M780GG23 


M 7830028 

M78Q0 028 
M7830Q29 
M78G0030 
M7800331 
M78JQ032 

M7800034 
M780 0 035 
H780QG36 

M7800037 
M7800038 
H7 80 G03 9 
M78G 0040 
M730 0041 
M7 80 G Q 42 
M7800 043 
M780 0 044 
M78J0045 
M7 80 0 0 4b 
M780 u047 
H78-3 0048 


( _l 

C' ' 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 


M780 0050 


ASCHEX 


PAGE 


date; iil/27/99 


Q0 5i 

P0Q17 

G102 


SAZ 

A3CH4-^-l 

0 0 52 

PG018 

0 AOl 

ERR 

ENA 

1 

00 5 4 

P0019 

1CE6 

ASCH2 

JMP^ 

(43CHEX) 

0 0 5 6 

POOIA 

E838 

ASCH4 

LDQ^ 

TEMP 

0 3 57 

P0018 

1CE4 


UMP"^ 

(ASCHEX) 

0 0 5 9 

PCOIC 

GBGO 

SUB 

NOP 

0 

GOoG 

PGOID 

QC2C 


ENQ 

$2C 

0 0 5 1 

POOIE 

0 8 72 


EAQ 

Q 

0 0 52 

POOIF 

015E 


SQN 

5JS2-^-l 

00 53 

POOHO 

E833 


LDQ^ 

COMMA 

0064 

P0021 

0 AGO 


ENA 

0 

0 3 55 

P0022 

01 59 


SQN 

SJBO-^^-1 

0056 

P0023 

GCFE 


ENQ 

-1 

yj 5 7 

PG024 

C722 


LDA- 

($22) , B 

0 0 5 8 

P 0 u 2 5 

AO CA 


AND- 

$A 

0 0 5 9 

P0 026 

09D3 


INA 

-$2C 

0 3 70 

P0027 

0111 


SAN 

1 

00 71 

P0Q28 

18EF 


JMP’^ 

ERR 

0 3 7 2 

P0 029 

OAGO 


ENA 

0 

0 3 73 

PQ02A 

OCOO 


ENQ 

0 

00 7 ^ 

PCC2B 

ICFO 


JMP^ 

(SUB) 

0 3 7p 

P 0 0 2 C 

G8Q2 

SU80 

SET 

Q 

0 0 7 6 

P002D 

ICEE 

SUBl 

JHP^ 

(SUB) 

00 7 8 

P002E 

EO GA 

SUB2 

LDQ- 

$A 

0 3 7 9 

PG G2F 

0 872 


EAQ 

Q 

0 3 3 0 

P003U 

0144 


SQZ 

4 

QGSl 

P0031 

P0G32 

EG 00 
0 0 20 


LDQ 

=N$20 

00 82 

P0033 

0 8 72 


EAQ 

Q 

QQS3 

P 00 34 

01 52 


SQN 

SJOS-^^-i 

0 0 8 4 

PO G 35 

0 8 04 


SET 

A 

03 3 5 

PGG35 

18F5 


JMP^ 

suei-i 

u0B7 

P0037 

OCCF 

SUB3 

ENQ 

-$3G 

003o 

P0Q38 

08 32 


AAQ 

Q 

00 89 

P0G39 

0162 


SQP 

SU34-»-l 

00 90 

P0 0 3A 

OAOl 

SERR 

ENA 

1 

0091 

P0Q3B 

18F0 


JMP^ 

SJBl-1 

0 0 93 

PG03C 

0CC5 

SUB4 

ENQ 

-$3A 

0 j 94 

P003D 

Q832 


AAQ 

Q 

0395 

P 0 u 3 E 

0179 


SQM 

3JB6-^-l 

0096 

0097 

PD03F 

E8 15 


LDQ^ 

HEXMO 

0 3 98 
D399 

POO 40 

0152 

* 

SQN 

SUB4A--’^-l 

GIOG 

QlQl 

0102 

PG041 

EC OF 

>>■ 

LDQ^^ 

(LOSA ) 


RETURN 

PICK UP NUMBER 
AND RETURN 

ENTRY POINT. 

CHECK FOR COMMA. 

YES - IS THIS FIRST CHAR. 
A EQUAL ZERO 

FIRST CHARACTER COMMA 
CHECK LAST CHAR. OF 
PREVIOUS WORD FOR COMMA. 


Q EQUALS MINUS 
RETURN 

CHECK FOR SFF 


yes a and Q MINUS 

CHECK FOR CHARACTER SMALLER 
THAN $30 

YES - ERROR - A = ONE 
RETURN 

CHECK FOR NUMERIC. 


CHECK HEXNO TO SEE IF ALPHA CHARACTER 
FOLLOWS NUMERIC CHARACTER 
Q=NON ZERO IF NUMERIC CHARACTER FIRST 
THIS IS AN ERROR 
Q=0 ALPHA CHARACTER IS FIRST 
CHECK TO SEE IF THERE WAS AN ALPHA 
CHARACTER BEFORE THIS ONE. 


MZSO 0 u5i 
M?8a0052 

M7800054 

M7S30056 

M7800057 

M780QQ59 
M78GQ050 
M7 30 G 051 
M78GG062 
M7800063 
M780Q05L 
M7S0u065 
M780006O 
M7SG0057 
M7800066 
M78G0069 
M7 80 0070 
M7800071 
M78GG 072 
M7800073 
M783 0074 
M7 8 0 0 0 7 5 
M780a 076 

M7800 078 
M780O 079 
M78Qa080 
M76U 0 081 

M7800082 
M78Q0083 
M78Q0a34 
M783 0 0 85 

M78Q 0 08 7 
M7800088 
M7803G89 
M780Q09D 
M780GU91 

M78J 0 093 
M78DQ094 
H78a0Q95 
M7800096 
M780u097 
M780 0 098 
M78Q0099 
M78Q0 100 
H7800101 
M7800102 


ASCHEX 


PAGE 


DATE: 01/27/99 


o 


01Q3 

PO U4 2 

D1 42 


SQZ 

SUB:.B-^ 

ai D4 
0105 
010 6 

P0043 

0 8 42 

SUB4A 

CLR 

Q 

010 7 

P00a4 

18D3 


JMP-^ 

ERR 

013 8 

P0045 

5C08 

SU843 

STA» 

(LOCA ) 

01G9 

P0046 

0 8 46 

SUB5 

CLR 

A » D 

QUO 

P0047 

1CD4 


JMP^ 

(SUB ) 

0112 

P0048 

A006 

SU86 

AND- 

$6 

0113 

P0049 

6808 


STA^ 

T P 

Oil*. 

PQG4A 

C8C8 


LDA^ 

TEMP 

0115 

PO 04B 

20 46 


MUI- 

$45 

Q116 

PQOhC 

8805 


AOD^ 

TP 

0117 

PQ04D 

D8Q7 


RAO^ 

HEXND 

Q 1 1 6 

POOaE 

6 8 0 •+ 


STA» 

TEMP 

0119 

P0C4F 

18F6 


JMP^ 

SUBS 

0121 

pgo5o 

0 0 00 

LOCA 

, NUM 

$0 0 0 0 

012 2 

P 0 u 5 1 

0 0 0 0 

TP 

NUM 

$0000, 

0123 

PG052 

00 00 

TEMP 

NUM 

$0 0 0 0 

0124 

POOS 3 

oooc 

COMMA 

NUM 

$0 00 0 

0125 

G126 

PC 054 

0 0 00 

hexnd 

NUM 

END 

$0 0 0 0 

P3M = 

0 0 5 5 

( 

65 ) C 

OM = 0000 ( 


Q=0 THIS IS FIRST ALPHA CHARACTER 
AN ERROR CONDITION HAS OCCURRED 
2 ALPHA CHARACTERS FOUND BETWEEN DELIMETtRS 
OR AN ALPHA CHAR. FOLLOWS A NUMERIC CHAR. 
RETURN WITH AN ERROR INDICATION 
STORE CHARACTER 

RETURN 


M78Q01Q3 
M78Q010A 
M783C1G5 
M78u 010 6 
M7800107 
M783Q108 
M780Q109 
M783 0110 


STORE 4 BIT NUMERIC 


TEN 


M78DG112 
M78QG113 
M780Q114 
M760 Dll 5 
M78a0116 
M780ull7 
M78Q0118 
M78] 0119 


M7800121 
M78G0122 
M7800123 
M78j 0124 
M7800125 
M780 0126 


DAT = 0000 ( G) 


O 


f"' 


Q 


O 


o 


o 

ro 


O 


o 

c; 

o 


Cj 


c 


u 


ASCHEX 


= A5E 


4 


DATE; 01/27/99 


{-) EQUIVALENCES 

Q DEF.LINE MAME VALUE RE-EPsENCED AT LINE NUMBER 

0000 I OOFF (000255) 00 Ab 

o 

o 


o 

o 

o 

'D 

o 

o 

o 

n 


O 

O 


O 

O 

(D 

O 

O 

O 

O 

O 

O 


ASCHEX 


^AGE 


date: Qi/27/99 





c 

3 Y M BO 

L S 


o 

OEF . LINE 

name 

ADDRESS 

0Q23 

ASCHEX 

0 0 0 0 


0 0 3 <+ 

ASCH 

00 0 6 


0 050 

ASCHl 

0016 


0 052 

ERR 

0018 


0 u 5 L 

ASC H2 

0019 


0 0 5 6 

ASCHL 

OOIA 

o 

3 0 59 

SUB 

001 c 

0 U 7 5 

SUBO 

0Q2C 


0 0 7 6 

SUBl 

0 0 2D 


0 0 78 

SUB2 

0 0 2E 


0u87 

SUB3 

00 3 7 

0 G9G 

3ERR 

003A 


GG93 

SUBL 

0 03C 


01 OR 

SUBLA 

0QL3 


0108 

SUBhB 

00L5 


0109 

SU85 

O0L6 


0112 

5UB6 

0QL8 


0121 

LOCA 

0050 

o 

3 122 

TP 

0051 

0123 

TEMP 

0052 


0124 

COMMA 

0053 


G125 

HEXNO 

005 4 




O 


o 



REFERENCED AT LINE NUMBER 


0023, 
3 0 48 

0 05 4, 

3 057 

0 0 42 , 

Q 047 


0037 , 

0,071, 

0107 

Q Q 5 0 , 

0G51 


3 0 40 , 
0 065 

0 04 5, 

0 0 7 H , 

0 G 85 , 
3 0 62 
0 083 

0 089 
0 098 
0103 
0113 
0 0 95 

0Q91 


0 0 28 , 

0 100 , 

0108 

3 113, 

0116 


0030, 

0,056, 

0 114, 

U 0 3 1 , 

0 041, 

0 063 

0 0 32 , 

0 G96, 

0 117 


00 76, 


0118 


0110 


O 

o 

o 

r) 


o 


o 

o 

o 

o 

o 

C-' 

C) 

o 

o 

o 

o 

o 

o 

o 


ASCHEX 


PAGE 


date: 01/27/99 


o 


1\ |_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

lf.lf.Sf. 










A33H 

LOGA 

sj34e 

003 4 
0121 
0108 

ASCHl 
S ERR 
SUBS 

0 050 
0 0 90 
3109 

ASCH2 

SUB 

SUB6 

0 054 
0 059 
0 112 

ASCH4 

SUBC 

TEHP 

0055 
0 0 7 5 
0123 

ASCHEX 

SUBl 

TP 

0023 

u076 

0122 

CCMHA 

SUB2 

0124 

0078 

ERR 

SUB3 

0052 
0 0 87 

HEXNO 

SUB4 

012 5 
0 093 

I 

SUB4A 

0 u 0 G 
0104 


T13 


=>AGE 


1 


DATE! 01/27/99 


auol 

0G02 
02 03 
00 0 4 


V- 

* 


NAM T13 DECK-IO M79 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIG4T CONTROL DATA CORPORATION 1976 


SUMMARY-110M790D0C1 
M7900u02 
H790 0 00 3 
M79u 0 0 0 4 


00 0 6 
00 0 8 


^ GET-FILE REQUEST PROCESSOR 


M79Q 0 006 
M790 0 00 8 


0 010 
0211 
0312 
0C13 

0014 

0015 

0016 
0 317 
0213 
0019 
0 0 2 0 
0 3 21 
0022 
0023 
0 3 2 4 
0025 
0 2 2 6 
002 7 
D028 
0 3 29 


■V 

V- 

V- 


THIS IS THE GET--ILE ROUTINE 
THIS IS THE GET-FILE REQUEST PROCESSOR 
THIS REQUEST IS USED TO ACCESS PERMANENT FILES 
WHICH ARE LOCATED IN THE PROGRAM LIBRARY. 
GET-FILE IS CHECKED FOR BEING BUSY, IF SO, THE 
REQUEST IS THREAD AND A RETURN IS MADE TO THE 
A REGISTER NEGATIVE IF CALL IS INDIRECT. 



OISPATCHFR. 


UPON 

ENTRANCE THE FOLLOWI 


I 

ADDRESS 0" VOLATILE 


Q 

LOCATION OF GET-FILE 



0 

- Q REGISTER 



1 

- A REGISTER 



2 

- I REGISTER 



3 

- RETURN LOCATION 



4 

- UNUSED 



5 

- LOG. OF REQUEST 



6 

- UNUSED 

if. ^ 


7 

- UNUSED 



8 

- INDIRECT REQ : 


MINUS WHEN INDIRECT 


M790 0 010 
M7900G11 
M79Q 0 Q12 
M7900013 
M790 0 014 
M7930015 
M793 0015 
M79D 0017 
M790 0018 
M7900019 
M79Q 0020 
M790Q021 
M793G 022 
M7900025 
M790 2 024 
M792 0 025 
_ M7900026 
M7900027 
M7900028 
^^MSOS 4.0M7900029 


02 3 1 




M790aG31 


00 53 


ENT 

0 0 3 5 


EXT 

0 0 3 6 


EXT 

0337 


EXT 

0 3 3 8 


EXT 

00 39 


EXT 

0 0 4 3 

D OBO 

EQU 

0 J41 

0012 
0 022 
0 0F6 

EQU 

00 4 2 

0 0 23 

EQU 

00 43 

OU 02 

EQU 

00 4 4 

9 0 BE 

EQU 

0 3 4 2 

0 0 09 
0 0 EA 

EQU 

0347 POOOO 

C8FE 

EREQ5T NUM 


T13 

SCHERR 
SWAPCK 
LOCF, LPTRS 
FILE2,MIB 
COMPV^ 

SABS ($BD) 

NZERO (S12) ,ZERO ($22) , BO TOP ($Fo) 


ONEBIT($23) 

LPM5K (2 ) 

CABS ($BE) 

REQXT C$B9) ,DISP ($EA) 


$C5FE 


M790 0033 

M790 0 035 
M790O 035 
M7900037 
M792 0 038 
^^MSOS 4. 0M79u 0 039 
M790 0040 
^^MSOS H.aM79G004l 


M7900042 
^^MSOS 4.0H7900043 
M 7900044 
M79j 0 0 45 


GET LOCATION OF T13 


M79000t7 


T13 


PAGE 


2 


DATEI 01/27/99 


0 2 48 

Pu Ou 1 
PGOG 2 

1800 

012D 


JMP 

T13SUP 

0^49 

PGCC3 
PQOO H 

h8G 0 
0 092 

T13 

STQ 

T13LOC 

0 2 5 0 

P 0 0 0 5 

C108 


LDA- 

3,1 

0 u 5 1 

P 0 0 G b 

0 133 


SAM 

GFA 

0 2 52 

POO u7 

C1G3 


LOA- 

3,1 

0 2 53 

PQQOo 

Q9CA 


INA 

10 

0 0 5 -r 

P00 09 

6103 


STA- 

3,1 

0 2 5 5 

P U 0 C A 

E1G5 

GFA 

LDQ- 

5,1 

0 0 5 6 

PDOO B 

C2G2 


LDA- 

2,Q 

0 0 5 7 

POOOC 

G1Q2 


SAZ 

GFB-^-1 

0 3 5 8 

DOGGO 
P 0 0 Q E 

1400 X 
7FFF X 


JMP 

SCHERR 

0 3 5 0 

PDOOF 

POOlO 

C800 
0 0 87 

GFB 

LOA 

GFBJSY 

0051 

POOll 

0113 


SAN 

GFBl-'^-l 

0 2 5 2 

PQG12 

0 804 


SET 

A 

0 0 5 3 

P0013 

6202 


ST A- 

2,Q 

0 0 5 H 

PflCl-T 

1816 


JMP- 

GF 

0 2 5 5 

PGG15 

u 8 4 4 

GFBl 

SET 

A 

02 57 

Pu 016 

0 5 0 0 


IIN 

0 

0 3 0 8 
0 05 9 

P0017 

6202 

Af- 

STA- 

2 , Q 

0 2 / 2 

PflOlS 

P0019 

C82 0 
0 0 7F 


LDA 

GFTHED 

0 2 7 1 

POOIA 

D9G0 


INA 

0 

0 0 7 2 

POCIR 

0114 


SAN 

GFB^ 

0 0 7 3 

POOIC 

POOlO 

480 0 
0 0 78 


STQ 

GFTHED 

GO 7 4 

P 0 0 1 L 

040(2 

GFB2 

EIN 

0 

0 0 7 5 

POfllF 

14B9 

GFB3 

JMP- 

( REQXT) 

02 7 7 

P0Q20 

E8 78 

GFB4 

LOQ’^- 

GFTHED 

0 2 7 3 

P0 02 1 

0 814 

GF85 

TRQ 

A 

0 0 79 

P0Q22 

E2 02 


LDQ- 

2 , Q 

Ou 8 0 

P0G23 

JDOO 


INQ 

0 

00 81 

PQ 024 

0 1 41 


SQZ 

GFBo 

02 52 

P0025 

18FO 


JHP^ 

GFB5 

02 3 - 

PC 026 

0822 

GFB6 

TRA 

Q 

0 0 3 5 
0 3 3 o 

P0027 

C105 


LDA- 

5,1 

0Q3 T 

POO 28 

6202 


STA- 

2 , Q 

0 0 8 8 

P0029 

18F4 


jHpv 

GFB2 

0090 

P0Q2A 

486D 

GF 

STQ- 

GFBU3Y 

00 91 

PQQ23 
P0 0 2C 

COFF 


COA- 

I 

0092 

68 75 


STAL 

SAVI 

0u93 

P0020 

40FF 


STQ- 

I 


GO SETUP INITIAL PARAMETERS 


M79iJ0G48 


•>^MSOS 4.0M79GOG49 


INCREASE RETURN ADDRESS 
BY TEN. 

CHECK IF REQUEST ALREADY 
THREADED. , 

A=Q REQUEST NOT THREADED 
REQUEST ALREADY THREADED 


-^MSOS 4.uM790uu5'j 
»^MSOS 4.uM7900u5l 
M79D 0 0 52 
M79e0053 
M79G 0 05‘+ 
M790 0 055 
M790 0 056 
H7900057 

ERROR M79aOD58 


CHECK IF GETFILE BUSY 


»^MSOS 4.0H790ua60 


SET THREAD LOCATION NEGATIVE. 


M790D051 

M79uQ052 

M7900063 

M7900064 


GET FILE BUSY. 

SET THREAD LOG. NEGATIVE 
2 CARDS DELETED 


M790 0 066 
M79 0 u 05 7 
M790 0056 
H790 0 069 
^^MSOS 4.GM79Q0G70 


M7QtJ 0 071 

CHECK IF .NY REQUESTS THREADED ,.05/1^71 


H79G0074 

M79GQQ75 


CHECK EACH REQUEST THREAD 
FOR A NEGATIVE ZERO 


M79D0077 
M79Q 0 078 
M790 0 079 
M793 0 J80 
M7900081 
M790Q 082 


STORE REQUEST LOC. IN 
1 CARD DELETED 
THREAD OF LAST REQUEST 


M7900Q84 
M79 j 0 083 
M79G0QS5 
H790 0087 
M7900388 


LOC. OF REQUEST 
SAVE I REGISTER 

STORE REQUEST LOC. IN I REG 


M790Q 090 
M790G391 
M7900092 
M79D0093 





T13 



PAGE 3 

DATE: 01/27/99 



(■" . 
Lj” 


009 4 

P002E 

E522 

UNPR9T 

LDQ- 

(ZERO) ,I 


^»MSOS 

*4. aM79jQ094 


Q3 95 

°002F 

C107 


LDA- 

7tl 


^**^MSOS 

4. OH 7 900095 



0 0 9 6 

PG 0 3 0 

QFAi 


QLS 

1 

IS D BIT SET 

^^HSOS 

4. 0M790 0 096 

O 


00 9 7 

P0031 

0161 


SQP 

SAM 

UNI 

NO 

»»MSOS 

4. 0M7930097 


0C98 

PO U32 

0132 


UNIA 

D IS SET AND I IS NEGATIVE 

^^MSOS 

4.0H79GO 098 



00 99 

P0033 

E109 

UNI 

LDQ- 

9»I 

NEGATIVE SECTOR 

«^'^MSOS 

4. QM79C 0 099 



OiOO 

P0 03-+ 

G 161 


SQP 

1 



M79Q0ia0 

■ O 


0 1 0 1 

PO 0 3 5 

1847 

UNIA 

JMP- 

ERRGO 

YES 

»»MSOS 

4.0M790G101 


OIOZ 

PD 036 

0834 


AAQ 

A 

I AND SECTOR ARE ZERO -- ERROR 

»-HSOS 

4. 0M790lji02 



QiO 3 

PG037 

DICE 


3AZ 

UN2 

YES 

^»MSOS 

4. 0M79Q01Q3 



010*+ 

P0038 

C 1 0 6 


LDA- 

6,1 


^•^MSOS 

4. i3M790ai04 

O 


010 5 

P0039 

DIOD 


SAZ 

UN3 

W2 = Q 

-'^MSOS 

4. 0M79001G 5 


010 6 




THIS 

COMPARE ALLOWS FOR FILES LARGER THAN 32K 

^^iMSOS 

*r. GM790 0 10 6 



010 7 

P003A 

El 04 


LDQ- 

4,1 

IF W2 LESS THAN Wl 

^^MSOS 

4. 0M790Q10 7 


o 

010 8 

P003B 

5C30 


RTJ’^ 

( COMPV) 


^^MSOS 

4. GH79C0108 

O 

0109 

P0 03C 

G102 


SAZ 

UNIB 

SKIP IF Wl. EQ. W2 (OK) 


M7900109 


Oli'j 

PO 03D 

0 90 0 


INA 

0 

TEST FOR SFFFF 


M7900110 



fllll 

P003F 

0107 


SAZ 

UN2 

SKIP IF W2.LT.W1 (ERROR) 


M79G0111 



0112 

P00 3F 

68 4C 

UNIB 

STA^ 

NSl 

WOROS-i TO READ 


M7900112 

■ 0 


0113 

P0040 

8105 


ADD- 

5,1 

DOES BUFFER END IN PROTECTED CORE 

--MSOS 

4. GM79D0113 


011*+ 

P0041 

E0F6 


LDQ- 

80T0P 


»^MSOS 

4. GM793011 4 



Glib 

P0042 

5C36 


RTJ^ 

(COMPV) 


’^^MSOS 

4. OH7900 11 5 


r' *1 

0116 

POO 43 

0102 


SAZ 

UN2 

YES 

^^MSOS 

4. 0M790Q116 

o 


0117 

PQG44 

09G0 


INA 

0 


^^MSOS 

4. GH79UU117 


0118 

P0045 

0101 


SAZ 

UN3 

NO 

*»MSOS 

4. 0H7900118 



0119 

PO 046 

1836 

UN2 

JMP* 

ERRGO 


^•^MSOS 

4.0M79G0119 


f'^\ 

012C 

P0047 

ClQl 

UN3 

LDA- 

1,1 



M 79 00 120 

■ o 


0121 

P0Q48 

6 8 5 7 


STA^^ 

C 

HOVE COMPLETION ADDRESS 


M790Q121 


0122 

P0049 

C105 


LDA- 

5,1 

AND STARTING ADDRESS INTO 


M79DG122 



0123 

POO + A 

6856 


STA^ 

S 

T13 ROUTINE 


H7900123 



012*+ 

POQ^tO 

C104 

GFM 

LDA- 

4,1 

SAVE Wl 


M79G0124 

I-'A 


012 5 

P004C 

68 50 


STA» 

wi 



M7900125 



012 6 

^0040 

C106 


LDA- 

3,1 

SAVE W2 


M79j0126 



ei27 

P0Q4E 

68 4F 


STA^ 

W2 



M790Q127 


•'D 

0128 

P u u 4F 

C109 


LDA- 

9,1 

CHECK IF SECTOR NO IS SPECIFIED 


M793 0128 

■ o 

0129 

POG50 

u 1 03 


3AZ 

GT4-»-l 

A=0 NO SECTOR SPECIFIED 


M7900129 


0130 

PQGbl 

C84C 


LDA-*^ 

W2 

SECTOR SPECIFIED CHECK IF W2 


M790 0130 



0131 

P0052 

0101 


SAZ 

GT4 

TREAT AS IF ALL PARAM = 0 

»^MSOS 4. 

i»*M790ai31 


O 

0132 






MANY WORDS TO READ 

^^MSOS 

4. GM79G0132 

■ C) 

0133 

P0053 

1821 

GT4A 

JMP^ 

GT93 

GET THE FILE 

^^t-isos 

4. 0M793Q133 


0134 

P0Q54 

C107 

GT4 

LDA- 

7,1 



M79GQ134 



0135 

PO 055 

0135 


SAM 

GT5 

SKIP IF INDIRECT 


H79Q0135 



013o 

P0056 

810A 


ADD- 

10,1 

ADO ADDRESS OF PARAfMETER LIST 


M79JQ136 

o 


0137 

P0057 

E4FF 


LDQ- 

(I) 



M7900137 


0133 

P0058 

OFAl 


QLS 

1 



M790 3 138 



0139 

PO 059 

0172 


SQK 

GT6 

SKIP IF D BIT SET, USE 16 SIT ARITH 

■ H790Q139 


o 

0 1 -»■ G 

P005A 

8032 


ADD- 

ONEBIT+15 

ELSE 15 BIT ARITH 


M793 0 l40 

o 

0141 

P 0 u5 B 

A Oil 

GT5 

AND- 

LPMSK+15 



M7900141 


Ql + 2 

PO 05C 

0822 

GT6 

TRA 

Q 



’ M7900142 



0 1 -+3 

POO 50 

C622 

GT6A 

LDA- 

(ZERO) ,Q 


’^^MSOS 

-.UM7900143 


o 

014 4 

P0 05E 

68 3B 


STA^ 

NAME 



H79001+4 

r~'i 

0145 

P005F 

C201 


LDA- 

ItQ 



M7900145 

L.' 


0146 

P0060 

683A 


STA-^ 

NAME-H 



M790Q14O 


o 










; O 

r‘^ 













Ti3 


PAGE 4 


date: 01/27/99 


0147 

P0061 

C2G2 



LDA- 

2, a 

0148 

P0062 

6839 



STA- 

NAME+2 

0149 

P0063 

5800 



RTJ 

SPQ 


P u 0 64 

0 0 8A 





015 0 

P0065 

E837 



LOQ^ 

Wi 

0151 

P0066 

C838 



lda» 

NS 

u 1 5 2 

P0U67 

0153 



SQN 

G T 9 1 

u L 5 3 

P0068 

G9F£ 



INA 

-1 

015 4 

PD069 

5822 



STA^ 

NSI 

0155 

PQ06A 

1808 



JMP- 

GTA 

0155 

P0 06B 

E832 


GT91 

LOQ^ 

W2 

015 7 

P006C 

0153 



SQN 

GT9A 

0153 




* 



015 9 

POQoD 

982F 



SUB- 

Wl 

016C 

P006E 

681D 



STA^ 

NSI 

0161 

P006F 

1806 



JMP^ 

GTA 

0152 

P0070 

0901 


GT9A 

INA 

1 

0163 

PG071 

5C07 



RTJ^ 

(COMPV) 

u L 6 4- 

P0 07 2 

0900 



INA 

0 

0165 

P0Q73 

0108 



SAZ 

ERRGO 

0156 

PD07^ 

C817 


GT9B 

LDA^ 

NSI 

0167 

P 0075 

882B 


GTA 

ADD* 

S 

0168 

P0076 

E0F6 



LDQ- 

$F6 

0159 

P00 77 

540 0 

X 


RTJ 

C0MPV4 


P0073 

7FFF 

X 




017 0 


u 0 78 

p 


EQU 

COMPV (^-1) 

oin 

POO 79 

0 102 



SAZ 

ERRGO 

0172 

P007A 

0900 



INA 

0 

0173 

P007B 

0 101 



SAZ 

GTIO 

017-+ 

P007C 

18 55 


ERRG3 

JHP«- 

ERRS 

017 5 

P0C7D 

C819 


GTIG 

LOA^ 

T13L0G 

0176 

P0Q7E 

30 00 



ADD 

=XC0MP1-T13 


PO 07F 

C0B2 





0177 

P008u 

6 8 0 8 



STA^ 

r D 

' V 

0178 

P00 81 

D80A 



RAO^ 

NSI 

0179 

P0Q82 

G81E 



LDA^‘ 

S 

0180 

P0G83 

6809 



STA^ 

SA 

0181 

POO 8 4 

C109 



LDA- 

9*1 

C182 

PQ085 

5810 



f^TJ4 

WC3NV 

0183 

P00 85 

54p4 



RTJ- 

{$P4 ) 

Ills- 

P U 0 8 7 

42 0 2 



NUM 

S 42 Q 2 

0185 

PO Q83 

3 0 0 0 


CR 

NUM 

0 ,0 ,$8C2 


P0 089 

0 0 0 0 






PGU8A 

08C2 





013 6 

P008B 

00 GO 


NSi 

HUM 

0 

013 7 

P008C 

0 0 00 


SA 

NUM 

a 

0188 

PO 080 

0 0 u 0 


SN 

NUM 

0 , 0 


P0 08E 

00 00 





0189 

P00 8F 

C812 



LDA^^ 

SAVI 

019C 

PQ u9 ti 

3111 



SAN 

1 

0191 

P0Q91 

14EA 



JMP- 

{ DISP ) 

0192 

P0092 

60FF 



STA- 

I 

ul93 

P0 093 

0 AG 0 



ENA 

0 


GO SEARCH PROGRAM LIBRARY FOR NAME 


NUMBER OF WORDS IN FILE 
PARTAIL READ 

READ ENTIRE FILE 


PARTAIL READ 
1 CARO DELETED 
STARTING WITH Wi 


IF W2 EXCEEDS NS ERROR 


ERROR 

CHECK TO BE SURE ENDING 
ADDRESS IS IN UNPROTECTED CORE 


ADDRESS IS O.K. 

GO TO OUTPUT ERROR MESSAGE 
GET ADDRESS OF T13 
FORM COMPLETION ADDRESS 


SET COMPLETION ADDRESS 
STARTING ADDRESS 


CONVERT TO WORD ADDRESS 


’^^MSOS 

4 • 

^^HSOS 

4* 

»«MSOS 

4 « 

»^MSOS 

4 • 

^^MSOS 

4. 

^^MSOS 

.4 • 

»^MSOS 

4, 

^=^MSOS 

4 * 

’^^MSOS 

4 • 

-■'f’MSOS 

-f » 

-^MSOS 

4. 

-^MSOS 

4 • 

^^^MSOS 

4 • 

^-MSOS 

4 t 

^^HSOS 

4 < 

^‘^MSOS 

H- * 

^^MSOS 

4 . 

»^HSOS 

4 . 

->^MSOS 

*+ • 

»»MSOS 

• 

»^HSOS 

4. 

^^MSOS 

4* 

»^MSOS 

4. 

^^MSOS 

~t m 

4^MSOS 

H- • 

^^-MSOS 

4 • 

♦^MSOS 

4 I 


NUMBER OF WORDS 
STARTING ADDRESS 
SECTOR NUMBER 


'^^MSOS 4. 
’^’■MSOS 4. 
^^MSOS 4. 


CHECK FOR NOT BEING THREAD 

REQUEST 

NO 

YES 


M79j0147 
M7900148 
M79I Q149 

DM7900150 
0M7900151 
0M790Q 152 
QM7930153 
0M7900154 
OM7900155 
GM7900156 
GM793Q157 
M790G156 
0M79UQ159 
UM79Q 0150 
uM7gOOi61 
0M79QC 16 2 
uM79u01o3 
OM790Q164 
SM79Dul65 
uM 790 0 16 6 
0M790Q167 
0M79Q01&8 
0M790Q169 

OM790O170 
0M79Q0171 
0H7900172 
C.M79Q0173 
&M79Q0174 
H790 0175 
M7900i76 

M7900 177 
GM7900178 
M79QQ179 
M79J u 180 
M7g0Q181 
M7930182 
GM790 0133 
M790 0184 
3H7900185 


0M79G0186 
GM79G 01 37 
0M79aQ138 

M790Q189 
M790 0 190 
M7900191 
M7900 192 
M790 0193 




T13 
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019- 

P0G9h 

bSOD 


3TA^ 

SA\/r 

SAVI = 0 

M79G 0194 

0195 

P0095 

14B9 


JMP- 

(REQXT) 


M793 0195 

0197 




^ ^ -V- -V- 



M7900197 

0199 



^ COnISTANTS 



M79G 0199 

020 0 

P0 096 

7FFF 

T13 LOG 

NUN 

S7FFF 

ABSOLUTE LOG. OF GET-FILE. 

M7 90 0 20 G 

020 1 

P0097 

OOiiO 

GFBU5 Y 

NUM 

,'S u u j 0 

GET-FILE BUSY SWITCH, POINTER 

M7 9QG2Q1 

020 2 






TO LOG. OF REQ. PARAMETER 

M790G202 

0203 






LIST. 

M79i3 0 20 3 

020 4 

P0098 

FFFF 

GFTHED 

NUM 

$FFFF 

GETFILE THREAD POINTER 

S^HSOS 4.0M7900294 

0 2 D 5 

Pu 099 

0 0 0 0 

NAME 

NUM 

$0 0 0 0 

FILE NAME 

M79Q0205 

0206 

PQflgA 

0 0 0 0 


NUH 

$ 00 0 0 


‘ ' M7900206 

0 2 0 7 

PO 09B 

GOOD 


NUM 

$ 0 0 0 0 


M7900207 

020 8 

P009C 

13 0 0 0 

W1 

NUM 

0 

FIRST WORD OF FILE 

M79G0208 

0209 

P009D 

0 0 00 

W2 

NUM 

0 

LAST WORD OF FILE 

M79G0209 

0210 

PQ 09E 

00 0 0 

NS 

NUH 

$00 0 0 

NUMBER OF SECTORS IN FILE. 

M790021U 

0211 

PD09F 

7FFF 

C 

NUM 

S7FFF 

COMPLETION ADDRESS. 

M79G02ii 

0212 

PQOAC 

0 Q QO 

S 

NUH 

$000 0 

STARTING ADDRESS OF BLOCK INTO 

M7900212 

0213 



>/■ 



WHICH THE FILE OR PORTION OF 

M7900213 

u21h 



* 



FILE IS TO BE TRANSFERED. 

M790Q214 

0215 

PG QAl 

0 0 0 0 

SAVI 

NUM 

$ u 3 -J 0 

SAVE I REGISTER. 

H79uu215 

0217 




M790 0 217 


J22 0 



■V- 

CONVERSION ROUTINE 

FOR SECTOR TO WORD 

ADDRESS 


M790 0 22 0 

0222 

P00A2 

OBOO 

WCONV 

NOP 

0 



+ ’fMSOS 

4. OM7900222 

0 22 3 

P00A3 

282C 


HUI’^ 

N I N t S 



^^MSOS 

4,C'M7900223 

0224 

PO OAL 

QFEl 


LLS 

i 



’■^MSOS 

4. 0M7900224 

0225 

POO A5 

Q F41 


ARS 

1 



^^^MSOS 

4. 0M79j 0225 

0226 

P00A6 

AOll 


AND- 

$11 

7FFF 


’^^MSOS 

4. 0M7900226 

0 227 

P00A7 

68E6 


STA^ 

SNf 1 

LSB 


-•^MSOS 

4. UM7900227 

0228 

POO A8 

C8F3 


LDA^ 

W1 



^^MSOS 

4. CM79'J 0223 

0229 

PG0A9 

0109 


SAZ 

OUT 



«-^MSO.S 

4. GM79u0229 

023 u 

POOAA 

0122 


SAP 

WCONVl 

IS W1 .GT. 32K 



M790 0230 

0231 

PO UAO 

uDOl 


INQ 

1 

YES, INCREASE MSB 

OF WORD ADDRESS 


M79Q0231 

02 32 

POO AC 

AOll 


ANG- 

$11 

SAVE ONLY LOWER 15 

BITS 


M79Q0232 

0233 

PDQAO 

09FE 

WCONVl 

INA 

-1 




H79C0233 

02 3 4 

PO OAE 

86DF 


AOD^ 

SN+1 



^■^MSOS 

4. UM7900234 

0235 

PGOAF 

0122 


SAP 

2 



^^HSOS 

4. 0M7900235 

0236 

POOBO 

ODDI 


INQ 

1 



’^^MSOS- 

4.0M79Q0236 

023 7 

PQOBl 

AOll 


ANO- 

$11 



^^^HSOS 

4. 0M7900237 

0238 

P0GB2 

6 8 DB 


STA^ 

SN+1 

LSB 


s^^MSOS 

'4.:OM7900238 

0239 

P00B3 

4809 

OUT 

STQ^ 

SN 

MSB 


»»MSOS 

4.'OM7900239 

Q24G 

PflGB4 

ICED 


JMP^ 

(WCONV) 



^^MSOS 

4. 3M790024U 

024? 



-if 

DISK 

I/O COMPLETION 

1 ROUTINE 



M79'3 0242 


o 


o 


V..' 



o 


o 

o 

o 


o 


o 


o 


o 

o 


o 


c 
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D 

date: 01/27/99 




C- 

r 


0245 

P0u85 

E8E1 

COMF1 

LDQ^ GF3USY 


CLEAR THREAD 

M7900245 





02^4 

POOB6 

0 ADO 


ENA 0 



M79 j 0244 




o 

G245 

P00B7 

6202 


STA- 2,0 
LDA- {§22), Q 



M79G 0 245 



O 

0246 

P0OB8 

C522 




M7900246 




0 24 7 

P00B9 

80 21 


ADD- $21 



M793 0 247 





Q24b 

PflOBA 

6622 


STA- ($22) ,0 



M7900248 




o 

0249 

PO Q3B 

0171 


SQM 1 



M79QG249 



• o 

0250 

POOBC 

FO 21 


ADD- $21 



■ M79J0250 




0251 

POOBD 

48 0 3 


STQ-'^ C0MP4 



M79DG 251 





0252 

PQ QBE 

OC 00 


ENQ 0 



H790 0252 





0255 

P0 0 8F 

54F4 


RTJ- (SF4) 


SCHEDULE COMPLETION ADDRESS 

M790 0253 





Q25-+ 

PQOCU 

fl OGO 

C0MP4 

MUM $00 GO 



H790 0254 



■s„-- 


0255 

POuCl 

0 SCO 


IIN 0 



M793 0255 





025b 

P00G2 

C8D5 


LDA^ GFTHEO 


CHECK THREAD TO SEE IF ANY 

M790 Q25d 





025 7 

P00C3 

0900 


INA 0 



M7900257 



o 


0253 

POOC4 

0113 


SAN C0MP5 


REQUESTS ARE WAITING 

M790 0258 




0259 

POOC5 

58D1 


STA'^ GFBU3Y 


M7900259 





025 0 

PQ0C6 

0 40 0 


EIN 0 



M79D025Q 





0251 

POOC7 

1 4EA 


JMP- (DISP) 



M79D 0251 



/■"'I 


0252 

P0QC8 

66 CE 

COMPS 

STA^ GFBJ3Y 


REQUEST WAITING SET, GTFILE BUSY 

M793 0252 





0253 

P0 0C9 

60FF 


STA- I 



M79G 0263 





025-+ 

POOCA 

Cl 02 


LDA- 2,1 


THREAD LOG. POINTER TO 

M79G0264 





02 5 5 

PflOGB 

68CC 


STA^ GFTHEO 


NEXT REQUEST. 

M79002&5 



■ o 


0 2 5 6 

PO OCC 

0400 


EIN 0 


GO PERFORM THE NEW REQUEST 

H79Q 0256 




025 7 

POOCD 

1800 


JMP UNPROT 


^^MSOS 

4. 0M793 0267 






PfiOCE 

FF5F 









'kJ 

0 26S 

PQ OCF 

0 0 60 

NINES 

NUM 95 


NO. OF WORDS IN SECTOR 

M793 3 258 



■ o 

0259 

PO OD u 

GOOD 

SAVII 

HUM $0030 



M7930269 




0271 




THE FOLLOWING 

ROUTINE PROCESSES ERRORS 

M79Q 0271 




o 

0272 



■V 

IT SCHEDULES 

LOCF 

IN PROTECT FOR THE 

M79QG272 




0273 




ERROR MESSAGE 

TO 

BE OUTPUT. 

M7900273 



V.-' 


0274 

POO 01 

E8 C5 

ERRC 

LOQ^ GF3USY 


GET LOCATION OF REQUEST 

M793 0 274 





0275 

POOD2 

C4 0 0 

X 

LDA LPTRS 


^^HSOS 

4. 0M79G0275 






P00D3 

7FFF 

X 




4. 0M79Q0276 



; 0 

*'4.-' 

0276 

POD04 

68 03 


ERRCE + 1 


^^HSOS 




02 7 7 

P0GD5 

C2GA 


LDA- 10, Q 


»*MSOS 

■r. 0H79GQ277 





0278 

POOOq 

6400 

EPRCE 

STA+ 0 


^^■^MSOS 

4. 0M79G 0278 




o 


PGCD7 

0 0 00 





M7900279 



■ O 

0279 

P0CD6 

G844 


CLR A 






028 0 

P00D9 

G 500 


IIN 0 



M793 0 280 





023 1 

POODA 

5202 


STA- 2,Q 


CLEAR THREAD - PROTECT PROG . 

M79UQ281 




o 

023 2 

PGGDB 

ODFE 


INQ -1 



M7900282 



■ o 

0283 

POODC 

6622 


STA- ($22), Q 


CLEAR WORD PROCEEDING REQUEST 

M79Q0285 




0284 

POODO 

08 04 


SET A 



M7900234 





0 285 

POOOE 

68 B9 


STA^ GFTHED 


SET THREAD POINTER TO $FFFF 

M79Q 0235 




o 

023 6 

POGDF 

C8C1 


LOA^ SAVI 



M790 0286 



o 

0287 

PGOEO 

0102 


SAZ ERRD-^-1 



M79G0287 




0288 

POuEl 

60FF 


STA- I 



M79Q 0288 





0289 

POOE? 

54 BA 


RTJ- ($BA) 


RELEASE VOLATILE 

M790 0 289 



. o 

o 

0291 

P00E3 

0 4 0 0 

ERRD 

EIN 0 



.9790 0 291 




0292 

P00E4 

CCC9 


LDA^ (F) 



H7900292 




o o 











o 

o 





T13 
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o 

0293 

P00E5 

68 06 



STA^ 

ERRl 


029 4 

P00E6 

54Q0 

X 


RTJ 

SWAPCK 

Q 


P0QE7 

7FFF 

X 





0295 

PG DE8 

QC 02 



ENQ 

2 


0 296 

P00E9 

5 4 F4 



RTJ- 

{ SF4) 


029 7 

POuEA 

1201 



NUM 

$1201 

o 

0 29 8 

PO OEB 

Ou 0 0 


ERRl 

ADC 

$00 0 0 

0299 

POOEC 

14EA 



JMP- 

(DI3P) 


030 0 

POOED 

7FFF 

X 

F 

ADC 

LOOP 

C) 

0 3 0 2 

POOEE 

OBGG 


SPD 

NOP 

0 

0303 

POOEF 

GOFF 



LDA- 

I 


030 4 

POOFu 

b8DF 



STA^ 

SAVII 


030 5 

PQOFl 

EO C4 



LDQ- 

$C4 


0 3 0 o 

P0UF2 

0 1 51 


SPDA 

SQN 

SPOB 


030 7 

P00F3 

18DD 


ERR 

JMP» 

ERRC 


03 08 

P00F4 

4809 


SPOB 

STQ^ 

SPD2+1 


0309 







0 

0 510 

PG0F5 

54F4 


SPDl 

RTJ- 

($F4) 

0311 

POOFS 

0900 



NUM 

$900 ,$Q , $0 



P00F7 

0 0 0 0 







PQ0F8 

0 0 0 0 







P00F9 

03C2 






0312 

POOFA 

0 0 60 



NUM 

96 


0313 

DOOFB 

0 0 39 



ADC 

GT- ILE-^+5 


0314 

=»00FC 

0 0 GO 


SP02 

NUM 

$0 , $0 



POOFD 

0 0 0 0 





0316 

PO OFE 

C8F9 



LOA^ 

SPDl+3 


0 317 

PQGFF 

0101 



SAZ 

1 

o 

0518 

POlOO 

18FD 



JHP^ 

^-2 

0519 

POlOl 

OCAS 



ENQ 

-89 


032C 

PG192 

C8Q0 



LDA 

GTFILE4-93 



P01Q3 

0 0 89 





{J 

0321 

P0104 

0 832 



AAQ 

Q 

0322 

P01G5 

G AGO 


SPD3 

ENA 

0 


0323 

POlO D 

6DFF 



STA- 

I 


0324 

P0107 

C928 


SPD4 

LDA^ 

GTPILE, I 


0 32 5 

PGIO 8 

9890 



SUB-*^ 

NAME 


0326 

P01G9 

0 117 



SAN 

NO-^-1 


032 7 

PQluA 

C926 



LDA^ 

GTFILEf 1,1 


03 2 8 

POIOB 

988E 



SUB» 

NAME+1 

o 

0329 

POIOC 

0 114 



SAN 

NO-'<^-l 

033 0 

POluD 

C924 



LDA^ 

GTFIL£+2,I 


0331 

POICE 

988C 



SUB^ 

NAME+2 


0332 

POlOF 

0111 



SAN 

NO- ^-1 

0 

0333 

POllO 

1809 



JHP^ 

YES 

0334 

POlll 

GOFF 


NO 

LDA- 

I 


0335 

P0112 

0905 



INA 

5 


0336 

P0113 

60FF 



STA- 

I 


0 33 ! 

P0114 

0834 



AAQ 

A 


0 3 3 3 

Full5 

0 121 



SAP 

OVER-^-1 


u339 

POilo 

18F0 



JMP^ 

SP04 


date; 01/27/99 


DECREMENT UNPIO 


SCHDLE LOG.' F AT LEVEL ONE 


SAVE THE CONTENTS OF THE I REG 
GET SECTOR NO OF PROGRAM LIBRARY 
DIRECTORY AND CHECK IF EQUAL TO 0 
SECTOR NO EQUALS 0 -- ERROR 
STORE SECTOR NO IN READ REQUEST 
FIND NAME 
READ ONE SECTOR 


SECTOR NUMBER 


COMPLEMENT OF 89 


CHECK PROGRAM LIBRARY DIRECTORY 
FOR THE NAME OF THE SPECIFIED FILE 


NAME NOT SAME 


CHECK NEXT NAME 


M79Q0293 

M7900294 

M793 0295 
M793 0295 
M79Q0297 
M79Q 0 298 
M7900299 


M790 D 302 
M7900303 
M790 0 304 
M79 j 030 5 
M79j 0 306 
M790 030 7 
M790 0 308 
M7900309 
M79u031G 
M79u03il 


M7900 312 
M7900313 
M79Q0314 


M790031b 
M790Q317 
M7900318 
M79U0319 
M79'3 0 320 

M790Q321 
M7930322 
M790G323 
M79DQ 324 
M7 90 0 32 5 
M7900326 
M79 0 0 32 7 
M790Q328 
M79Q0329 
M7900330 
M790Q 331 
M79Q 0 332 
M7900333 
M7900334 
M793 0 335 
M790 0 336 
M79u 0337 
M7900338 
M79Q 0 339 


o 

o 

o 

o 

o 


r-; 


0 

o 

o 

o 

o 

o 

o 

o 


( ■) 


o 


T13 


PAGE 
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03 40 
u34i 

0342 

0343 

0344 
0 3 45 

0346 

0347 

0348 
0549 

0350 

0351 

0352 

0353 

0 3 5 4 

035 5 
0 3 5 6 
0 3 5 7 

0358 

0359 
03 60 

0361 

0362 
03 63 
0 364 
0 3 6 5 
0 3 6 6 

036 7 
0368 
0359 
03?G 

0371 

0372 

0373 

0374 

03 7 5 
0 3 7 6 
0 37 7 
03 7 8 
03 7 9 
0380 
035 1 

0382 

0383 

0384 
038 5 
0 3 8 6 


P0117 

E877 

OVER 

LQQ^ 

GTFILEf95 

poiia 

1809 


JMP^ 

SPDA 

paii9 

C919 

YES 

LO A-^ 

GTFILE + 3, I 

Pu llA 

0131 


SAM 

1 

PQ IIB 

18F5 


JMP^ 

NO 

PO lie 

0 8d4 


TCA 

A 

POllD 

2 3B1 


MUI^ 

NINE6 

PO HE 
PuilF 

6 8 0 0 
FF7E 


STA 

NS 

P0120 

0 1 41 


SQZ 

1 

PQ121 

18AF 


JMP^^ 

ERRC 

P0122 

E8AD 


LDQ» 

SAVII 

P0123 

P0124 

C800 

FF78 


LDA 

W2 

PG125 

0113 


SAN 

PARTL 

P0126 

P0127 

C800 

FF76 


LDA 

NS 

RQi28 

6206 


STA- 

6 »0 

P0129 

G9GA 

PART- 

LDA'^ 

GTFILE+4, I 

PQ12A 

40FF 


STQ- 

I 

P0123 

6109 


STA- 

9,1 

PO 12C 

0 AOO 


ENA 

0 

P0120 

6108 


STA- 

8 »I 

P012E 

ICBF 


JMP«- 

THE 

(SPD) 

FOLLOWING A 


CHECK IF ANOTHER SECTOR OF NAMES 
FOLLOWS. 

NAMES HATCH 

TEST FOR AND JUMP IF PROGRAM 
NAME INSTEAD OF FILE NAME 
THE DESIRED FILE HAS BEEN FOUND 
FORM THE NUMBER OF WORDS 
AND SAVE 


FILE LARGER THAN o5K 

CHECK FOR W2 ALREADY DEFINED 


M790 0 340 
M79G0341 
M79Q 0342 
M79G0343 
^ M7900344 
M790 0345 
M79u0346 
M7900347 

’^^HSOS 4.0M793 Q348 
<^^HSOS 4. DM790 0349 
M790035D 
M79G 0351 


’‘^MSOS 


PG12F 

6CGF 


T13SUP 

STA“- 

POioO 

4600 



3 T 0^ 

P013i 

880E 



ADD^ 

P0132 

E0E9 



LDQ- 

P0133 

E2 09 



LDO- 

PU134 

62 OO 



STA- 

P0135 

0 8 44 



CLR 

® G 13 6 

64 0 0 

X 


STA 

PQ13 7 

7FFF 

X 



PG138 

C0F3 



LOA- 

PG139 

E8 04 



LOO-^ 

PG13A 

0101 



SA7 

PG13B 

14F3 



JMP- 

POl^C 

1622 


NOBP 

JMP- 

P0i3D 

GOOD 


SAVQ 

NUM 

Pul3E 

7FFF 

X 

F2 

ADC 

P013F 

u 0 D 3 


JBT13 

ADC 


012F 

P 


EOU 


00 11 



EQU 

PO l4U 

0 0 4F 



BZS 


0 18C 



EQU 


USED DEFINED VALUE 
USE FILE LENGTH 

STORE W2 BACK IN CALL 
GET SECTOR NUMBER 

STORE SECTOR NUMBER. 


RETURN TO THE CALLING ROUTINE 
IML. I IS THl AREA WHERE 

THE GTFILE ROUTINE READS THt INFORMATION INTO 
THIS AREA UPON INITIALLY CALLING T13 INTO 
CORF IS JSEO TO ESTABLISH THE Tlo PARAMETERS 
REQUIRED BY OTHER ROUTINES. ^ ^ 

SAVE ADDRESS OF T13 MODULE 

SAVE CONTENTS OF Q UPON ENTRY ^ 

GFT ADDRESS OF REQUEST PROCESSOR TABLE 


ADOR OF RCTV IN MONI 

SAVE ADUR OF T13 IN SLOT 13 


‘f-^HSOS T 
*»MSOS . 4 


A 

KIB 


CHECK IF 8READP0INT IS REQUIRED 


NOBP-^-i 
($F3) 

( J 22) ,0 

0 

FILE2 

T13-EREOST 
GTFILE( T13SUP) 
SJPLEN( ^-TISSUP) 
GTFB (96-SUPLEN) 
T13LEN<^-T13) 


YES--GO TO BREAKPOINT ROUTINE 
NO — RETURN TO ADDRESS BROUGHT IN 


Q 


M79QQ352 

M79Q0353 

‘^.1»^M7900354 
M793 0355 
M7900 356 
M79u0357 
M79SG358 
M7900 359 
. ■ M7900360 
M790Q361 
■ M7900 352 

■ ' M790Q353 

M7930364 
M790 0 36 3 
■ M79J0366 
M79G0 367 
M79a0368 
M7900369 
0M790 0370 
0M7900 371 
M7900372 
M7900373 
M790 0 374 

M7900376 
M790Q 376 
M79D 0377 
M7900378 
M790 0 379 
M79G058Q 
M79GQ361 
M790Q 382 
M7900383 
M790 0 334 
M790 0335 
H79D 0 386 









o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

C) 

o 

o 

Q 

o 

o 

o 

o 

o 


o 


o 


T13 


Pf\GF 10 


date: 01/27/99 



o 


o 

E a U I V 

A L E N 

C E S 


n 

DEF.LINE 

NAME 

VALUE 



DOGD 

I 

uQFF 

(000255) 


BO 43 

SABS 

OOBD 

(000139) 


0041 

NZERO 

0012 

( 030018) 


0 041 

ZERO 

0022 

(003034) 


0 G 4 1 

80T0P 

00F6 

(0002h6) 


0 0 42 

ONEBIT 

u023 

(000035) 


U 0 43 

LPMSK 

0 0 0 2 

( 0 00 00 2) 


0 04 4 

CABS 

OQBE 

(000190) 


0 045 

RFQXT 

G0B9 

(000185) 


0 045 

DIS P 

OOEA 

( 030234) 


0 3 8 4 

3UPLEN 

Oflll 

(000017) 


3 386 

T13LEN 

ul8C 

(00039S) 


RE-ERENCEO AT LINE NUMBER 

0u9i, DG93, 0137, Ji92, 0263, 0288 


QQ94, 0143 
3 114 
3 140 
3 141 

00 75, 0195 
0191, 0261, 0299 
3 385 


o 

o 


'■'.J 


o 

o 

o 


o 




c^> 

o 

o 

o 

0303, 0323, C334-, 0336, 0356 

o 

, , ' C) 

; O 

■ o 

r 'i 

■ o 

‘ o 

■ o 

■ o 
o 

■ o 

r'\ 

/ 


T13 


P^\GE 11 


OATES 01/27/gg 


D S Y M 0 0 L S 


o 

DEF. LINE 

NAME 

ADDRESS 

RE-ERENCED AT 

LINE 

NUMBER 



0uS3 

T13 

00 0 3 

0 0 33, 

017 6, 

0382, 

0386 




0047 

E RE QS T 

00 0 0 

3 3 82 






o 

QGE5 

SFA 

QOuA 

0 0 51 






0 0 60 

GFB 

OQOF 

0 0 57 







0 0 66 

GF81 

0015 

0 0 61 







0 0 74 

GFB2 

OOIE 

0 0 88 







0 0 /■ i? 

GF83 

OOIF 








0 0 7 7 

GF 84 

0020 

0 0 72 







0 0 78 

3F85 

0021 

0 0 82 







0 0 84 

GF06 

0026 

0 0 81 






Q 

Dogo 

GF 

U02A 

0 0 04 






0 u 9 g 

UNPROT 

0G2E 

0 267 







0099 

UNI 

0 0 33 

0 097 







0101 

UNIA 

003 5 

3 0 98 







0 112 

UN IB 

003F 

3 109 







0119 

UN2 

0 0 4 o 

01Q3, 

0111, 

0116 





0 120 

JN3 

0 0 47 

0 105 , 

0118 






0 124 

GFM 

0 0 48 








0 133 

GT4A 

0 0 5 3 








013^ 

GT4 

005 4 

3129, 

0131 






0141 

GT5 

0 058 

0135 







0142 

GT6 

005C 

3139 






0 

3143 

GT6A 

QC 5D 







0156 

GT91 

0068 

0152 







0162 

GT9A 

0 0 70 

0157 







0166 

GT9B 

0074 

0133 






o 

0 16 7 

GTA 

00 7 5 

3 155, 

0161 





0 17u 

COHPV 
ERR GO 

0078 

3103, 

0115, 

0163 





0174 

007C 

0 101, 

3119, 

016!?, 

3171 




0175 

GTIC 

007D 

0 173 







018 5 

CR 

0088 

3 177 







2 18 6 

NSl 

0086 

0112, 

0154, 

0163, 

0166, 

0173 



018 7 

3 A 

fl08C 

a 180 







G188 

3N 

0G8D 

3 227, 

0234, 

0238, 

0239 



Q 

0 2 0 0 

T13L0G 

0096 

3 0 49, 

0175 


0259, 

U 2 6 2 , 

0274 

0 201 

GFBUSY 

0097 

0 0 60, 

0 090, 

0 243, 


0 20 4 

GFTHED 

0 098 

0 0 7 0, 

flu73. 

0077, 

0 2 56, 

0 265 , 

0285 


0 205 

NAME 

0099 

0 144, 

0146, 

3148, 

0 3 2 5, 

U328 , 

G 331 

■— 

0 20 8 

W1 

Q09C 

0125, 

0 15 0, 

0159, 

0228 




0 209 

W2 

009D 

3 127, 

0 13Q , 

015o, 

0 351 




0 210 

NS 

009E 

0 151, 

03^-7, 

0 353 





O 


o 

o 


c 

o 

o 

o 

c 

C' 

C' 

o 

o 

o 

o 

o 

o 

o 

o 


T13 page 12 


0 211 


009F 

0 121 

0 212 

S 

OOAO 

012 3, 

0 215 

3AVI 

GQAl 

0092, 

3 222 

WCONV 

00A2 

0 18 2, 

0 233 

WCONVl 

uu AD 

0 230 

0 239 

OUT 

0GB3 

0 229 

0243 

CO HP! 

QO05 

0176 

0 2 :p 9 

COMP9 

aocc 

0 2 51 

0262 

C0MP5 

00C8 

0238 

0 2 68 

^JINE6 

OQCF 

0 22 3, 

0269 

3AVII 

ODDQ 

0 3 0 9, 

0 279 

ERRC 

OODl 

0 1 / 4 , 

0278 

ERRCE 

0006 

0 2 76 

0 291 

ERRD 

ODES 

0 287 

0298 

ERRl 

OQEB 

0 293 

0 300 

F 

0 0 ED 

0 292 

0 50 2 

SPO 

OOEE 

0199, 

D 30 6 

SPDA 

00F2 

3 3 41 

0 3 0 7 

ERR 

00F3 


0 30 8 

SPOB 

00F4 

0 3 06 

0 310 

SPDl 

Q0F5 

0 316 

031-+ 

3PD2 

OOFC 

3 3 08 

G 322 

SPD3 

010 5 


0329 

SP04 

010 7 

0 539 

0334 

NO 

0111 

0 326, 

3 340 

OVER 

0117 

0 3 38 

0 392 

YES 

Q119 

0 3 33 

0355 

PARTL 

0129 

0 352 

0 366 

T13SUP 

Q12F 

0 0 98, 

0379 

SOBP 

013C 

0 3 77 

Q 38G 

SAVa 

0130 

0 3 67 , 

0 381 

F2 

013E 

3 3 66 

0 382 

JBT13 

013F 

0 368 

0 383 

GTFILE 

Q12F 

0 51 3 , 

C385 

GTF8 

0 140 



DATE! 01/27/99 


0167, 0179 
0189, 0199, 0286 
0 29 0 


0396 
0 35 0 

030 7, 0399 


0 360 


0 329, 0 332, 0 3-^4- 

Q383, 0389 
0 376 

0 320, G32-r, 1)327, a35-v, 0 390 , 0 392, 


0 35 5 


T13 


=AGE 13 


date: 01/27/99 


O 


o 

o 

o 

o 


X T E R 

N A L S 


DEF.LINE 

NAME 

VALUE 

0 Q3 5 

3CHERR 

Ob OE 

0G36 

SWAPCK 

00E7 

0 0 3 7 

LOCF 

OOED 

QG37 

LPTRS 

00D3 

0 0 38 

FILER 

013E 

3 038 

HIB 

013 7 

Q039 

C0MPV4 

00 78 


REFERENCED AT LINE NUMBER 

0 05B 
029 ^ 

3 300 
0 275 
0 381 
0374 
0169 






o 


o 

c 

o 

o 


o 




o 




o 


o 


o 


o 

o 

o 


o 

o 


o 



o 



T13 


PAGE 

14 

^V-V- fl _ 

P H A 

B E T I 

CAL 

SORT 

0 F 

BOTOP 

CGAl 

C 

0 211 

CABS 

0 0 44 

OESP 

u 0 4 E> 

ERFQST 

0 047 

ERR 

3 307 

F2 

0 361 

FILF2 

0 038 

GF 

0 0 90 

GF35 

GQ78 

GFB6 

0 08h 

GFBU3Y 

Q2Q1 

GTd 

0142 

GT6A 

0143 

GT91 

0156 

JBTl 3 

0 332 

LOG" 

0 0 37 

LPMSK 

3 0 43 

M3 

021G 

MSI 

0 186 

NZERO 

0 0 41 

SA 

018 7 

SABS 

0 0 40 

SAVE 

0215 

Si^OZ 

u3l4 

SPD3 

0322 

SP04 

0 324 

T13LOG 

0 20 0 

T13SUP 

0366 

UNI 

0 0 99 

W2 

0209 

WCONV 

0 222 

WCOM\/i 

0233 


DATE; 01/27/99 


3 Y H B 0 L S 


COMPl 

0243 

COMP4 

0254 

C0MP5 

0262 

E RRl 

0298 

ERRC 

0274 

ERRCE 

0278 

GFA 

C u5 5 

GFB 

006 0 

GFBl 

0066 

GFH 

012^ 

GFTHED 

G2G4 

GTIQ 

0175 

GT9A 

0162 

GT9B 

0166 

GTA 

0167 

LPTRS 

0 0 37 

MIB 

003 8 

NAME 

0205 

ONEBIT 

0042 

our 

0239 

OVER 

0 340 

SAVII 

0269 

SAVQ 

0380 

SCHERR 

0 035 

SPDA 

030 6 

SP08 

030,8 

SUPLEN 

0384 

UNIA 

0101 

UNIB 

0112 

UN2 

0119 

YES 

0 342 

ZERO 

0041 




COHPV 

0170 

GOMPV4 

0039 

CR 

018 5 

ERRD 

0291 

ERRGO 

017 4 

F 

0300 

GFB2 

0074 

GFB3 

0 07 5 

G F8 4 

C077 

GT4 

0134 

GT4A 

0133 

GTS 

0141 

6TFB 

0 385 

GTFILE 

0383 

I 

0 L 00 

MINE6 

0258 

NO 

0 334 

NOBP . 

0 37 9 

PARTL 

0 3 5 5 

REOXT 

G 04 5 

S 

0212 

SN 

0188 

SPD 

0 30 2 

SPOl 

0 31u 

SWAPCK 

0 0 3 6 

T13 

0 033 

T13LE^i 

0 386 

UN3 

0120 

UNPROT 

0 u 9 4 

W1 

0 208 



o 


C) 

, o 



M8UJ 0 00 3 

C) 


M80D0 J04 


^^MSOS 

■+.0M8QC0 0Q6 

Q 

^^HSOS 

4. OM8000006 


»^HSOS 

4.0 M3 00 0009 


^^MSOS 

4. cMaooouio 

: 0 

**HSOS 

4.CM8000011 

M8CQ00i2 

M3Q00013 


H3QC00i4 

C) 

»^M30S 

4. OM8acaoi5 
M80] 0016 
M800 0 017 


MaCQ 0018 

; O 


M8G0 GQ19 
M80 0 0 U2 0 

^^MSOS 

4.uM8GO0'J2i 

. n 

^^HSOS 

4 . 0M800 0 023 
M30G 0 024 



M 3 0 G 0 0 2 5 

■ ( : 

*^HSOS 

4. aM80QQ026 


■^’MSOS 

4. QM3000027 


^-MSOS 

4. 0M8000028 

L.-' 


M3CU0029 


^^MSDS 

-r.OM80Qa030 

■ L.) 

^^MSOS 

4. 0M800 0li31 


^^HSOS 

4. 0M3 00 0 032 


^^MSOS 

4. QM80Q0Q33 

■ o 

^^HSOS 

4 . QM800 a 034 

^^MSOS 

4.GM8000036 


^^MSOS 

4.0M8Q00036 

M6000037 

o 

»«^MSOS 

4.0 MOO Du 0 38 


^‘♦MSOS 

4. QM3G0OQ39 


^^MSOS 

4 . 0M800004G 

: O 

^^HSOS 

4.GM8Q0Qu41 

^^MSOS 

4,uM80G0042 


^^MSOS 

4.0M800Q043 

o 

^»HSOS 

-+.0H8fl0 0044 

’^^HSOS 

4. 0M8C00 045 



o 


I 


( 


o 


JCRDV4 


PAGE 2 



0 u 4 6 

POOlU 

18 67 


JMP- 

EXIT + 1 


0 3 4 7 

POGIE 

0C23 

CTl 

ENQ 

L-1 

o 

0 j 48 


0 0 24 


EQU 

L (35) 

0 3 49 

POOIF 

G722 

CT2 

LDA- 

(ZERO) ,a 


0 3 5 0 


0 0 22 


EQU 

ZER0($22) 


G 0 5 i 

P0G2G 

0 90 0 


INA 

0 


D 0 5 2 

P0021 

0102 


SAZ 

CT3 


0 0 5 3 

PG022 

6A13 


STA^ 

CT0BUF,Q 


0 0 5 4 

P0023 

D809 


RAO^^ 

CWD 


0 3 5 3 

P0024 

ODFE 

CT3 

INQ 

-1 

O 

0 3 5b 

PG025 

0171 


SQM 

CT4 

005 7 

PQD2& 

18F8 


JMP« 

CT2 


00 58 

P0 027 

5 4F4 

CT4 

RTJ- 

($F4) 


0 0 59 

PO 028 

ODOO 

CT5 

NUM 

$D00 , 0 

o 


P0029 

GOOD 





OC 5 0 

^ 0 02A 

0 0 0 0 

TR 

NUM 

0 


0 3 51 

PO 02E 

13FC 


NUM 

S18FC 


0 0 5 2 

P0 02C 

0 0 0 0 

CWO 

NUM 

0 

o 

0U63 

PGOBD 

GOOD 


ADC 

CTOBUF-CT5 


0 j 5 H 

PG Q2E 

C8FB 


LDA^ 

TR 


0 3 5 5 

PG02F 

0101 


SAZ 

1 


0 3 6 6 

P003G 

18FD 


JMP^ 

V--P 


005 7 

POOSl 

Q151 


SQP 

1 


0 3 5 8 

PD032 

18F4 


JMP'^ 

CT5-1 


0 3 5 9 

P0033 

OAOl 


ENA 

1 


0 y 7 u 

P0G34 

18 4F 


JHP^ 

EXIT 

Q 

0 0 7 1 

P 0 j 5 5 

0 0 24 

CTOBJF 

8ZS 

CTDBUF(36) 


0 3 72 

PO 0s9 

90 CO 

PA 

SUB 

=N55553 



PG 05A 

5553 





00 7 3 

P 0 u 5 B 

0115 


SAN 

PAX 

o 

0 3 7 4 

P Q u 5 C 

C102 


LDA- 

2,1 


03 75 

POO 5D 

E1C3 


LDQ- 

3,1 


0-J 7o 

PO 05E 

QFE8 


LLS 

8 


Gu77 

P 005F 

0900 


INA 

0 


0 j 78 

P 0 y bo 

0 101 


SAZ 

PAl-1 


00 79 

P0061 

18 BA 

PAX 

JMP^ 

LOAD 


00 8 0 

P0062 

54F4 


RTJ- 

($F4) 


0081 

P 0 0 6 3 

ODOO 

PAl 

NUM 

S Oil J , 0 



P 0 0 b 4 

0 0 0 0 





00 3 2 

PD065 

0 0 00 

TRl 

NUM 

a 


0 3 3 5 

P0 066 

18FC 


NUM 

S13FC,3 



PO 067 

0 0 03 





00 3 4 

P0068 

OOIA 


ADC 

PABUF-PAl 


00 35 

P0069 

G8FB 


LDA^ 

TRl 


0 3 3 5 

P006A 

0 101 


SAZ 

PA2 


0 0 37 

P006B 

18F0 


JMP^ 


o 

00 3 8 

P0 06C 

ul61 

PA2 

SQP 

PA3-1 

0 3 8 9 

P006D 

18F4 


JMP» 

PAl-1 


0 3 9 u 

P0 06E 

54F4 


RTJ- 

(5F4) 


0091 

P 0 0 dF 

G9LQ 

PA3 

NUM 

$0900,0 

o 


P 0 0 7 0 

Q 0 00 





0 0 92 

PO u 71 

0 0 0 0 

TR2 

NUM 

0 


0 3 9 3 

P0 0 7 2 

18FD 


NUM 

$13-0 , 3 



POO 73 

0 0 0 0 





O 


DATE} 01/27/99 

TRY TO LOAD IT 
INPUT BUFFER LENGTH-1 

LAST WORD OF BUFFER 

GET RID OF BACKGROUND 

OVERLAID BUFFER 
BUMP WORD COUNT 

GET MORE 


I/O ERROR TRY AGAIN 
SCHEDULE J3FR0 


WASSTATMENT PAUS 


MAKE SURE REST 
IS BACKGROUND 


YES 

NO - TRY TO LOAD, IT 


READY 

I/O ERROR TRY AGAIN 
INPUT A CR 


•^^^MSOS ^.QM8QG0045 
^'^^MSOS L.0M3 03 0 04-7 
^■^MSOS 4.0M8u00048 
'*‘^MSOS 4.0MS0G 0049 
’^^MSOS i..GM8C0 0 050 
^^^MSOS 4.0M80Q0051 
^^HSOS 0M8 0G G 352 
*^HSOS 4. GM80G0053 
^^MSOS 4.OMS0JG054 
^^MSOS 4.0M80G0055 
^-■^HSOS 4.GH8G0QJ5S 
^^MSOS ^.OM8GGD057 
^^NSOS 4. DM8 00 0 35 8 
’^^MSOS 4.0M80G 0 059 

^^MSOS 4.0M8GQ0050 
^■*^MSOS ^-.OMSliODOol 
^-HSOS 4.0M8G0fl0&2 
»^MSOS 4.&H80QG Go3 
^^MSOS 4.0M3000054 
^^MSOS 4.0M30QGOS5 
^^MSOS 4. OH 800 a 05b 
^^MSOS 4-.CM300 J057 
^-^MSOS 4. GM8D 0 0(35 8 
-^HSOS 4.GM300J069 
^^HSOS 4.GM300Q07G 
M80DQQ71 
»^MSOS 4.0M8000072 

^^MSOS -.GM8000073 
^^MSOS T.UM80D0Q74 
^^MSOS 4.0M80G0075 
^^HSOS T.UM80GGD76 
*-^MSOS 4.GM8 00 0 077 
■^‘^MSOS 4-.0M8G0Q078 
’^^MSOS DM3 0 00 079 
^^MSOS 4, OMaOGuOSO 
^^MSOS 4. OMSOOGOBl 

»»MSOS 4.0M3U00082 
^^^HSOS 4. 0M80G0I383 

^=^MSOS 4.GM30Q0a84 
»^MSOS 4.0MS000085 
^^MSOS 4.0M8000035 
*^^M30S 4.QH8Q00 087 
»^MSOS 4.0M800G083 
--MSOS 4.0M80QGQ89 
^^MSOS 4,GM300Ga90 
122 ''^ 4569 '^^*’'‘*^*^*‘ 

*^HSOS 4.CM8GG0G92 
^-MSOS 4.0M8000093 


C] 

o 

o 

o 

o 

G 

o 


o 

o 

o 

o 

o 


o 


o 

o 


s.,* 




JCRDV^ 


PAGE 


3 


date: Gl/27/99 




o 



CD9- 

P007^ 

00 GO 



ADC 

CR-PA3 


'^^MSOS 

4,OM8G3u09h 



0 3 9 -3 

p 0 0 7 5 

C8FB 



LDA^f 

TR2 


^^MSOS 

4.0M3GG0095 


o 

00 9 b 

P0G76 

0101 



SAZ 

PA4 


'■‘^MSOS 

4.0M8CG0Q96 

O 

0^97 

P 0 0 7 7 

18FD 



JMP’^ 



^^MSOS 

4. GM3 00 0 G97 


0u9a 

P0 078 

0 161 


PAh 

SQP 

PAS 


-^MSOS 

H. bM30D 0 098 



0 3 9 9 

PGC79 

18E8 



JMP- 

PAl-1 

I/O ERROR START OVER 

«^^MSOS 

4. DM8 00 G 099 


(J 

uiO 0 

P0 07A 

a AOl 


PAS 

ENA 

1 



: O 

0101 

PCI07B 

1803 



JMP'^ 

EXIT 


^^NSOS 

4. jH3u0u106 


0102 

P0 07C 

0 0 0 0 


CR 

NUH 

0 


-■^^MSOS 

4. 0M3G0 0106 



010 3 

P0070 

52 45 


PABU- 

ALF 

3, READY? 


♦^MSOS 

4.UM8Q001G7 




P0u7E 

Hi HH 








' O 



P007F 

593F 







H. CMSeO 0108 



010^ 

P0060 

0 0 00 


ABS 

NUM 

0 

ABSOLUTE LOAD ADDRESS 

^^MSOS 



0105 

P0Q81 

0 0 0 0 


CHCT 

NUH 

0 

CHARACTER COUNT 

»^MSOS 

4. 0M800 0109 


c 

0106 

PGu82 

OA 01 



ENA 

1 


^^MSOS 

H. GM80Q0110 

' o 

010 7 

PO 0 83 

OCOE 


EXIT 

ENQ 

1 4 


s^^MSOS 

H. CMBO Quill 


0108 

P006U 

6809 



STA^- 

RM3D 


»^MSOS 

4. OMSQOOllE 



0109 

P0Q85 

C4Q0 

X 


LDA 

J BP ROE 


’^^MSCS 

4,GH300Q113 




P0086 

7FFF 

X 





»+MSOS 

4. uM8Q:]0il4 

n, 


0110 

P0087 

60FF 



STA- 

I 


bw-- 


Dili 

P00 88 

C805 



LDA^ 

RMOO 


^^MSOS 

H.0M8C0Gil5 

1 


0112 

P0089 

14FF 


ERR 

JMP- 

(I) 


^^MSOS 

H, GHSOOOilb 



0113 

P00 8A 

OAOl 



ENA 

1 


^^^MSOS 

4. GM30G0117 

■ o 


Oil-t 

P0G8B 

0C06 



ENQ 

6 

TERMINATE IN J08PR0 

^^MSOS 

4. GM8u0G118 


0115 

P008C 

18F7 



JMP^ 

EXIT+l 


^^MSOS 

H. GM800 0 119 



0116 

P008D 

GOOD 


RHOD 

NUH 

0 


^^MSOS 

H.GM80a0i2G 


c 

0117 


GO 80 

P 


EQU 

PARAH(RMOO) 


»*MSOS 

4. CM3G00121 

; O 

0118 

P0 08E 

7FFF 

X 

F2 

ADC 

FILE2 


^^MSOS 

4.uM3GGGi22 


0119 

P0Q8F 

9G00 


JO 

SUB 

=N$h22C 

IS IT A B, 

^^MSOS 

H.0M80GQ123 




PD09t 

422C 






^^HSOS 

H . OM8u0012h 



0120 


0 0 8F 

p 


EQU 

NAME{ JO)" 


O 

'sj 

0121 

P0091 

OlOB 



SAZ 

JOl 

YES 

-^MSOS 

4 . GM3 00 0 12 5 


0122 

POO 92 

90 00 



SUB 

= N5D3 

LOOK FOR BACKGROUND 

*^MSOS 

H, GM8D0 0126 




P0093 

0OD3 






^^MSOS 

H. OM3G00127 


'■rv 

0123 

P0099 

0112 



SAN 

JOli 


: O 


012^ 

PO 095 

D8F7 



RAO^ 

PARAM 

JOB CARO NO PARAMETERS 

■^^MSOS 

4. 0M80QQ128 


0125 

P0096 

1807 



JMP<^ 

JOl 


»-^MSOS 

4.GM3020129 



0126 

PuQ97 

ECOO 


JOll 

LDQ 

(TARO) 

IS A JOB IN PROGRESS 


H800 0 130 




PQ093 

FF78 








- o 


012" 

PO b 99 

C20C 



LDA- 

12, Q 



M80Q0i31 



0128 

PG09A 

0 106 



SAZ 

J012 

NO, OUTPUT JP15 ERROR 


M80Q0132 



012 9 

PQQ9B 

1800 



JMP 

LOAD 

YES, LET UPLOAD HANDLE IT 


M80a0133 


O 


P009C 

FF7F 







M80a0134 

: O 

0130 

P009D 

ECOO 


JOl 

LDQ 

(TARO) 





P0 09E 

FF72 







H. eM80uQ13 5 



0131 

P009F 

C20C 



LDA- 

12, a 

IS A JOB IN PROGRESS 

»^MSOS 



0132 

PGGAO 

0105 



SAZ 

J03 


^^MSOS 

4. OM8 00 013 6 

. O 

O 

0133 

PO 0 Ai 

COCO 


JO 12 

LOA 

=NS3135 

OUTPUT JP15 ERROR 


M8O0Q 137 



P0QA2 

3135 






^^MSOS 




013^ 

PO0A3 

620A 



STA- 

10, a 


4. QM8D00i38 


o 

013 5 

POO Ah 

18E5 



JMP^ 

ERRfl 


-^MSOS 

4.0M80U0159 

; O 

0135 

PO 0A5 

0 0 0 0 


ISAVE 

NUM 

0 


^♦MSOS 

4. SM80a ai40 


0137 

P00A6 

C400 

X 

J03 

LDA + 

AUTF9 

RESTORE LOCATIONS $F9,FA,F8 


M8G00141 



P00A7 7FFF X 


O 

O 


o 


JCRDVh 


PAGE 


4 


DATE: Gi/27/99 



013 8 

P00A8 

60 F9 



STA- 

$F9 


0159 

POO A9 

C40 0 

X 


, LDA + 

AUTFA 

o 


POOAA 

7FFF 

X 




014 G 

POOAB 

60FA 



STA- 

$FA 


0141 

POO AC 

C400 

X 


LOA + 

AUTFB 



PQG AD 

7FFF 

X 




o 

0142 

POOAE 

60FB 



STA- 

$FB 

0143 

POO AF 

C400 

X 


LDA 

FMPFLG 



POOBC 

7FFF 

X 





014 4 

POOBl 

80 42 



EOR- 

H7FFF 


0145 

P0GB2 

0112 



SAN . 

J031 


0145 

P0 0B3 

&40 0 

X 


STA 

FM^-LG 



P 0 0 B 4 

00 BO 

X 





0147 

P00B5 

D20C 


J031 

RAO- 

12, a 


0148 

0149 

POO E6 

C8D6 



LDA^ 

PARAM 


P0GB7 

0103 



SAZ 

J033 


015 0 

PO 0B8 

0804 



SET 

A 


0151 

PG0B9 

62GF 



STA- 

15, Q 


0152 

PGGEA 

181B 



JMP^ 

JOlA-i 

0 1 5 3 

P0Q6B 

DOFF 


J033 

RAO- 

I 


015 4 

POO BC 

DOFF 



PAO- 

I 


015 5 

PUOBD 

0CQ6 



ENQ 

6 

(3 

015 6 

POOBE 

OA 20 



ENA 

$20 

015 7 

PQObF 

oACF 


BLN 

STA» 

NAHE,Q 


0153 

pooca 

ODFE 



INQ 

-i 


0159 

POflCl 

0171 



SQM 

1 


015 G 

PG0C2 

18FC 



JMP^^ 

BLN 


0151 

PG0C3 

58 46 


GOON 

RTJ^‘ 

CRACK 


0152 

PO0C4 

C8 44 



LDA^ 

CT 


0153 

P0 0C5 

Gill 



SAN 

i 


015 4 

POQCd 

1869 



JMP^ 

ERRX 


0155 

P00C7 

0 AOF 



ENA 

15 


0 1 6 o 

P00C8 

58 0 0 



RTJ 

PACK 



PGuC9 

0 0 7F 





0 

015 7 

POOCA 

OAOO 



ENA 

0 

0158 

P 0 0 C B 

63 30 



STA^ 

CT 


0159 

POOCC 

5830 



RTJ’f 

CRACK 


0170 

POOCD 

G83B 



LDA^ 

CT 


0171 

PO OCE 

0111 



SAN 

1 


3172 

PGOCF 

1 8 60 



JMP- 

ERRX 


G173 

POODO 

0 A12 



ENA 

18 


017'^ 

POODl 

58 C Q 



RTJ 

PACK 

o 


P00D2 

0 0 7b 





017-5 

P00D3 

G8 Di 



LDA- 

I3AVE 


017 6 

P0GD4 

6 0 FF 



STA- 

I 


017 7 

P0005 

0C23 



ENQ 

L-1 

o 

0178 

P00D6 

C722 


JOIA 

LDA- 

{ZERO ) 

0179 

P00D7 

0 90 0 



INA 

a 


013 0 

POODS 

0102 



SAZ 

J02 


013 1 

PG0D9 

6A00 



STA 

CTOBUF 

o 


PQODA 

FF5A 





0132 

POGDB 

ODFE 


J02 

INQ 

-t 


0133 

POQOG 

0171 



SQH 

J03A 


O 


TO AUTOLOAD VALUES 
IN CASE 

PREVIOUS USER 
HAS CHANGED THEM 

TO SUIT HIS OWN PURPOSES 
IS FILE MANAGER PRESENT 

SEE IF UNPATCHED 

CLEAR FMPFLG JUST IN CASE SOMEONE 
FLAG ABSENSE OF NAME 


BLANK OUT NAME BUFFER 
GET THE JOB NAME 

PUT NAME IN WORD 15 OF TRANTA 
GET THE ACCOUNT NUMBER 

PUT ACCT. IN WORD 16 OF TRANTA 

B 

Q 


M8D0 Q142 
M30G0143 


M300014A 
M800 0 145 

H8G0Ql4b 

M8000147 

M800Q148 
M8000149 
SET IT H8000150 

H8QOOi5i 
^»HSOS 4.QM8GJ0152 
»^MSOS ,4. OM300 0153 
’^^MSOS <t.GM800G15h 
»^MSOS •4.0M80DQ155 
*’^MSOS 4.GM800 0 15b 
^^HSOS- 0M3a00157 
»^MSOS ^.uM80GQ158 
M8000i59 
M3000 150 
MSDOOIdI 
M8GD 0162 
M300t31o3 
M80Q 0164 
^^HSOS H. 0M80D0165 
M8 0 Q u 1 6 6 
M8000167 
M3G0 0158 
M30UQ169 
M80Q 0170 

’^^MSOS -.0M3 000 171 
^^MSOS H.OM3G00172 
^^MSOS 4. DM8CQ 0173 
H8000174 
M80 3 017 5 
M3Ca 0176 
M30G0177 
H8000178 

^^MSOS 4.0M30Q0i79 
^-HSOS 4.0MB00G18O 
^^MSOS 4.aH8CO0i8i 
^^MSOS 4.0M3D0G182 
^^MSOS 4.DM8000183 
^^MSOS 4.0H8000184 
MSC00185 

•>^MSOS 4. OMSOGDiSb 
^^HSOS 4.0H8fl00187 


O 

O 

O 

O 

c 

o 

o 

o 

o 

I 

0 

o 

o 

o 

o 

c 
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0134 

PDQDD 

18F8 



JHP^ 

JOIA 

013 5 

P08OE 

COFB 


J03A 

LDA- 

SFB 

3 18 6 

POQDF 

9 OFC 



SUB- 

$FC 

Q137 

PuGEQ 

Dili 



SAN 

TAGIOO 

018 3 

oQuEl 

18A0 




EXIT-1 

0139 

POO E2 

COFB 


TAG13 0 

LOA- 

$FB 

019 0 

P0QE3 

B0 2F 



EOR- 

$2F 

013 1 

PO 0 E4 

68 OF 



STA» 

LU 

0192 

PO0E5 

C39A 



LDA'^ 

AB5 

0193 

P00E6 

8 0 0 0 



AOU 

= XCTORJ F-CRDV4 


P00E7 

0 035 





0194 

P0QE8 

68 00 



STA'^ 

8F 

0195 

P00E9 

C300 



LDA 

CTOB J F 


=»0Q EA 

FF4A 





019 6 

PQOEB 

90QQ 



SUB 

=N$1E0Q 


P 0 0 EC 

lEOQ 





019 7 

PQOED 

5800 



STA 

CT3BUF 


PQOEE 

FF46 





0 1 9 8 

POOEF 

5m- F4 



RTJ- 

( $F4) 

0139 

POOFO 

0 C G 0 


JOS 

NUM 

SCO 3, 0 


POOFl 

0 0 u 0 





020 0 

P0CF2 

G03 0 


TR4 

NUM 

0 

023 1 

P0GF3 

0 3 CO 


LU 

NUH 

0 

020 2 

P0QF4 

0 0 24 


WORDS 

NUH 

$24 

0203 

P0DF5 

0 0 00 


BF 

ADC 

0 

u 2 G H 

P00F6 

C8FB 



LDA^ 

TR4 

020 5 

PO OF? 

Old 



SAZ 

JOS 

8 2 3 6 

POOFS 

18FD 



JMP"' 

*~2 

020 7 

P00F9 

•31 51 


J06 

SQP 

J07 

020 8 

POOFA 

18F4 



JMP^ 

J05-1 

023 9 

POuFB 

EO FB 


J07 

LDO- 

$FB 

0210 

PO OFC 

E60G 

X 


LDQ 

L 0 J 1 A » 0 


PuOFD 

7FFF 

X 




0 211 

POOFE 

C208 



LDA- 

8,i 

U212 

PQGFF 

OF 4B 



ARS 

11 

0213 

POIQQ 

A 0 0 5 



AND- 

HGQ07 

0214 

POIGI 

09F9 



INA 

- 6 

0 215 

PG10 2 

010 3 



SAZ 

J07A 

0216 

P0103 

0A08 



ENA 

8 

0217 

P01G4 

180 0 



JMP 

EXIT 


Pol05 

FF7D 





0213 

POlO o 

1800 


J07A 

JMP 

EXIT-i 


PQIQ 7 

FF7A 





D219 

P0108 

0 0 00 


CT 

NUM 

a 

0220 

P0109 

OBGO 


CRAC< 

NOP 

0 

022 1 

PCIOA 

C830 


U041 

LOA^ 

RL 

0222 

POiOB 

0101 



SAZ 

1 

0223 

pQiac 

180C 



JMP'f 

J04B 

022 4 

POIDO 

C522 


J04A 

LDA- 

(ZERO) , I 

022 5 

POiOE 

AO OA 



AND- 

H FF 

0226 

POICF 

5827 



RTJ^ 

SUB 

022? 

POilO 

0141 



SQZ 

1 

0 22 8 

POlll 

181B 



JMP^ 

ASCHl 


STANDARD LIST 

LU OF OUTPUT COHNENT DEVICE 

LIST AND CDHHENT UNITS NOT THE SANE 

SANE - DO NOT PRINT TWICE 


ADO MORE BIT 


CHANGE THE ^ TO A 
PAGE EJECT($0C) 


I/O ERROR 

LU OF STD LIST DEVICE 
PHYSTB ADDRESS TO Q 


WORD 8 OF PHYSTB TO A 

CLASS CODE TO A 2-0 

NASK OFF UPPER BITS 

CHECK FOR TTY CLASS 

nnWT PRINT Rl nCK job name IF TTY 


PRINT THE NAME 


DON'T PRINT IT 


COMMA WAS IN RIGHT CHAR. POSITION 


END OF FIELD 


’'•'^MSOS 

»-^MSOS 


^^HSOS 4. 
5-^MSOS 4. 
■^■^MSOS 4. 
-^•^(‘MSOS 4. 

«^»HSOS 4. 
^^MSOS 4« 

-s^^MSOS 4 . 

-^HSOS H. 

4. 

^-MSOS 4 . 

»-^MSOS 4. 
^»MSOS 4. 

'^^MSOS 4. 
»^MSOS Si. 
^-MSOS 4, 
»^MSOS 4. 

--MSOS 4. 
’f^MSOS 4. 


^^MSOS 4. 


»^MSOS 4 

'^■'^MSOS 4. 
’^^MSOS 4 
»4msoS 

»*MSOS 4 
'^^■•MSOS 4 
^»MSOS 4 

^^MSOS 4 


UMB0Q0188 
0M3O00189 
M800 0 190 
M800!jli91 
M80 J G 19 2 
M8D00193 
aMaoooi94 
0M3000195 
OH803 0 196 
GM300G197 

OM3G00198 

CM8Q3Q199 

l;M8 0Gu200 

OM8030201 

GM300Q202 

0M8000203 

OM800 0204 
0M8C0Q205 
M800 0206 
OM8000 207 
GMSU00208 
0M8C 3 0 20 9 
0M3 000 210 
0M3G0 0211 
GM800U212 
M800Q213 
M8 000214 

N8QQ0215 
M8D0 0216 
M8000217 
M8000218 
H8U J 3 219 
UM30iiQ220 
M80Q 0 221 

M80Q0222 

M0OOO223 
, OM8000224 
M3fltiQ225 
0M80Q0226 
, QM3G00227 
, 0M3000 228 
, 0M8 00 Q22 9 
, OH8QG023U 
, OH3000231 
. UM80QG232 
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0229 

PO 112 

0 111 


SAN 

1 


v^MSOS 

OM3000233 

0 2 3 G 

PQ113 

1816 


JMP^ 

A3CH2 


«^^MSOS 

4. 0M8fl00234 

G231 

POll^ 

D8F3 


RAO"^ 

CT 



M800 0 235 

0232 

P0115 

E8F2 


LDQ^ 

CT 

INDEX 

^^MSOS 

4. 0M3Q30236 

0233 

P0116 

6AuO 


STA 

NA'IEfQ 



M8G00237 


PQ117 

FF77 







023 ^ 

P0118 

DOFF 

J04B 

RAO- 

I 


5^^MSOS 

4 . 0M3 000238 

0235 

Puli9 

C522 


LDA- 

(ZERO ) , I 


^»MSOS 

4. GM30C0239 

023 6 

POllA 

0 822 


TRA 

Q 


-^MSOS 

4.0M80002^0 

0 23 7 

P0118 

FOOD 

J04 

AOQ 

=N5D3D3 


^^MSOS 

4 . OMS0002^*1 


POllC 

D3D3 







0233 

POllD 

0151 


SQN 

1 


^^MSOS 

4..0MB000242 

0239 

POllE 

18 11 


JMP» 

ERRX 

TWO COMMAS IN A ROW 

«^^MSOS: 

4.’flM80D0 243 

0240 

PQ IIF 

GF 48 


ARS 

8 


■ MS OS' 

4. OM8O0 0244 

0241 

PQ120 

A GOA 


AND- 

HFF 


^»HSOS- 

4. 0M8000245 

02 4 2 

P0121 

5 815 


RTJ^ 

SUB 


->’»^MSOS', 

4. 0M30 00246 

0 2 43 

PC- 122 

Q 159 


SQN 

ASCHl 

END OF FIELD 

^»MSOS 

4. 0M8000247 

0244 

PQ12 3 

0108 


5AZ 

ASCHl 

COMMA 

»^MSOS 

QM3CQ 0248 

0245 

P0124 

Q8E3 


RAO^ 

CT 



M8DC0249 

02 46 

P0125 

E8E2 


LOQ^ 

CT 

INDEX 

^^MSOS 

4.0M300 0250 

02 47 

P0126 

6A00 


STA 

NAHE,Q 


•^»MSOS 

4. 0M800O251 


P0127 

FF67 







0248 

P0128 

18E1 


JMP^» 

J041 


^^MSOS 

4 . 0M80Q 0252 

0249 

P0129 

GAGl 

ASC H2 

ENA 

1 



M30Q0253 

025 0 

P012A 

6810 


STA^ 

RL 



■ M800 0 25 4 

0 251 

PG12B 

ICDD 


JMP^ 

(CRACK) 



- M80a0255 

0252 

P012C 

0 AGO 

ASCHl 

ENA 

0 



M3GQ 0256 

0253 

P012D 

681A 


STA^ 

RL 



• M8G00257 

0 2 5 u 

P012E 

ICDA 


JMP"^ 

{ CRACK) 



■ M80C0258 

0 2 5 5 

P012F 

EC 00 

ERRX 

LOQ 

(TARD ) 


♦^MS.OS 

4. 0M8G3 0259 


P0133 

FEED 







0256 

P0131 

COQO 


LOA 

=NB3033 


»^MSOS 

4. OM8000260 


PQ 132 

3 0 33 







0 25 7 

P 0 1 3 3 

6 2 0 A 


STA- 

lOtQ 


^^HSOS 

4. 0M3GQU261 

02 5 3 

P0134 

1800 


JMP 

ERR^-l 


«--MSOS 

4. GM8G0 G262 


P013 5 

FF54 







0259 

PO 136 

OBOO 

SUB 

NOP 

0 


«-^MSOS 

4 . 0M80Q 0 263 

0 26 0 

PG137 

0C2C 


END 

$2C 

COMMA 

»^HSOS 

4, ’uM3Q0 0264 

0261 

PO 138 

0 8 72 


EAQ 

Q 


■^^HSOS 

GM8GQ0 26 5 

0252 

PG139 

0155 


SQN 

SUB2 


*-MSOS 

4» 0M800 Q256 

0 2 63 

P013A 

QA QO 

SUBS 

ENA 

0 


^^MSOS 

-r« bMSEOO 26/ 

0264 

P0138 

OCOO 


ENQ 

0 


*^MSOS 

4, 0 M3 GO 0 26 8 

02 65 

P013C 

1CF9 


JMP^ 

(SUB) 


^♦MSOS 

4. 0M3D00269 

0266 

P013D 

D8G2 

SU80 

SET 

Q 


^^^MSDS 

4.GM8030270 

0 2 6 7 

PQ13E 

1CF7 

SUBl 

JMP» 

(3JB) 


^-MSOS 

4.0M80G0271 

0268 

P013F 

EO OA 

SUB2 

LDQ- 

HFF 


’^^MSOS 

4. i)M80Q0272 

0269 

PO 14U 

0 8 72 


EAQ 

Q 


♦^MSOS 

4. GMaOQQ273 

D27G 

P0141 

01 43 


SQZ 

SUB2A 


^^MSOS 

4. UMB000274 

027 1 

PC142 

CC20 


enq 

S20 


’^■>^HSOS 

4.0H800D275 

0272 

PO 143 

0 8 72 


EAQ 

Q 


^^MSOS 

4. GM8000276 

0273 

P G I't 4 

0151 


SQN 

SUB3 


-^MSOS 

4. GM30D 0 277 

027^ 

PQ 145 

18F7 

SUB2A 

JMP^ 

SUBO 


»^MSOS 

4 . 0M3000278 

0275 

P0146 

1 8F4 

SU83 

JMP^ 

SUB5+1 


^^MSOS 

4. QM80G 0279 


C; 
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08 76 

P0147 

0 0 0 0 

RL 

NUH 

0 


0277 

P 0 146 

OGQQ 

PACK 

NUM 

0 

c 

0278 

P0149 

ECOQ 


LDQ 

( TARD) 

PGl^+A 

FEC6 


AAQ 



02 7 9 

P014B 

0832 


Q 


028 0 

P014C 

4810 


STQ^ 

ADR 

o 

023 1 

P014O 

OCCl 


ENQ 

1 

0282 

POIhE 

CAOO 

ANOT 

LDA 

NAME,Q 



P014F 

FF3F 



8 


0233 

P0150 

GFC8 


ALS 


oea^r 

POiSi 

DDOl 


INQ 

1 


0285 

P0152 

8A0Q 


ADD 

NAME, Q 



P0153 

FF3B 



(ADR) 


02 3 6 

P0154 

6C08 


STA^ 

o 

023 7 

P0155 

D807 


RAO^^ 

ADR 

02 3 8 

P 0 15 6 

0 DUl 


INC 

1 


0289 

PQ15 7 

0DF8 


INQ 

-7 


029 0 

PG158 

01 42 


SQZ 

DOHE 

0 

029 1 

PC 159 

0D07 


INQ 

7 

0292 

PO 15A 

18F3 


JMP^ 

AN3T 


029 3 

P015B 

ICEC 

DON E 

JMP-'^ 

( PACK ) 


029h- 

P015C 

OGOQ 

ADR 

NUM 

0 


0295 




END 



PS'1= 0190 i 349) 30M = 0 00 0 ( 0 ) DAT = 00 00 ( 0 ) 

u 


0 

o 

O 

o 


O 


Ha CQ 0 28 0 
M30 0 0 281 
M8C0 0282 

M8Gl;0 283 
M30D 0284 
M3 OQ 0285 
M30Q0236 

M8000237 
M80 j C288 
M80QQ289 

M8000290 
M8GQ0291 
H803 0292 
M8Q00293 
M8C00294 
MdD00295 
H8G00296 
M8G30297 
M3000298 
M8000299 
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o 

C) 

o 

o 

o 
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o 

c 

o 

o 

c 

o 

o 

o 

o 

o 
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: a u I V 

A L E N 

C E S 

def.line 

NAME 

VALUE 

0 G G Q 

I 

OuFF . 

3019 

HG 007 

000 5 

0 0 20 

M7FFF 

0042 

0 0 21 

HFF 

00 0 A 

0 0 48 

L 

002 T 

C Q50 

ZERO 

0022 


referenced at 


(0 00 255) 

DQ30 , 

0 110 , 

(000005) 

3 213 


( 0 0 0 0 6 6 ) 

0144 


{ 0 00010) 

0225, 

0 241, 

(003036) 

3 0 47 , 

0177 

(000034) 

3 3 49 , 

0178, 


LINE NUMBER 

9112, 0133, 015-r, 0176, 
0268 

0224, 0233 


0 2 3A 



SYMBOLS 


o 





< \ 


O 

o 

o 


■-J' 



o 

o 


DEF .line 

name 

address 

RE- EREN3 

ED AT 

LINE 

NUMBER 



j G 0 d 

CRDV4 

0 0 0 G 

0 a 0 3 t 

0 039, 

0 ‘j 4 3 , 

0 041, 

Q D 4 2 , 

0193 

0 03 5 

TARO 

QGll 

0126, 

0 130 , 

0255 , 

0278 



G 0 40 

TAB 

0016 

0 0 38 






00 43 

CTO 

0019 

0 0 41 






0 G 4 5 

LOAD 

OOlC 

0 0 79 , 

0129 





0 0 47 

CTl 

QOIE 

0 0 44 






OG 49 

CT2 

OOIF 

0 0 57 






0 05 5 

CT3 

002 4 

0 0 52 






0 0 55 

CT4 

00 2? 

0 0 56 






0 059 

CT5 

0025 

0 u 63 , 

0 C68 





0 060 

TR 

u02A 

0 0 64 






0C62 

CWD 

QG2C 

0 0 54 






0J71 

GTOeUF 

0035 

3 0 53 , 

0 063, 

0181, 

3 193, 

0 195, 

0197 

DU72 

■PA 

0 0 5 9 

0 0 42 






0 0 79 

PAX 

0061 

0 0 73 






0081 

PAl 

0063 

0 0 78, 

u 0 8 4 , 

0 0 89, 

0 099 



DG82 

TRi 

0065 

0 0 85 





0Q8S 

PA2 

0Q6C 

0 085 






0091 

PA3 

096F 

0 0 83 , 

0 09 4 





0092 

TR2 

0071 

3 0 95 






0 C 98 

PA4 

0078 

0 0 96 






0 lOO 

PAS 

007A 

0 0 93 






0102 

CR 

007C 

0 0 94 






0103 

PABUF 

007D 

0 0 84 






0104 

ABS 

0 0 8 0 

0 0 24 , 

0192 





010 5 

CHCT 

0 0 81 







010 7 

EXIT 

0083 

0 0^6, 

0 0 7 0, 

U 1 Ll 1 , 

0115, 

0188, 

0217 

0112 

ERR 

0 08 9 

0 135, 

0258 




0 116 

RMOO 

008D 

0108, 

Gill, 

0 117 




0117 

PARAM 

0g8D 

3 124, 

Q148 





Q118 

F2 

008E 

0 0 25 






j 119 

JO 

008F 

0 0 40 , 

0 120 





0 12 Q 

NAME 

QQ8F 

3 157, 

0 253 , 

Q 2 4 7 , 

3 2 82, 

0285 


•312 6 

JOli 

0097 

0123 






0 13 0 

JOl 

009D 

3 121, 

0125 





3133 

JQ12 

G 0 A1 

0128 






013 6 

ISAVE 

00A5 

00 29, 

0175 





013 7 

J03 

00 A6 

0132 






014 7 

J031 

0 0 B 5 

0145 






3153 

J033 

OOBB 

0 149 






015 7 

3LN 

OOBF 

0 160 







o 



o 

: O 

' , . . C) 

V,..' 

■ 

- 

- Pi 

o 

0216 . Q 
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o 

o 

c 

o 
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Olbl 

GOON 

00C3 






0178 

JOIA 

GuD6 

j 1 5 2 » 

0184 




0182 

J02 

OODB 

0 180 



' C' 

L--‘ 

0185 

J03A 

OCOE 

0183 





0189 

TAGlOu 

U0E2 

0187 





0199 

J05 

00 F 0 

0 2 08 
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0 


P0G91 

0 0 0 0 





0186 

PO 092 

000 0 


TRNADR 

NUM 

Q 

0189 

P0093 

7FFF 

X 

BRKPTD 

ADC 

BRKPT 


CHECK FOR BREAKPOINT SWITCH 
NOT SET 

BREAKPOINT SWITCH =0 


ON ^^MSOS 4.0M3100142 

M8i00143 

M31J0144 

Mdl00145 

M3100146 


BRKPTO PROGRAH SIZE 

READ BREAKPOINT FROM LIB.LU. 

STORE IN READ M.M. REQUEST 

END OF AVIALAELE UNPROTECTED CORE 

FIRST LOCATION OF READ 

CHECK IF BREAKPOINT FITS 
IN UNPROTECTED CORE. 

SAVE Q 

LENGTH OF BREAKPOINT MODULE 


M81L 0147 
M31Q 0148 
M8100149 
M81Q 0150 
^‘^MSOS 4.0M8100151 
^^MSOS 4. 0M8100152 
^^'MSOS ii.aM8100153 
^^MSOS 4»uM 8130154 
M8100155 
M8130156 
M8100157 
M8100158 
M810C159 
M31Q0160 
MaiuQlEl 


RESTORE Q 

IF A.NE.O THEN BREAKPOINT 
WILL FIT IN CORE 
RESET UNPIO 


LOAD START ADOR.OF BREAKPOINT AND 
STORE IT AS TOP OF UNPROTECTED CORE 
SO THAT IT CANNOT BE OVERLAID 
READ IN BREAKPOINT 


CLEAR UNPIO SWITCH 

FORMAT WRITE 
COMPL.AODR. 

THREAD 
V,M,A ,LU 
NO. OF WORDS 
ADDR.OF BUFFER 

PASS THE TRANSFER ADDRESS 

GET RETURN s^-^HSOS 


M81Q3162 
M8100163 
M81001fa4 
M8100165 
M813 0166 
M81D0167 
M810 0168 
M81001&9 
M810017G 
M31C0171 
M810G172 
M8100173 
M310 0174 
M810017 5 
M810017 6 
M81U0177 
M810G178 
M31J0179 
M81uul80 
M81GG181 
MSliiOieZ 
4. GM81G0183 


TO JOBENT 

INDEX TO SCHEDULE JPT 13 
RETURN TO JOBENT 


M81Q0184 
'^^HSOS 4. OM310Q18 5 
»^MSOS 4. 0M8100186 
^^MSOS 4.0M8100137 


*-^!iS0S4. GM31Q0188 
M8130189 




JLG0V4 


PAGE 6 

date: 01/27/99 


G19 1 

P0094 

b 4 F 4 

EX2D 

RTJ- 

(SF4) 

WRITE ERROR MESSAGE 

M810Q191 

0192 

P0Q95 

0 D 0 G 


ADC 

SGD0G» 0 ,0 ,S18FC 

M81G0192 


P0Q96 

0 0 G 0 







P0097 

0 0 0 0 







P0Q98 

18FC 






0193 

P0C99 

0 0 07 


ADC 

$7,EX21-EX20-1 

M8100193 


PO G9A 

00 ID 






019*^ 

P009B 

C8FB 


LDA^ 

EX2Q+3 

WAIT FOR COMPLETION 

M81G0194 

0193 

P009C 

0101 


SAZ 

1 


M81Q0195 

019 6 

P0Q9D 

18FD 


JMP^ 



M81Q 0196 

0197 

PO G9E 

60 F3 


STA- 

$F3 

CLEAR F3 IF BRKPT WONT FIT 

M31J 0197 

019a 

P0G9F 

18E3 


JMP^' 

T 

EXECUTE WITHOUT BREAKPOINT ^’^MSOS 4.0 

M810Q198 

0199 






READ MASS MEMORY SUBROUTINE 

M813 0199 

020 0 

PODAO 

OOOG 

REAO^M 

C 

0 


M810 0 20 0 

02 01 

POOAl 

680A 


3TA^‘ 

SN+1 


M31j 0 201 

02 0 2 

PQ0A2 

4808 


STO^ 

SN 

Q HAS MSB, A HAS LS B OF MM ADDRESS 

M810 0202 

0205 

P00A3 

54 F4 


RTJ- 

($F4) 


M310 0 20 3 

02D-. 

PQ0A4 

4800 


NUM 

$4800 ,0 

^’^MSOS' 4, 

OM8130204 


P0GA5 

0 00 0 






0203 

POOA6 

GOOD 

TH 

NUM 

0 

»*MSOS 4. 

GM310 0 20 5 

u 2 0 6 

PO GA7 

C 8C2 

LUWR3 

NUH 

$08C2 

^^HSOS 4, 

OM810 020 6 

020 7 

P00A8 

0 0 0 0 

NW 

NUN 

$0 0 0 0 


H810 0207 

0 23 0 

P0QA9 

0 0 0 0 

FL 

NUM 

$ 0 0 0 0 


M81D&206 

020 9 

PGOAA 

0 0 0 0 

SN 

NUM 

$G ,$G 


M81uG2G9 


P 0 0 A B 

0 Q 0 0 






0210 

POO AC 

C8F9 


LDA^ 

TH 

WAIT FOR COMPLETION 

M3 10 0 210 

0211 

POOAD 

U 101 


SAZ 

1 


M810G211 

0212 

DO OAE 

18 FD 


JMP^ 



M810u212 

u2t3 

POGAF 

ICFQ 


JMP-'^ 

(READMM) 


M3iOQ213 

0214 

PO 0 BO 

D 8G2 

L18R-J 

NUM 

$08G2 

ADDRESS OF LIBRARY LU. ^^’^MSOS 4. 

CM81j 0214 

0213 

POOBl 

0 8B3 

SCRLJ 

NUM 

$0383 

ADDRESS OF SCRATCH LOGICAL UNIT ^-^MSOS 

OM8100215 

0215 



FOLLOWING IS ALFA FOR 


’ M810 0216 

0 217 





e 5 


M8100217 

0218 



JjL 


ElO 


M810U218 

0219 





BRKPT 


M8100219 

0220 

P00B2 

0 D45 

EX21 

NUM 

$0045? $3500 

, $4531, S3G0D, $4252 

M810 0 22 0 


P0uB3 

3500 







PQOEA 

4531 







POO B5 

30 00 







POO Bo 

4252 






0221 

PO 0 B 7 

4B50 


NUM 

$4350 ,$5400 


M810Q221 


POOB8 

5400 






0222 

P00B9 

ec20 

PGEJ3T 

NUM 

$0C20 


M810 0222 

022 3 

POOBA 

2020 


NUH 

$2020 


M81GD223 

022- 

POOBB 

2020 


NUM 

$2020 


M8100224 



JLG0V4 
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date: 01/27/99 


0226 





if. if. 2^ 

: if. if. if. if. if. if. if. if. if. 

022 8 




^ THIS 

SUBROUTINE JUM 

0229 




^ LOADER 


0231 





0233 

pooac 

7FFF 

X 

XSWAP 

ADC 

SWAPCK 

025 4 

POQBD 

7FFF 

X 

UNPI03 

ADC 

UNPIO 

0235 

P G OBE 

0 0 00 


QSAV 

ADC 

0 

02 5 6 

POuSF 

0 0 0 0 


LOAD-R 

0 

0 

0237 

POOCu 

5309 



RTJ-> 

LLR 

0238 

POOCl 

48FC 



3TQ- 

QSAV 

0239 

P0QC2 

EOEE 



LDQ- 

SEE 

024J 

P00C3 

0600 



SPB 

0 

0241 

P00C4 

OCCO 



ENQ 

G 

0242 

P00C5 

4C19 



STQ^ 

(LOAOI ) 

0243 

P00C6 

0400 



EIN 

0 

024-r 

P00C7 

E8Fo 



LDQ- 

QSAV 

0245 

P0GC8 

1CF6 



JMP^ 

(LOAD-R) 

024o 

P0QC9 

UOCO 


LLR 

0 

0 

02 47 

POGCA 

4 3F3 



: STQ^ 

QSAV 

0 2 46 

PO QCB 

ECOO 



LDQ 

CLOAOEP) 


POOCC 

FF61 





0249 

POOCD 

0152 



SQN 

LOADLl 

0 25 u 

POOCE 

18 GO 



JMP 

ERJ03 


POOCF 

FF5F 





0 2 51 

PQODO 

4800 


LOADlI 

3TQ--^ 

LOADLZH 

0 2 5 2 

POODl 

DGOD 



RAO^ 

( LOADI) 

0253 







0254 




Sf, 



02 55 

P00D2 

E8F6 



LDQ-^ 

LLR 

0 2 5 6 

P 0 C D 3 

4400 

X 


STQ 

JPRETi 


PO 0 D4 

7FFF 

X 




0257 

POODS 

Eu 00 

X 


LDQ 

= XJRRETN 


POODb 

7FFF 

X 




0 2 5 8 

P0007 

4400 

X 


STQ 

JPRET 


P00D8 

7FFF 

X 




0259 

PG0D9 

40EE 



STO- 

SEE 

0 25 0 

POODA 

0 700 



CPB 

0 

0251 

POGDB 

E8E2 



LOQ^' 

QSAV 

02 52 

POuDC 

1400 


LOADL2 

JMP + 

3 


POGDD 

0 0 00 





025 3 

PO ODE 

7FFF 

X 

LOA 01 

ADC 

LOA3IN 




POINTER TO UNPIO RESET 
POINTER TO UNPIO SWITCH 


GIVE THE LOADER CONTROL 

SET PROTECT SIT FOR 
CLEAR FLAG 

RETURN LOCATION 

RETURN TO CALLING PROGRAM. 

CHECK IF LOADER PRESENT 


LOCATION OF LOADER 
SET FLAG FOR PROTECT PROCESSOR 
TO LET LOADER READ AND WRITE 
BELOW THE SCRATCH AREA. 

LOADER RETURN ADDRESS IS AT RTJ LLR PLUS 1 
PATCH RETURN IN TRVEC MODULE 

RETURN FROM LOADER TO JPRETN IN TRVEC MODULE 

PATCH THE PRESET TABLE IN LOCORE 

CLEAR PROTECT BIT FOR 
RETURN LOCATION. 


M81'j 0226 

M81j 022B 
M81j0229 

M8iafl23i 


M31QQ233 
M3100234 
M813 0236 
M8100236 
H31Q0237 
M810 0238 
H3ij 0 239 
M81Q 0240 
M8100 241 
M810Q242 
N8 lu 0 243 
H810Q24H 
M810 02L5 
M8i0Q24b 
M81 j 0 247 
M8130248 

M8100249 
M81u 0 25 0 


M31Q 3 251 
M8130252 
M81 J 0 253 
H813 0254 
M8130255 
M810 025o 

H81Q0257 

M81Q0258 

M810Q259 
M3100260 
M3 13 02&1 
M8100262 

M810 0265 


(’ 


JLG0V4 PftGE 

r'i 



02 5 5 

PQ ODF 

0 00 0 

LINK 

0 

0 


0256 

POOEO 

0A02 


ENA 

2 

n 

025 7 

PuQEl 

p 8 Q 6 


RTJ^ 

CMLOAD 


02 5 8 

PUCE2 

OAOA 


ENA 

10 


025 9 

P00E3 

p8 0 4 


RTJ^‘ 

CMLOAD 


0 27 0 

P 0 0 E 

0AC7 

LINKl 

ENA 

7 

o 

0271 

°0 DE5 

5802 


RTJ- 

CMLOAD 


0 2 72 

P00E6 

18FD 


JMP«^ 

LINKl 


0273 

P00E7 

ouoo 

CMLOAD 

0 

0 


G2 7-. 

P00E8 

58D6 


RT 

LOAOLR 

O 

0275 

PQ0E9 

01 36 


SAM 

EREXIT 

027 6 

POOEA 

0161 


SQP 

1 


0277 

POQEB 

ICFB 


JHP^ 

(CMLOAD ) 


027 8 

POOEC 

EOFF 


LDQ- 

I 

o 

0 279 

POOED 

4800 


STQ 

SAVI 


PGOEE 

FF49 




023 0 

POOEF 

ICEF 


JMP^ 

(LINK) 


0231 

P 0 0 Fit 

1800 

EREXIT 

JHP 

LDERR 



POOFl 

FF3F 





G282 




END 

JLGV4 


date; ul/27/99 

LINK ENTRY POINTS 

PATCH TO PROGRAM LIBRARY 

PRINT UNPATCHtD EXTERNALS 

PERFORM LOADER FUNCTION 
LOADER ERROR-ABORT JOB 

UNPATCHED EXTERNALS REMAIN 

SAVE AODR. OF KEY LOADER INFRO. 


PG'1= 0QF2 ( 2^2) COM = 0 00 0 ( 0 ) DAT = 00 0 0 ( 0 ) 


o 

o 

0 

o 

o 

o 

o 


o 


^^MSOS A.0H31G 0265 
»»NSOS ‘T.OM810 0266 
^^MSOS <4.0M610Q267 
^^MSOS 4, 0M310 02o6 
^^MSOS 4.0Mai00269 
^-MSOS 4. 0M81Q 0 27Q 
*^MSOS ^.CH31QD27i 
»*MSOS H.0M3100272 
^^MSOS -It. 13M810 0 27 3 
♦^MSOS 4. OMSIO 0274 
-^MSOS 4. M813U275 

»^HSOS 4.0M813027B 
*^»MSOS 4.0M61U 027 7 
»^MSOS 4.0M81Q0278 
»^MSOS 4.0H81Q0279 

»^MSOS 4. 0M81C0280 
^»MSOS 4.0 M31Q0281 

**MSOS 4. 0M31QO282 


C' 

o 

o 

o 

c 


I ■: 

0 

o 

o 

o 

o 

o 

o 


JLG0V4 
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DATE! Cl/27/99 


o 

E 0 U I V 

A L E N 

C E S 

o 

DEF, LINE 

NAME 

VALUE 


0 u 0 0 

I 

OOFF 


0 0 2 4 

LPMSK 

OU 0 2 

o 

0 0 2 5 

HFFFF 

u012 

0 02 6 

HFFQG 

OOIA 


0 0 2 7 

HO OFF 

00 0 A 


0 028 

H0 020 

0028 

’D 

3 0 29 

H80 0 0 

0u32 

0 0 30 

ZERO 

0022 

o 

0 0 31 

9ISP 

0 0 E A 


u 

o 

o 

■D 

o 

o 

o 

o 

o 

r"\ 


RE-ERENCED AT LINE NUMBER 

(090255) 0039, 0040, 0278 

( 000002 ) 

(000018) 

( 000026) 

( 000010 ) 

(0 Q0G40) 

(000050) 

(000034) 0127, 0137 

(000234) 0119, 0181 


C.‘ 

o 

r-', 

V,..' 

o 

o 

o 

n 

c* 

in 

O 

o 

o 

o 

o 

o 


o 


JLG0V4 


date: Oi/27/99 


PAGE 10 


r> 


Q SYMBOLS O 


o 

DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LIME NUMBER 



•Dull 

JLGV4 

GOOD 

0011 





0 0^8 

TRNV 

00 0 6 

0 0 46 




o 

UQ4G 

JPIA 

00 0 8 

0 0 45 



C 

3 J 5 1 

LOOP 

0013 

0 0 55 





0 u 5 b 

OUT 

0018 

0 0 53 





0 ij 6 4 

CONTRL 

0022 

0 035 , 

0 06G , 

0110 


r''\ 

0 06 5 

ERRBUF 

0023 

0 0 48 , 

0 08 5 



u 

0066 

F2 

002 4 

0 034 





3 0 71 

JOBP3 

0 0 2b 

0 0 42 





0 073 

SM 

0027 





; ) 

0 Q 74 

JOBP 

00 28 




C ) 


007 5 

J04 

00 29 






0 0 7 6 

J03 

002A 






0078 

BPS 

002C 

3 142, 

0146 




0 0 79 

RI 

Q02D 



0248 



QL58Q 

LOADER 

Q02E 

0 051, 

0141, 



Du 8 4 

ERJ03 

002F 

0 250 





0 0 8 5 

LDERR 

0 U 3 1 

3 281 




o 

0Q88 

RETRN 

003 4 

0D87 




0 0 8 9 

LBL5GO 

003 5 





0 0 90 

LBL5 

0 G 3 b 

0 0 53 





3 102 

3AVI 

00 38 

0124, 

0279 



o 

0104 

PLLOAD 

0039 

0 0 63 



O 

010 6 

LULOAD 

Q03C 

0 062 





3 112 

PG 

0043 

3114, 

0 118 




0 123 

30MP1 

0 0 4 8 

0 114 





3123 

EX8 

Q04D 

3 105, 

0111 


’0 


0139 

EXIG 

G05D 






0 140 

EX9 

0 05E 

0 129 





316 7 

EX13 

0 0 7 D 

0 164 



' o 

r'"'\ 

0173 

EX15 

0082 

0144 


0198 


0174 

T 

jQ83 

0 176, 

G 180, 


3 182 

C0MP2 

0 08 B 

0 176 





Q184 

JBPR 

0 0 80 

0 0 57 



' o 

o 

0 187 

EX15Z 

0090 

0185 

0182 


0166 

TRNADR 

0 0 92 

0126, 



0189 

8RKPTD 

0095 

3147 


0 194 



3 191 

EX2G 

0G94 

3 166, 

0193, 

o 


0 200 

READMM 

OGAO 

3 139, 

0172, 

0213 

'■-u 

0 20 5 

TH 

0 0 A 6 

0 210 

0 152 



3 20 6 

LUWRD 

Q0A7 

0136, 




O 


O 


JLG0V4 


paGE 11 


DATE! 01/27/99 


G 20 7 

MW 

00A8 

0 131, 

0 15 0, 

0160 

0 20 8 

FL 

0 0 A9 

3 134, 

0155 


0 209 

3N 

uOAA 

0 201 , 

0 202 


0 214 

LIBRLU 

QOBG 

Q 151 



0215 

SCRLU 

OOBl 

9 135 



0 220 

EX21 

00B2 

0 193 



0 222 

PGEJCT 

00 B9 

0 118 , 

0 18 0 


0233 

XSWAP 

OOBC 

D165, 

0173 


0 234 

UNPIOS 

OOBD 

0123 



0 2 35 

013 AV 

GQBE 

3 159, 

0162, 

0238, 0244, 0247, 0261 

0 23 6 

LOADER 

OQBF 

0121, 

0245, 

0 274 

0 246 

LLR 

0 00 9 

0 237, 

0 25 5 


0 251 

LOADLl 

DODO 

•3 2 49 



0 26? 

LOADL2 

ODDC 

0251 



0 263 

LOADI 

OODE 

3 2 42, 

0252 


02b5 

LINK 

aoDF 

0 104, 

010 6, 

0280 

3 270 

LINKl 

u 9 E 4 

0 272 



0273 

3MLOAD 

00E7 

0257 , 

0269, 

0271, 0277 

0 281 

EREXIT 

OOFO 

0 2 75 




JLG0V4 


DATE 


Ci/27/gg 




r'’) 


PAGE 12 


O 


o 

o 

E X T E R 

N A L S 


DEF .LINE 

NAME 

VALUE 


0 013 

TRNVEC 

00 0 6 


0014 

JBPROE 

0080 


QG15 

MIB 

ooig 

0 017 

LOADIN 

OODE 


0 013 

JPRET 

0QD8 


0G18 

JPRETl 

0004 


c: 15 

JPRETN 

uCD6 

*. f 

w 

ooig 

FILE2 

0 02 4 


u 0 20 

BRKPT 

0003 


j u 21 

JNPIO 

uOBD 


a G 22 

3WAPCK 

0 0 DC 


0 G 2 3 

COMPVh 

0077 


REFERENCED AT LINE NUHBER 

0037 
Q183 
0 0 56 
0263 
0255 
0 256 
0 257 
0 0 65 
0 isg 

0234 
0233 
0 161 


O 

o 


o 


o 

o 


o 




i \ 


o 


o 


o 


in 


O 

O 


O 


O 


O 


O 


O 


( ' 



o 


JLG0V4 
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DATE; 01/27/99 



o 

o 

'•'D 

O 


A L 

P H A 

B E T I 

CAL 

SORT 

EP5 

0078 

BRKPT 

G020 

BRKPT D 

EPEXIT 

0281 

ERJ03 

0 084 

ERRBUF 

E<8 

0123 

EX9 

u 140 

F2 

H- FFF 

0 G2 5 

I 

0 Ou 0 

JBPR 

J=>1A 

0G40 

JPRET 

•j 018 

JPRET 1 

LITKl 

u27G 

LLR 

0 24o 

LOADER 

LP'ISK 

0 0 2 4 

LULOAO 

3 106 

LUWRD 

asAv 

0235 

READHM 

0 200 

RETR^^ 

T 

017 4 

TH 

020 5 

TRNA3R 


0 F 

S Y H B 

0 L S 



0 189 

CHLOAD 

0273 

COMPl 

012 0 

0 0 65 

EXIO 

0139 

EXlo 

0167 

0 0 66 

FILE2 

0019 

FL 

020 8 

0184 

JBPROE 

001 t 

JLGV4 

0011 

0 018 

JPRETN 

0018 

LBL5 

QQ9Q 

0 0 80 

LOADI 

0263 

LOADI H 

0017 

0205 

MIB 

0015 

NW 

G20 7 

0 088 

RI 

0079 

SAVI 

0102 

0188 

TRNV 

0038 

TRNVEC 

0013 


O 

O 

Q 

O 

O 

o 

o 

o 

o 


C0MP2 

0182 

C0HPV4 

0023 

EX15 

0173 

EX15Z 

0187 

HQQ20 

0028 

HOOFF 

0 0 2 7 

J03 

0 07 6 

J04 

00 75 

LBL5G0 

0089 

LDERR 

00 85 

LOADLl 

0 251 

LOADL2 

0252 

OUT 

0056 

PG 

0112 

SCRLU 

0215 

SM 

0 0 73 

UNPIO 

0021 

UNPIOS 

0234 


CONTRL 

0 06 4 

'3ISP 

0031 

EX20 

0191 

EX21 

0 22 0 

H80 GO 

0029 

HFFOO 

0026 

JOBP 

Q 47 4 

J08P3 

0071 

LIBRLU 

0214 

LINK 

0265 

LOA DLR 

0236 

LOOP 

0 0 51 

PGEJCT 

0222 

PLLOAD 

0104 

SN 

0 209 

SHAPCK 

0022 

XSWAP 

0 233 

ZERO 

0 Q 3 u 


O 

o 

o 

o 

C) 

o 

J _l 

o 
o 
o 
o 
o 
c 
o 
o 
( ) 


JPFLV4 


i 


date: Dl/27/99 


^AGE 


aaol 


NAM JPFLV4 DECK-IO M82 MSOS 5.0 


SUMMARY- 

110M82GJ 00 1 

0 0 0 2 


MASS STORAGE OPERATING SYSTEM VERSION 5.0 



Md2u0d02 

00 0 3 


SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 



M82 j 0 jOJ 

aoD^ 


COPYRIGHT CONTROL DATA CORPORATION 1976 



M32D 0 00 4 

G 3 J D 


JOB PROCESSOR FILE REQUEST PROGRAM MODULEl 



M8230LQ6 

03 0 7 


17GQ HASS STORAGE OPERATING SYSTEM VERSION 4.1 



M820 0 00 7 

00 0 8 


SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, 

CALIFORNIA 

M823 0 00 8 

0 0 0 9 


COPYRIGHT CONTROL DATA CORPORATION 1973 



M820 0009 

0 j 11 


V-V * V- 



M820 0 Gli 

0Q12 





M82G0012 

0013 


THIS MODULE ENTERED FRON THE JOB PROCESSOR FOR 

PROCESSING 

M32l! 0 313 

03 14 


A REQUEST REGARDING A JOB PROCESSOR FILE 



M823 0 01 4 

00 15 





M3 2Q 001 5 

0 016 


THIS NODDLE VALIDATES THE GIVEN REQUEST FORMAT- 



M32G 0016 

0017 


CORRECT REQUEST CODE AND CORRECT NUMBER OF CORRECTLY 

M82jOG17 

0 018 


FORMATTED PARAMETERS 



M82G 0 018 

03 19 


FOR A CORRECT REQUEST THE PARAMEThERS ARE SAVED 

IN 

A 

M32C 0019 

0020 

3f. 

BUFFER JPFL3F IN THE JOBENT PROGRAM. AN EXIT IS 

NADE 

M82G 0 02 0 

0 0 2 1 


TO THE J3B PROCESSOR WHICH IN TURN GALLS MODULE 

2 - 

•JPF2V4- TO 

MSZOO 021 

00 22 

■¥■ 

ACTUALLY EXECUTE THE REQUEST 



HS200Q22 

00 23 





M32CQD23 

0 0 2 « 


FOR AN INCORRECT REQUEST RETURN IS MADE TO THE 

JOB 

PROCESSOR 

H8200024 

0 0 25 

-¥■ 

WITH THE APPROPRIATE ERROR CODE 



M820 0 02 5 

00 2 & 





M8200026 


0 0 2 8 




M82G 0028 

OC 29 


EQUATE CAROS 

M820 0029 

0 0 3 0 

00 G2 

EQU 

LPMASK($2> 

M32J0030 

0031 

0 012 

EQU 

NZERO ($12) 

M8200Q31 

0 0 3 2 

u 022 

EQU 

ZERD ($22) 

M820 0 032 

03 3 3 

0 023 

EQU 

ONEBIT($23) 

M82Caa33 

0 0 3-4 

0 0 46 

EQU 

TEN ($46 ) TEN DECIMAL 

M82J0Q34 

0 0 3 5 

OOEA 

EQU 

ADI3P (SEA) 

M820OO35 

0 3 3 b 

0 0 F4 

EQU 

AMDNI { $F4) 

M82j 0035 


0 3 3 8 
0 3 39 
00 40 

0 0 01 


EQU 

void) 

FIRST WORD IS THE NUMBER OF PARAMETERS. 
REQUEST CODE 

M 3 2 J 0 0 3 8 
M 8 2 3 0 0 3 9 
M82G 0 040 

0 0 41, 

0 0 02 


EQU 

VQ2( 2) 

) 

M320u04i 

0042 

0 0 0 3 


EQU 

VG3 (3 ) 

) 1ST PARAMETER 

M82LiU0 42 

0 3 43 

0 0 0 4 


EQU 

V04( 4 ) 

) 

H8230 043 

0 0 4 4 
0 0 4 5 

0 0 05 

■V- 

EQU 

V05(5) 

) 

M8200 044 
M62G0045 



JPFLV-4 


^AGE 


date: 01/27/99 


0D46 

0 0 0 6 


EQU 

V06 (6) 

03 t7 
00 48 

0 0 07 


EQU 

MQ7 (7) 

0 9 49 

0 0 0 8 


EQU 

V08 (8 ) 

DJ 50 

0 0 C9 


EQU 

V09 (9J 

0051 
0 3 5 2 

u 0 0 A 


EQU 

\/10 110) 

0 3 53 

OOCB 


EQU 

Vll (11) 

0 3 5 4 

OQ OC 


EQU 

V12 (12) 

0 9 5 5 
0 0 5 6 

00 OD 


EQU 

V13( 13) 

0 3 57 

0 0 OE 


EQU 

V14 (l4) 

0 3 53 

00 OF 


EQU 

V15 (15) 

00 59 
0 3 6 0 

0010 

•> 

EQU 

V16 (16) 

0 3 61 

OG 11 


EQU 

V17 (17) 

00 62 

0012 


EQU 

V18 (18) 

00 6 3 

0013 


EQU 

\/19(i9) 

0 0 6 4 

0 014 


EQU 

V20 (20 ) 

0 3 6 3 

00 15 


EQU 

¥21 (21 ) 

0 3 6 6 

0016 


EQU 

¥22(22) 

0 3 6 7 

0017 


EQU 

V23 (23) 

0 3 5 8 

0018 


EQU 

¥24(24) 

0 0 69 

0019 


EQU 

\IZ5 1Z5) 

00 70 

00 lA 


EQU 

¥25(26) 

00 71 
09 72 

OOIB 


EQU 

¥27 (27) 


) 2ND PARAMETER 

) 

) 

) THIRD PARAMETER 

) 

) 

) 4TH PARAMETER 

) 

) 

) 5TH PARAMETER. 

) 


TEMPORARY CHAR STORAGE 
CHARACTER STORAGE ADDRESS 

TEMPORARY USAGE 

ADDRESS OF FLBUF2 „ 

TOTAL NUMBER OF FILES CHECKED SO FAR 


M320 0 046 
M3200047 
M32J 0 048 
M82Q 0 049 
M82GQQ5G 
M820 0051 
M32ij 0052 
M32a0Q53 
M82Q0054 
M3200055 
M823 0 Q5fa 
M3200057 
M8200058 
M823 0 059 
M8230050 
M3200061 
M3200062 
M32D0063 
M82 3 0 064 
M3 2u 0 06 5 
M820 0 066 
H820006? 
M823D068 
M320G069 
M82C0070 
MS2Q 0 1 
M82Gtjfl72 


0074 
0 0 7 5 
0 3 7 6 


^^^^ENTRY POINTS 
ENT JP-L 

* 


M8200074 
M8 23 0 0 75 
M820 U 076 


0078 

0079 
0 3 80 
Ou 81 
008 2 
0 J33 
03 8 4 
00 8 5 
008 6 
00 8 7 
0388 
0 0 89 
009 9 


^^■^^‘v^^^EXTERNAL POINTS 
EXT MI3UF 
EXT PKEYV4 
EXT JBOROE 
EXT TRNVEC 
EXT MI3 
EXT JBFLV4 
EXT AYERTO 
EXT AMQNTO 
EXT AOAYTO 
EXT LOGIA 
EXT FILES 
EXT PAR3V4 


SMI BUFFER ADDRESS 

ENTRY POINT TO JO BENT (T RNVEC) 
A8S.ADRS OF T.RANTA BUFFER IN JOBENT 


NBR OF JP FILES IN SYSTEM 
CURRENT SYSTEM YEAR 
CURRENT SYSTEM MONTH 
CURRENT SYSTEM DAY 


*->MSOS ■+. 
^^MSOS 
^^MSOS 4, 


LOG. WITH THE ADDRESS OF THE JOBENT BUFFER 


M8230073 
M3230Q79 
M320 0 OSG 
H8200aSl 
M8200082 
M32Q0083 
M82aQQ84 
l»^M82aO 085 
1 »'^M82 30 086 
1*-^M82G0Q87 
MB20QQ88 
M82G 0 089 
M82G0090 


( ) 


'1 



JPFLVA 


PAGE 3 DATE; 01/27/99 




■ > 

00 92 









M8230092 


0 3 9 3 

P 0 Q 0 0 

C8FE 


JPFL 

NUM 

$C8FE 



M8200 093 

o 

GC9-* 

PGOGl 

6C68 



STA^ 

(F3) 



H82Q0094 

G u 9 5 





SAVE 

START ADDRESS OF JBFL PROGRAM 



H3 20Q 09 5 


GO 9 6 

P0D02 

6868 



STA''^ 

JBVOl 



M820G096 


0097 




3f. 





M820 Q 097 

o 

00 98 





SAVE 

THE CONTENTS OF REGISTER Q 



H32J 0 098 

0099 




Sf. 




M32JU 099 


G 10 0 

D00 0 3 

4869 



STQ^‘ 

JBV03 



M82jQ100 


0101 








M3200101 

Q 

0102 





SAVE 

IN^JT REQUEST BUFFER ADDRESS 



M3200102 

0103 

P 0 Q 0 H 

E 4 GO 

X 


LDQ, 

MIBUF 



H32i 0103 



POOO 5 

7FFF 

X 







010 4 






IN HERE 



M3200104 


010 5 

P000 6 

4 8 65 



STQ"'- 

JBV02 



M820Q105 


0106 




¥ 





M32a0 106 


010 7 





COMPUTE THE OTHER ABSOLUTE AQORESSES OF LOCATIONS 



M8200107 


0108 




Jf. 

REFE; 

RRED TO IN THIS MODULE 



M32Q0108 


010 9 









H8200109 


0110 

PG007 

E366 



LDQ^ 

FLBFIA REQUEST PARAMETER BUFFER ADDRESS 



M32QullO 


Gill 

P G 0 G 8 

G 832 



AAQ 

Q 



M820Glii 


U112 

P0uG9 

486h 



STQ^ 

FLBFIA 



M82UG 112 


0113 

POOOA 

40FF 



STQ- 

I 



M82Q0113 


0115 





THE 

FOLLOWING CODE WILL SET SET THE JOB FILE TABLE 



H820 u 11 5 


0116 





TO ZERO THE FIRST TIME THE JOB FILES ARE USED. 



M32ij 0116 

w' 

0117 





THE 

CORE IMAGE IS UPDATED--WORD 19 OF EXTENDED CORE 



M8 20 a 11 7 


0118 





TABLE-- SO THIS PROCEDURE IS ONLY DONE ONCE 



M8200118 

] 'j 

0119 





EACH 

TINE A NEW SYSTEM IS BUILT 



M8200119 


0121 

PG003 

EO E9 


JBFL03 

LDQ- 

SE9 ADDRESS OF EXT. CORE TABLE 

'^-MSOS 

h. 

0M8200121 


0122 

POQQC 

C213 



LOA- 

19,Q 

-■^MSOS 

4- * 

OM8200122 


0123 

POGOO 

CiOl 



SAZ 

JB-L3A 

^^MSOS 

^ • 

GM320U123 


012 4 

^OOGE 

18hA 



JMP^ 

JBFL02 



M820 0124 


0125 

POuOF 

CO GO 

X 

J8FL3 A 

LDA 

=XJBFLV4 ANY FILES TO INITIALIZE 



M8200125 



POOlO 

7FFF 

X 








012d 


COlO 

p 


EQU 

JBF(»-1) 
J8"L3 B 

^^MSOS 

4 • 

0M82DG126 


0127 

POOH 

0 117 



SAN 



M32Q0127 


0128 

P0012 

CS5A 



LDA- 

J0VO3 NO 



M8200128 


0129 

PO Jl3 

G132 



SAM 

JBFL31 



M8200129 

O 

013 0 

PCOIP 

1800 



JMP 

FLQQOl 



M820U 130 


P0015 

GO A3 









0131 

POOlb 

0C04 


JBFL51 

ENQ 

4 ABORTING A JO SO 



M820C131 


0132 

P0017 

13 0 0 



JMP 

FL007& JUST GET OUT 



H8200 132 

r"'* 


PG 018 

OOFE 









0133 

P0019 

0 013 


JBFL3B 

INQ 

19 

^^^^MSOS 

4. 

0M8200133 


0134 

POGIA 

4822 



STQ^ 

FWORD SAVE FLAG ADDRESS 

»^MSOS 

4 • 

0M82QQ134 


0135 

PGOIB 

0DF4 



INQ 

-11 

’^^MSOS 

H • 

GM8200135 


0135 

PCOIC 

C622 



LDA- 

{ZERO),Q FIRST SECTOR OF DIRECTORY 

«-«^HSOS 

4 • 

OH820Q136 


QI37 

POOlO 

6812 



STA» 

SECTOR 

•*^«MSCS 

4. 

QM3200137 


ul38 

POGIE 

GOFB 



INQ 

-4 


4 • 

0H8200138 


o 

o 

o 

o 

o 


o 

o 


o 


o 

o 

o 


o 


o 



o 






date: 01/27/99 



o 


-^‘MSOS 4.0M320 0 i39 
»-^MSOS 4., 0M320D 140 
M820uiHl 
M320 0142 
M820 0143 
^^MSOS 4. 0M8200144 
^-MSOS 4.UM820Q145 
^^HSOS 4.QM82JQi46 
^^MSOS 4. GM820 0147 
^^MSOS 4.0M32001 hB 
^^MSOS 4. GM8200149 
^^HSOS 4.0M82Q0i50 


o 

o 

o 


^^MSOS 4.0M82Q0151 


^^MSOS 4, 0M8200 152 
»«MSOS 4. GM3200153 
^^MSOS 4.GM8200154 
»^HSOS 4. QM820 0155 
^^^MSOS 4.0M82D0156 
«^^HSOS 4. OM82Q0157 
^^MSOS 4.0M820G158 
^-MSOS 4.GM3200159 
^^MSOS 4 . QM82a0150 
^^^HSOS 4.0M32 0 0151 
^^MSOS 4.0H32u01b2 
^^MSOS 4. 0M82Q0163 
^^MSOS -t. 0H820 015 4 
»^"MSOS 4. uM82t30165 
M8230166 
-^MSOS 4. 0^1820 0167 
^^HSOS 4. UH32G0168 
♦*MSOS 4.UM8200169 
»^MSOS 4.0M82iJG170 
M8200171 


O 


o 

C) 


»*HSOS 4. 0M320 017 2 
**^HSOS 4.0M8200173 
^^HSOS 4. CM828 0 174 
^*MSOS 4.0(1820 0175 
^^MSOS 4. QH8200176 
»^MSOS 4.QM8230177 
^^MSOS 4.0M320D178 
^*MSOS 4.0M8200179 
^^MSOS 4. GM823 0 180 
^-HSOS 4.0H320Q181 
^^HSOS 4.0M82QG182 
H82G0183 



O 



M3200184 
«-^MSOS 4.0H820G185 


C' 

o 

o 

o 

o 

r') 

{ 'i 

O 




JPFLVA 


PAGE 5 

DATE: 01/27/99 




013c 

P0053 

68D5 


STA^ 

DCOMP+2 


^-MSOS 

U . 

GM320 0186 

018 7 

P 0 0 5 H 

1802 


JMP^ 

DCONP 

UPDATE CORE IMAGE 

*^MS0S 


GM820 0137 

0188 

PQ 05 5 

0 161 

COHPl 

SQP 

1 


’^•^MSOS 


CM82D0188 

0189 

P0056 

1800 


JMP^ 

DCOMP 


^^MSOS 

^ • 

0M82Q0189 

0190 

P 0 0 5 7 

18 61 


JMP^ 

FLj 001 


»-HSOS 

4 • 

GM820D190 

0191 









M3200191 

0192 




CHECi 

K WHETHER THE 

REQUEST IS TO CLOSE ALL THE FILES 



M320 0192 

0193 




OPENED 30 FAR. 




M820Q193 

019A 









M82QD194 

0195 

P0058 

E814 

JBFL’3 2 

LDO’^ 

JBVOS 




M32G0195 

019 6 

P0059 

0 1 64 


SQP 

JBFL05 

NOT SUCH A REQUEST. SKIP 



M820 0196 

0197 

PDQ5A 

58 09 


RTJ» 

TE3TFM 

TEST FILE MANAGER PRESENT TEST 



M32a0197 

0198 

P0050 

41 01 


STQ- 

1,1 

JUMP TO CLOSE ALL PREVIOUSLY OPENED 

FILES 


M8200198 

0199 

P005C 

1800 


JHP 

FLQ190 




M8200199 


PD05D 

0129 








020 0 









M820 0200 

0201 




EXIT 

TO CALLER. NO 

FILES TO BE CLOSED 



M820 0 201 

020 2 









M82Q0202 

020 3 

PO 05E 

0DF8 

JBFL0 5 

INQ 

-7 




H82C 0205 

02 0^ 

PJ05F 

0 1 61 


3QP 

HOF MTS 

REWIND OR UNLOAD 



M8230204 

0 205 

P0060 

5803 


RTJ^ 

TE3TFM 

TEST FILE MANAGER PRESENT TEST 



M82j 0 20 5 

0 2 0 o 

= 0061 

180u 

NOFHTS 

JMP 

FLO 001 

EXIT TO PROCESSOR 



M820Q206 


P0062 

G 0 56 









0£0d P00 d3 uOOO TEST^M NUH Q 

0209 PuD64 G8AB LDA^ JBFL3Afi 

0210 PG065 0101 5AZ NO-M 

0211 PDG66 ICFC JMP^ (TE3TFM) 

0212 P0067 1800 NOFM JMP FL0070 

P0 068 0 0 A5 

0213 ^ 


CHECK FOR FILE HA.'JAGfcR PRESENT 
GET NO. JOB FILES 
NO FILES, 00 NOT RETURN 
FILES PRESENT, OK TO RETURN 
JPOA, NO FILES, GANT OPERATE 


M82j 0208 
M82j 0 20 9 
N320 0210 
H82u0211 
M82G 0212 

M82UG213 


O 

o 

o 


o 

C) 

c 

o 

o 

(D 

o 

o 

o 

o 

o 

c 

o 


JPFLV4 


3AGE 


6 


date: Ui/27/99 




^^^^^f»^VARIABLES USED 



PQQd9 
P0Q6A 
P 0 0 6 B 
PG 06C 

7FFF 
0 0 0 0 
0 0 0 0 
0 0 00 

X F3 
JBVGl 
JBV02 
JBV03 

it 

ADC 

ADC 

AOC 

NUM 

FILES 

0 

0 

0 

START ADDRESS OF JBFL PROGRAM 
INPUT RERUEST BUFFER ADDRESS 
TEMPY STORAGE FOR Q PASSED BY 

CALLER 

PC 060 

0 0 6E 

V 

FLBFl A 

AOC 

FLBJFl- JPFL 

ADDRESS OF FLBUFl 




if. 

■V* 

w 

THE BUFFER -LBUFl 
GIVEN REDJEOT.THE 
INFORMATION IS THE 

IS USED TO SAVE THE PARAMETERS OF THE 
TEMPY STORAGE FOR SAVING INTERMEDIATE 
LATTER PART OF THIS BUFFER 

PG C &E 

00 1C 

■r 

FLBUFl 

8ZS 

FLBJFK 28) 




M 82 a a 215 

M8200216 
M82u Q 21 7 
M82aii218 
M32Q3 219 

H82a0220 

M82i3u221 
MS2J0222 
M820 0 223 
H32302E4 
M82j0225 
H320 0226 
M82Q0227 
M8 20 0 226 
M823 0 229 


i" 


r'') 



JPFLy4 


PAGE 7 


DATE: 

01/27/99 


0231 












0232 




REQUESTS AND THEIR 

CODES TABLE 




o 

0233 











023^ 

PG08A 

4^+45 

FLTu J 1 

ALF 

3, DEFINE 








P0 08B 

4649 











PG08G 

aE45 









o 

0235 

°008D 

0 0 00 


NUM 

0 

REQUEST 

CODE 

0 

FOR 

DEFINE 

023 b 
0 2 3 7 

PQ08E 

52 45 


ALF 

3,RELEAS 









P008F 

“+C 45 









o 


P0u90 

4153 









023 8 
02 39 

PQ091 

OGGI 


NUM 

1 

REQUEST 

CODE 

1 

FOR 

RELEASE 



0240 

P0092 

4F5D 


ALF 

3, OPEN 








PQQ93 

454E 











P0 094 

2020 










02ifi 

0242 

Pfl 0 95 

0 G 02 

¥ 

NUM 

2 

REQUEST 

CODE 

2 

FOR 

OPEN 


0243 

P0Q96 

4 3 4C 


ALF 

3, CLOSE 






J 


PuG97 

4F53 











P0098 

4520 










B24h 

P0099 

0 0 03 


NUM 

3 

REQUEST 

CODE 

3 

FOR 

CLOSE 

o 

0245 

0246 

PQ09A 

^D4F 


ALF 

3, MODIFY 








P0098 

44 49 










P009n 

4659 









o 

0247 

0248 

PuQ9D 

0 0 04 


NUN 

4 

REQUEST 

CODE 

4 

FOR 

MODIFY 


0249 

P009E 

46 49 


ALF 

3,FILTBL 








P009F 

+ C54 











POOAQ 

42 4C 










025 0 

POOAl 

00 05 


NUM 

5 

REQUEST 

CODE 

5 

FOR 

FILTBL 


u251 

0252 

POOA2 

50 55 


ALF 

3, PURGE 






r*^\ 


P0QA3 

52 47 











P00A4 

4520 










u 2 5 5 
025^ 

PO CiA 5 

0 0 06 


NUM 

6 

REQUEST 

CODE 

5 

FOR 

PURGE 

u 

0 2 5 5 

P00A6 

52 45 


ALF 

3,REW 







P00A7 

5 7 2 0 











P00A8 

2020 










0 2 5 o 

P00A9 

00 0 7 


NUM 

7 

REQUEST 

CODE 

7 

FOR 

RE HI NO 

o 

02 5 7 
0258 

POOAA 

554E 


ALF 

3,UNL 








PODAB 

4C2Q 











POOAC 

20 20 









o 

0259 
0 25 0 

POOAD 

0 0 08 


NUM 

8 

REQUEST 

CODE 

8 

FOR 

UNLOAD 


0251 

0252 

POOAE 

FFFF 


NUM 

SFFFF 

END OF i 

DEQUES 

T 

CODE 

TABLE. 


o 


n 

o 


1 





O 

M82i] 0231 
M8200232 
M82Q0233 
M32ii 0234 

o 

M82uQ 235 
M8200236 

' o 

M8200237 

r^ 

M8200238 
M820 0239 
M82Q 0240 

C-- 

M82C0241 

M82G0242 

M820Q243 

o 

M82D02h4 

M8200245 

M32jQ246 

o 

M8200247 


M3230248 
M32u 0249 


M320C250 

M8200251 

M8200252 

o o 

M8200253 
M820 0254 
M8200255 

0 

M32u0256 

M82DG257 

M3200258 

o 

M32j 0259 
M3200250 
M8200261 

o 

M32U0262 

o 


o 


o 



JPFLV4 


PAGE 


8 


date: Gl/27/99 



r^: 

o 

o 


0 2 0 H- 

0259 
0 2 5 6 

0267 PQOAF 0146 
0258 POOBO 012D 
0269 POQBi 0158 
027G P00B2 0120 

0271 P00B3 0131 

0272 POQBh 0136 

0273 P00B5 01 60 
027- PQGBb 0176 
0 2 7:^ PO0B7 0176 
0 2 7 6 


ADDRESSES OF THE VAIDATION S/ROUTINES 

V- 

FLT002 ADC FLD145-JPFL +0 DEFINE 

ADC FL0123-JPFL +1 RELEAS 

ADC FL0150-JPFL +2 OPEN 

ADC FL012G-JPFL +3 CLOSE 

ADC FL0140-JPFL +4 MODIFY 

ADC FL0190-JPFL +5 FILTBL 

ADC FL016Q-JPFL +6 PURGE 

ADC FL317a-JPFL +7 REWIND 

ADC FL0170-JPFL +8 UNLOAD 


o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

M820 0264 
M32Q 0265 
M82 0 0 266 
M8200257 
M820 0258 
M8200269 
H32CG270 
M82Q0271 
M8200272 
M8200273 
M820 0 27 4 
M820 0275 
M820G276 

r-. 


('3 


( ) 


O 


O 


o 


o 


c 


o 


o 

o 

o 


JPFLV4 


PAGE 
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date: 01/27/99 


0278 




c 

M823 0278 




0230 
0281 
02 82 
0 2 8 3 
023 4 

0235 PG0E8 C8B4 
023c P00B9 60FF 
0 23 7 POO BA OAOl 
0288 POOBB 5800 
^OOBC GOEO 
0239 POOBD 1811 
0 2 90 

0291 

0292 

0293 
029- 

0295 

0296 

029 7 

0298 POOBE OCGO 

0299 POOBF CACA 

0300 ^OQCO 013D 

030 1 POCCl B113 

0302 PQ0C2 0102 

0303 POOCo 0004 

0304 PQ0C4 18 FA 
030 5 

0306 P00C5 ODQl 
030 7 P00G6 CAC3 

0308 P0QC7 B114 

0309 PQQC8 OilE 

0310 P00C9 ODOl 

0311 POQGA GABF 

0312 POOCB B115 

0313 POOCC uiOE 
0 31 - 

0 315 POOCO 18 OB 

0 316 

u317 

0318 POOCE C4G0 X 
POQCF 7FFF X 

0319 POODO 6806 
03 2 C PQuDl OCOO 

0321 P00D2 4C08 

0322 PQ0D3 EO 32 

0323 P0004 QA02 
032- P0QD5 1400 

PQ0D6 0000 


* EXTRACT THE PARAMETERS OF THE REQUEST AND SAVE THEM 

IN BUFFER FLBUFi 

^ THE REQUEST CODE WILL ALSO BF SAVED IN FLBUFI. 

FL0 03 1 LDA^‘ FLBFIA 
STA- I 
ENA 1 

RTJ FLSOl COLLECT THE CODE CHARACTERS 


‘I- 


V- 


■V 

FL 0 U D 2 
FLOOD 3 


¥■ 

FLOQ] 5 




JMP- FLQ007 INVALID CHARACTER JUMP 


COME HERE FOR THE COMMA OR END OF REQUEST DELIMITER 
VALIDATE THE REQUEST CODE. 

AFTER THE REQUEST CODE IS SAVED IN Vj9,V20,ANO V?1 VALIDATE 
THE CODz . 

THE VALID CODES ARE IN FLTOGl TABLE. 


ENQ 0 

LDA^ FLTOOltQ 
SAM FLQ307 
EOR- V19,I 
SAZ FL0005 
INQ 4 
JMP^ FL0003 


ADDRESS OF FLTOOl 
end OF TABLE SKIP 

FIRST TWO CHARS HATCH. SKIP 
GET NEXT TABLE ADDRESS. 


INQ 1 

LDA^ FLTOOl, Q 
EOR- V20,I 
SAN FLQ07O 
INQ 1 

LDA^ FLTOOl, Q 
EOR- V21,I 
SAZ FL3G08 


CHECK NEXT TWO CHARACTERS 

SKIP IF NO MATCH OF 3RD AND 4TH CHARS 

CHECK NEXT TWO CHARACTERS 

MATCH FOUND. SKIP 




FLQ037 


JMP^ FL007E JUMP IF NO 

SET UP ro CALL A PROGRAM WITH 

LDA JBPROE GET RETURN 


MATCH OF 5TH ANO 6TH CHARS 
THE GINEN NAME 


STA^ FL007Afl TO JOBENT 

ENQ 0 RESET THE LOCKOUT FLAG 

STQ» {FL0078) 

LOQ- ONEBIH-15 SET Q NEGATUVE 

ENA 2 INDEX TO SGHDULE UPLOAD 

FL007A JMP+ 0 


M823u 280 
M820G28i 
M8Z00282 
M820 0283 
M320Q284 
M82Q 0 285 
M32QQ286 
M823 0 23 7 
M82j 0 288 

M8200289 
MB2 3 0 29 0 
M820G291 
M8 23 0 292 
M82G0293 
M32U Q 294 
M82C 0295 
M320 0296 
M820Q297 
M82G Q 298 
M820 0 299 
Mazoasoo 
M820 a 301 
M8230302 
M8200303 
M82j OoO 4 
M82a03Q5 
H82G03G6 
M8200307 
M82 j u 3 3 8 
M82Q 0 309 
M820031D 
H8200311 
M820Q 312 
M8200 313 
M8 20 0 314 
M8200315 
M82D0 316 
M82Q0 317 
H3230318 

M823D3ig 
M8200 32Q 
M820C321 
M8200322 
M8200323 
M820Q324 


C 


O 


r-i 


(' 1 


O 


( ) 



o 


o 

o 

o 


< ) 


c 


JPFLV4 


^AGE 10 


DATE; 01/27/99 


0325 



V- 



M8200325 

0325 

P0 007 

GD 01 

FL007D 

INQ 1 

SET UP TO GET NEXT CODE ENTRY 

M8200326 

03 2 7 

P00D8 

OD02 

FL0D7E 

INQ 2 

SET UP TO GET NEXT CODE ENTRY 

M8 23 032 7 

0328 

P0QD9 

18E5 


JMP- FLO 3 03 

PROCESS NEXT ENTRY 

M8230328 

03 29 






M82G0329 

0330 

POODA 

7FFF 

X FL007B 

ADC HI3 


M82j fl 330 

03 3 1 






M82U0331 

0332 




SAVE THE REDUEST CODE IN THE PARAMETER BUFFER 

M82Q 0 332 

0 3 3 3 






M82j 0 335 

0 5 3 H 

POODB 

uOOl 

FLOuO 8 

INQ 1 


M8200 334 

03 3 5 

POODG 

CAAD 


LDA^ FLT001,Q 


M8200335 

0 3 3 6 

= 0 ODD 

6101 


STA- 1,1 

PARAMETER BUFFER ADDRESS 

M82Q 0336 

03 3 7 






M32Q 0337 

0338 




CHECK ANY MORE PARAMETERS FOR THE REQUEST. 

M8230338 

0339 






MB 20 0 33 9 

0340 

POODE 

Cl 16 

FLOOlO 

LDA- V22,I 

CHARACTER GOT LAST 

M820 0340 

0 3 41 

POODF 

09D3 


INA -$2C 

CHECK IT TO BE A COMMA 

M8200 341 

0342 

POGEO 

0101 


SAZ FL0Q12 

SKIP IF A COMMA 

M82DD 342 

0343 

POuEl 

1815 


JMP^ FLQ050 

OTHERHSIE JUMP TO PROCESS REQUEST. 

M820G3H-3 

0 3 4 4 






M323 0344 

0345 




FOR A COMMA CHECK 

VnHETHER FIVE(MAX NBR FOR A REQUEST) 

M82 j 0 345 

0 3 46 




ALREADY SAVED. IF 

YES, REJECT. J04 

M32G0346 

0347 






M82QD347 

0348 

P0GE2 

C522 

FL0Q12 

LDA- (ZERO), I 


M320 0345 

0349 

P0GE3 

09FA 


INA -5 


M3200349 

0350 

P00E4 

0131 


SAM FLQ014 

OK LESS THAN 5 

M82D0350 

0351 

P 0 0 E5 

1828 


JMP^ FLG070 

REJECT. J04. INVALID PARAMETER 

M82j0351 

0 352 






H8200352 

0353 




SET UP rO GET THE 

PARAMETERS OF THE REQUEST, IF ANY 

M8 20 0353 

0 3 5 -T 






M820Q354 

03 5 5 

P00E6 

Dili 

FLU014 

RAO- V17,I 

UPDATE CHARACTER INDEX 

M82J0 355 

0 3 5 6 

°0 0E7 

cm 


LDA- V17,I 


M8200356 

0 3 5 /" 

P0GE8 

5 80 0 


RTJ FL3Q1 

COLLECT PARAMETER 

M82j 0 357 


PG0E9 

0 QB3 





0 3 5 8 

POOEA 

1823 


JMP^ FL0G70 

REJECT. J04. INVALID PARAMETER 

M82Q0358 

0 3 5 9 






M8230359 

0 3 50 




SAVE THE PARAMETER 

IN THE REQUEST PARAMETER BUFFER 

M820G 360 

035 1 




COMPUTE STORAGE ADDRESS 3*PARAM NBR f 2 

M82G0361 

0352 






M82G0 362 

0 3 5 3 

PQOEB 

C522 

FLO 0 20 

LDA- (ZERO), I 

PARAMETER NUMBER 

M6200363 

0 3 5 H- 

POOEC 

58 0 0 


RTJ F-302 


M82j 0 364 


POQEO 

0 QF3 





0 3 5 5 






M82J 0 355 

0 3 5 6 

POOEE 

C113 


LOA- V19,I 

SAVE THE 6 CHARACTERS OF THE PARAMETER. 

M8230356 

0 3 5 7 

P 0 0 EF 

6622 


STA- 1ZER0),Q 


M82QQ3&7 

0368 

P 0 0 F 0 

C114 


LDA- V20,I 


M82Q 0 368 

0359 

POOFl 

6201 


STA- 1,0 


M82Q0369 

03^0 

P00F2 

C115 


LDA- V21,I 


M82G0370 

037 1 

PG0F3 

62 0 2 


STA- 2,3 


H823 0 371 

0372 






H82Q 0 37 2 

0373 

P00F4 

0522 


RAO- (ZERO), I 

UPDATE NUMBER OF PARAMETERS SAVED 

M32G0373 

037 4 






M8200374 

0375 




AND BRANCH TO GET 

THE NEXT PARAMETER IF ANY 

H32] 0 375 



JPFLV 
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DATE; 01/27/99 


037 b 
03 77 


0379 
03S0 
03 81 
0332 
G3B3 
033-r 
0385 

03 8 6 
0 3 3 / 
0 3 8 8 
0 3 6 9 
039 0 

0391 

0392 
G393 
G39-. 
0 3 9 5 
0 39 6 

039 ^ 
0398 
0 399 

0 “T 0 w 

0 H 0 1 

0402 

040 3 
04-0 4 
0405 
0 4 0 o 
04Q7 
0408 

040 9 
G41C 

0411 

0412 

0413 

0^14 
0 415 
G-ftb 
u 41 7 
0 418 

04 19 

0 42 0 

0421 

0422 




P0DF5 18E8 


JMP- FLGOlO 


M820 0 376 
M820 0377 


♦ AFTER ALL THE PARAMETERS OF A REQUEST HAVE BEEN C0LLE3TED 

^ CHECK CORRECT NUMBER OF PARAMETERS HAVE BEEN OBTAINED. 


Af- 


P00F6 

Elui 


FLQU50 

LDQ- 

111 

PG0F7 

CA27 



LDA^ 

F.QQ8 0, Q 

P00F6 

Gill 



SAN 

CKPRM 

PG0F9 

1813 



JMP» 

FL0060 

POOFA 

C522 


CKPRM 

LDA- 

(ZERO) , I 

PO GFB 

Gill 



5AN 

GKNJM 

PuOFC 

13 11 



JMP4 

FLGG7D 

POOFO 

9A21 


CKN UM 

SUB"^ 

FLD 08 0, Q 

°0 OFF 

01 OD 



SAZ 

FLOOoO 

POuFF 

012D 



SAP 

FLG070 

P 0 1 u 0 

0149 



SQZ 

FL0G55 

POIGI 

0DF9 



INQ 

• ^ 

P010 2 

0147 



SQZ 

FLO 0 5 5 

P01G3 

OOFO 



INQ 

-2 

P 0 1 G 

0 1 45 



SQZ 

FLO 0 5 5 

PGlu 5 

QOFE 



INQ 

-1 

P0105 

01^5 



SQZ 

FL0060 

P0iu7 

ODFE 



INQ 

-1 

P0108 

0143 



SQZ 

FLO u6 0 

P0109 

0153 



SQN 

FLO J7G 

POlOA 

0901 


FLO 0 5 5 

INA 

1 

PG108 

0111 


if. 

SAN 

FL0070 

POIOG 

1818 


FL006G 

JHP4 

FLOlO D 

POIQD 

CGOO 


FLOC70 

LDA 

=NS3D34 

POILE 

3 0 5 4 





PO lOF 

OCOd 


FLO D72 

ENQ 

6 

PO llu 

48 00 


FL 0 G 7 5 

STQ» 

FLO 079 

POlil 

E400 

X 


LDQ 

TRNVEC 

P0112 

7FFF 

X 




P0113 

uDOA 



INQ 

10 

P0114 

6622 


if, 

SJl\- 

(ZERO) ,Q 

P0115 

E8 08 



LDQ^‘ 

FL0079 

PG116 

C4C0 

X 

FL0076 

LDA 

J BP ROE 

P0117 

aocF 

X 




POlld 

63BD 



STA^‘ 

FL0G7Af 1 

P0119 

OAOO 



ENA 

0 


REQUEST CODE 

ANY PARAMETERS REQUIRED ON THIS REQ. 

YES, CHECK NUMBER ENTERED 

NO, CONTINUE WITHOUT CHECK 

YES, WERE ANY ENTERED 

YES, VALIDATE NUMBER ENTERED 

NO, FLAG AS ILLEGAL PARAMETER 

TEST IF NUMBER OF FARMS. IS CORRECT 

VALID, EXACTLY MAXIMUM NUMBER 

TOO MANY, REJECT AS ILLEGAL PARAM. 

SKIP IF A DEFINE REQUEST 

SKIP IF A MODIFY REQUEST 

PURGE 

REWIND 

UNLOAD 

NOT UNLOAD EITHER. REJECT 
INVALID NBR OF PARAffETERS. REJECT J04’ 
JUMP TO VALIDATE THE PARAMETERS. 
ILLEGAL PARAMETER FORMAT. ERROR J04 


SAVE Q TEMPORARLIY 
GET TRANTA+10 


AND SAVE THE ERROR CODE 
GET Q CONTENTS 
GET RETURN 
TO JOBENT 


M320 0379 
M820 0380 
M8 20 0 381 
M8200382 
M8200383 
M820 0 384 
M82D0335 
M8200386 
M82Q 0387 
M820 0388 
M8200389 
H32]a390 
M82Q0391 
M8 20 039 2 
M3200395 
M8 20 0 39 4 
M82u 0395 
M820Q396 
M323 0 397 
H820 0 398 
M8200399 
M820 O 4 OO 
M820 0 401 
H82aa 402 
M82G0 403 
M820 0404 
M82j 0 405 
M823040b 
M8 2 3 0 40 7 
M 82 OG 4 O 8 

H82Q 0 4D9 
M 82 OO 4 IO 
M3 20 0 411 
M823 0412 
M820 0 413 


H8200 414 
H8200415 
M8 20 0 41 6 
M82u04i7 
M82Q O 4 I 8 
M82JU419 


M82D 0420 
M32Q 0 421 
M82Q0422 


JPFLV^ 


PAGE IE 


date; 01/27/99 


0i^?3 POllA 6CBF 
0 42 -* PQ118 GAOl 
G-r25 POllC 18B8 
D 4 2 6 

0427 POllO 0000 

0428 

0429 


STA"‘ {FL0 0 7B) 
ENA 1 
JMP^ FL007A 


FL0079 NUM Q 


INDEX TO SCHEDULE JOBPRO 


TEMPORAr<RY Q STORAGE 


0-r3i 
0432 
0 43 3 
U 4 3 H 
0 + 3 5 
0 4 3 6 

0437 

0438 
U43 9 
044Q 
0t41 
0-+42 
0443 


NUHBER 0" VALID PARAMETERS FOR REQUESTS 


PjllE 00 C3 FL0U50 MUM 
POilF 00 02 NUM 

P0120 0004 NUM 

P0121 C002 NUM 

P0122 0005 NUM 

P0123 0000 NUM 

PO 124 G Q 02 NUM 

P0125 0005 NUM 

P 0125 0005 NUM 


+ 0 DEFINE NUMBER MAY BE 2 OR 3. 
+ 1 RE LEAS 
+2 OPEN 
+3 CLOSE 

+ 4 MODIFY NUMBER MAY BE 4 OR 5. 
+5 FILTBL 

+6 PURGE MAY BE 1 OR 2 
+7 REWIND 
+8 UNLOAD 


0 44 5 
0-f46 
0-+47 

0448 P0127 


ElOl 


0449 

0450 P0128 EAGO 
P0129 FF85 

0451 P012A F8C0 
P012B FF3E 

Ui-52 PQ12C 1622 
0453 


PICK UP THE PARAMETER VALIDATION ROUTINE 


FL0130 LDQ- 1,1 
* 


LDQ FLTG02,Q 
ADQ JBVOl 
JMP- (ZERO),Q 


REQUEST CODE 

REQUEST COOE=INO£X TO TABLE 


0 4 5 5 
0 4 5 5 
045 7 
0 45 8 

0459 

0460 P012D OAOO 
U451 P012E 58 00 

P012F uOB9 

0 4 D 2 

0463 PG13fl 1856 


COME HERE FDR RE LE AS E , CL OS E 

VALIDATE PARAMETER AS A VALID FILE NAME 

FIRST CHARACTER MUST BE AN ALPHA CHAR. 


FL0120 ENA 0 

RTJ FL304 


FL0125 JMP- FL019Q 


PARAMETER INDEX=0 


EXIT 


o 


H82D0 423 
M82D 0424 
M8200425 
M8 20 0 42 6 
M82J0427 
M82D0428 
M82C 0429 


M82G 0 431 
M82 j L 43 2 
H3200435 
M82Q 0 43 4 
M82j 0 435 
M3 20 0 43 6 
H82C0437 
M8200 438 
H823 0 439 
M3200440 
M320 0 44l 
M82Q0 442 
H8200 443 


M820 0 445 
H820 0 44b 
M823 0 447 
H32U0448 
H3200 449 
M3200 45G 

M820 Q451 

M820 G45 2 
M8200453 


M8 20 0 45 5 
M8 20 0 45 6 
M82Q0457 
M52U0 458 
M82Q a 459 
M320 0 4b0 
M82QQ 461 

M820 0 462 
M82004&3 


O 

O 

O 

o 

o 

o 

o 

o 

C) 

o 

o 

o 



o 


JPFLV4 
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OATEt 01/27/99 


o 


04 b 4 


M 8200434 


o 


04b6 
04b 7 
0 4 5 8 
0469 
047 0 
0471 
0 4 72 
0 47 3 
0 4 7 4 
047 5 
0476 
047 7 
047 8 
047 9 

u 4 6 0 
0 481 

0482 

0-t33 

t] -t 8 4 

0485 
0 48 6 
0 497 
0 43 8 
G4 3 9 

0 -^go 

Q49 1 
0-^9 2 
0493 

0 494 

0 4 96 

0496 

0497 

0498 
0 49 9 
0 5 3 0 


050 2 
0503 
0 50 4 
0 5 0 5 


P0131 C522 
P0132 09FB 
P0133 0118 


PC134 

P0135 

P0136 

P0137 

P0138 

P0139 

P013A 

P013B 

P013C 

PG130 


C400 
7FFF 
61 OE 
C4QQ 
7FFF 
61QF 
C40 0 
7FFF 
6110 
D522 


P013E 13 G4 

PD13F uA04 
PO 140 5800 
Pul41 0003 


P0142 0AC2 
P0143 58 00 
POI44 00A4 


P0145 18E7 


¥ 

FLOI4O 

■ 9 - 

V 


MODIFY REQUEST 

VALIDATE 5TH PARAMETER AS A DATE. ' 

parameter is not given, MAKE DATE=PRESENT OATEdOCORE) 


NO OF PARAMETERS IN THE REQUEST 
SKIP. NOT 


EDA- (ZERO), I 
INA -4 
SAN FL0141 

FOR THE GIVEN 4 PARAMETERS, ASSUME DATE=PRESENT DATE (LOQORE) 
AND ENTER A3 5TH PARAMETER 




FLul41 


9 

FLQ142 

9- 

9 

9 


LOA+ AMONTO 

STA- 14,1 
LOA+ ADAYTO 

STA- 15,1 
LDA+ AYERTO 

STA- 16,1 
RAO- (ZERO), I 

JMP^- FLO 142 

ENA 4 
PTJ FL509 


^^MSOS 4. 
■^■^MSOS 4. 
^»MSOS 4. 


BUMP NUMBER OF PARAMETERS TO 


VALIDATE 5TH PARAM AS A DATE 


CHECK 3RD PARAMETER AS A VALID FILE NUMBER 

ENA 2 
RTJ FL3G4 

VALIDATE 1ST PARAMETER AS A VALID FILE NAME, 
JMP^- FL0120 




DEFINE STATEMENT VALIDATION 

VALIDATE THE 3RD PARAMETER AS A VALID DATE 


M8 2 0 0 46 6 
M82Q0467 
M920 0 468 
' M32u04b9 
M8200470 
M8200 471 
M8200 h 72 
M320 0473 
M820 0 474 
M820 0 475 
M8200t76 
M82u 0 477 
M820D478 
1*-^H82D 0479 

M82Q 0h80 
1»*M8200481 

M820 G 482 
1»^MB200483 

M820 0 484 
M820 Q 485 
M32Q0436 
H820a487 
M82OO488 
M823 0489 
M820 0 49 0 

M82GG491 
M82Q 0492 
M82 J 0 493 
M3 2 Q 0 49 4 
M820 0 495 

M82J Q495 
M8 23 0 49 7 
MB20 0 498 
M82JQ499 
H820 0 500 


M82Q 0 502 
M8230503 
H820 0 504 
M820 0505 


L.) 

O 

c 

o 

i3 

C' 

o 

o 

o 

o 

o 


JPFLV4 


=AGE iH 


DATES 01/27/99 


0506 






0 5 0 7 





IF T 

05 0 8 






0 50 9 

POli+b 

C522 


FL01V5 

LOA- 

0 510 

PO 147 

0 9FD 



INA 

0511 

P0148 

OllB 



SAN 

0512 






0 1 3 





MAKE 

0 514 






0515 

PQ149 

C400 

X 


LDA + 


PQ14A 

0135 

X 



0 516 

PO 1-B 

6108 



STA- 

0 517 

P014C 

C4Q0 

X 


LDA + 


P014O 

0138 

X 



0 518 

P014E 

6109 



STA- 

0 519 

P014F 

C4G0 

X 


LDA + 


P0150 

013B 

X 



0520 

P0151 

610A 



STA- 

0521 






0 5 2 2 

P0152 

0522 



RAO- 

0 52 3 

PG153 

18D9 



JMP^ 

0 52 1+ 

PO 15 H 

G AC2 


FL0147 

ENA 

0 p 2 5 

P0155 

5800 



RTJ 


PO 156 

0 0 9E 




0 5 2 6 

PG157 

1 8D5 



JMP* 

0527 




V- 


0528 




if. 



IF THE 3RD PARAMETER IS ABSENT MAKE DAT£=CURR£NT DATE (LOCORE) 

IZER3),I N3R OF PARAMETERS IN REQUEST 

-2 

FL0147 NOT 2. SKIP 

DATE=PRESENT DATE 


2 

FLS09 


BUMP NUMBER OF PARAMETERS TO 3. 

VALIDATE 3RD PARAMETER AS A JULIAN DATE. 


M82Q 0 506 
M8200507 
M820U5J8 
M320 0 509 
M820 0510 
M8200511 
M8 20 0 512 
M82G Q 513 
M8 20 0 51 H 
♦^MSOS 4.1^^M8200515 

M8220516 
^-“^HSOS 4.1»^M82QQ517 

M82 3 0 518 
^^MSOS ‘-.l»^M820u519 


M82DG520 
M3200521 
H820 0 522 
M32Q 0 523 
M82U0324 
M82 j 0 52 5 

H32 3 0 52 6 
H82u0527 
M8 2:> 0 52 8 


G53C 
0 5 31 
0532 
0 53 3 
0 5 3 4 
0 53 5 

PG158 

0 AG3 

0 5 3 (p 

P0159 

5 3 00 


PC 15A 

u G 36 

053 7 

PQ159 

5800 


PC15C 

OOEF 

0 5 3 8 



0539 
0 5 4 0 



0 5 41 
05 4 2 
0 543 

P015O 

0 A02 

0?44 

P015E 

58Q0 

0545 

0546 
0 5 4 7 

PU15F 

00 81 

05 48 

P0160 

C622 


* 


¥ 


FL0150 


OPEN 

VALIDATE THE 4TH PARAMETER AS A VALID LU 

ENA 3 GET PARAMETER ADDRESS 

RTJ FLS02 

RTJ FL513 


^ VALIDATE 3RD PARAMETER AS R/W CHARACTER. 

^ IF NOT EXACTLY R/W, REJECT. ^ 

^ IF R, SET PARAMETER TO 0, IF W SETA6ARA MET ER TO 1 

ENA 2 
RTJ FL302 


¥ 

V- 


(Q) =PARANETER ADDRESS 
LOA- (ZERO),Q 


M820 0 53 0 
M82u 0 531 
M8200 532 
M82-30 533 
M8 20 0 53 4 
M8200535 
M823 Q 535 

M32D 0 537 

M32J 0538 
M82j0 539 
M3200 540 
M820 0541 
M82j 0 542 
M820 0 51+3 
M820 0544 

M820 0 545 
M820 0546 
N82a0547 
M820 0 548 
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date: Gi/27/99 


POibl 
PG162 
P01d3 
PG1&4 
PQ165 
P 0 IbD 
P01b7 
PO 168 


90 3 0 
5220 
0 106 
C622 
9 0 0 0 
5720 
0101 
18A4 


P0169 3A01 
P016A OFCF 
Pul6B 6622 

P016C 18C0 


SAZ 

FL0151 

FL0152 ENA 
FL0153 ALS 
STA- 

¥■ 

JMP^ 


FL0153 
(ZERO ) , Q 
= AW 

FLD152 

FL0137G 

1 

15 

(ZERO) , Q 
FL0120 


R. SKIP 


W. SKIP 

ILLEGAL PARAMETER. REJECT. JQ4 


H820 0549 

M3 20 0 55 C 
M32Q0551 
M820 0 552 

M820 0 555 
M 8200554 
M32Q 0 55 5 
M320 0 55b 
M8 23 0 55 7 
M823 0558 
M823 0 559 
M820 0560 
M820 0561 


Pul60 QAOO 
POibE 5800 
PO 16F 0 0 85 


P0170 C115 
PQ171 9000 X 
D0172 7FFF X 
P0173 0111 


0575 P0173 0111 
0 5 7 6 

0577 P0174 1812 


057 8 
0 5 7 9 


^ COME HERE TO VALIDATE THc PURGE REQUEST 

- VALIDATE THE PARAMETER AS A VALID DATE 

FLjIou ENA 0 

RTJ FLSC9 

* VALIDATE NEXT PARAMETER AS PURGE KEY 

LDA- VQ5,I 
SUB =XPKEYV4 


P017 5 18 ‘.•A 


JMP- FL0190 
JMP^‘ FL3015 


invalid PURGE KEY 


M 8200563 
H8200564 
M82 3 0 565 
M820 G 566 
M820C567 
M3200568 
M82j 0569 

M8200570 
Md200571 
M8 2 j 0 57 2 
M32G0573 
M3 2 3 0 57 4 

M82 3 G 57 5 
M820 0 576 
M8230577 
M820 0578 
M820O579 


053 1 
0582 
0 5 83 

0 p 8 i. 

053 5 
0586 
05 3 7 

0538 P0176 GAOO 
0589 P0177 68 OE 
059 0 

0591 P0178 C8GD 


COME H:iRE TO VALIDATE THE REWIND AND THE UNLOAD REQUEST 
THE MAXIMUM NUMBER OF PARAMETERS IS 5. 

THE parameter CAN BE ONE OR TWO DIGIT NUMBER( G-9»00-99) 
FMfi 0 SAVE CURRENT PARAMETER NUMBER 


FL0170 ENA 0 

STA^ FLV171 

FL0171 LOA=^ FLV171 


M82D0581 
MB2Q0 582 
M82Q0583 
M32aQ53 4 
M82G0585 
M8200585 
M8230587 
M32305B3 
M823 0589 
M323 0590 
M3200591 
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date: 01/27/99 


05 92 




0 59 3 




0 5 9 4 




0 59 5 
0 p 9 o 

P 0 1 7 9 

9522 


0 5 97 
05 98 

PO 17A 

0 133 


0539 
060 0 

PO 17B 

C522 


0 6 0 1 

PU17C 

5110 


06 0 2 
ii 6 0 3 

P017D 

13 09 


060;r 

PO 17E 

G8 07 

FL0172 

0 bO 5 

°017F 

5 3 0 0 



PQ180 

0 0 60 


060 6 




0 6 07 




0 60 8 
0 60 9 

P0181 

P0182 

58 0 0 
QQC9 


U 6 1 0 




0611 




0612 




0613 
0 o 1 4 

P0183 

0802 


0 515 
0 616 

P 0 1 8 

18F3 


0 617 

P018 5 

OQOu 

FLM171 

0618 




0619 





CHECK ALL PARAMETERS CHECKED 
SUB- (ZERO), I 

SAM FL0172 SKIP IF ALL NOT CHECKED 

SAVE THE N6R OF PARAMETERS IN Vlb FOR LATER USE ( IN JPF2V4) 
LDA- (ZERO), I 
STA- V16,I 

JMP^ FLOIOO OTHlRWISl cXIT 

LOA-^- FLV171 GET THE PARAMETER ADDRESS 

RTJ FLSaZ 

CHECK IT TO BE ONE OR TWO DIGIT NUMBER 
RTJ FL513 


COME HERE TO PROCESS THE NEXT PARAMETER 

RAO^ FLV171 
JMP- FLD171 

NUM 0 TEMPORARY STORAGE 


M3 2Q 0 69 2 
M3200593 
M32Q 0594 
M329 0 595 
M820 0 596 
M3230597 
M32Q 0598 
M82Q 0599 
M82J 0 600 
M820 0 6Q1 
M82Q 0602 
M32Q 060 3 
M8200oQ4 
M32a0b05 

M823 0 606 
M821J 060 7 
M823 0608 
M820 0609 


M823 QblC 
M82G 0 611 
M823 0 612 
M82GD613 
M820 G 614 
M820 0615 
H820061b 
M8200617 
M823 0 618 
M8200619 


JPFLV4 
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DATE; 01/27/99 


062 1 




-r* 





M820062i 

0622 





AFTER G'JMPLETING 

THE VALIDATION OF A REQUEST ALL THE 

M320 0 62 2 

0626 





VALIDATED PARAMETERS AND THE REQUEST CODE 

WILL BE 

H8200623 

062- 





MOVED TD THE J08ENT BUFFER- JPFL3F- FOR USE BY THE 

M8 20 0 62 4 

0 6 2 5 





MODULE 2 (JP- 2V4 ) 

FOR TAKING THE APPROPRIATE ACTION 

M820Q625 

0626 





AS PER THE REQUEST CODE 


M820 0626 

0627 









M823 0627 

0 6 2 8 

P018& 

0 AOF 


FL013U 

ENA 

15 

TOTAL NSR OF WORDStMAX 

16) 

M32a 0628 

062 9 

P013 7 

DOFF 



RAO- 

$F- 

UPDATE INDEX TO FLBUFl 

BUFFER 

M820 0 629 

0 5 6 0 




if. 





M820 0 530 

053 1 

P0188 

E4Q0 

X 


LDQ 

PARBV4 

GET ADDRESS OF J03ENT BUFFER 

M820 0631 


PQ189 

7FFF 

X 







0 6 3 2 

PO 18A 

6810 


FL0i9Z 

STA-^ 

FLQ197 

SAVE CURRENT WORD INDEX 


M820Gd32 

0 o 3 3 









M3200&53 

0 6 3 4 

o 0 1 8 B 

CDOF 



LOA^ 

(FL0197) ,I 

CURRENT WORD 


M82^ G 634 

0 63 5 









H82GG635 

0 6 3 b 

PG18C 

5EDE 



STA^^ 

(F.0197 ) ,Q 

SAVE WORD 


M3 2 j 0 63 6 

0 6 3 7 








M820 0637 

063 3 

PG180 

C80D 



LDA^ 

FL0197 

CHECK ALL WORDS NOVED 


M 8 2 j 0 6 3 8 

0 63 9 

P018E 

09FE 



INA 

-1 



M823 063 9 

06 4 G 

P018F 

0 131 



SAM 

FL0195 

SKIP IF ALL MOVED 


M32j0640 

0641 




if 





M82G 0641 

Gd42 

PU19C 

13F9 



JMP^ 

FL0192 

OTHERWISE LOOP 


M820 0642 

0 D 43 









M82QQ o43 

0 6 4 -» 

P 0 19 1 

a 8 44 


FL0195 

C L R 

A 

CLEAR THE MIB SWITCH 


M82G 0 644 

0645 

P0192 

6G09 



STA- 

(FL0193 ) 



M82QQ645 

ObAo 

PG193 

QC05 



ENQ 

5 



M8200546 

0647 

PQ 19h 

G 4 QO 

X 


LDA 

JB^ROE 



M82Q0647 


P0195 

0117 

X 







Qt)4 8 

POlPo 

6803 



ST 

FLD196f 1 



M320 Ob^a 


P0197 

OAOl 



ENA 

1 



M820 0649 

065 0 









M82Q 0 650 

0651 

P0198 

1400 


FL0196 

JMPt- 

0 



MS2G 0651 


P0199 

0 0 0 0 








06 5 2 




* 





M8200o52 

0653 

P019A 

0 00 0 


FL0197 

NUM 

0 

TEMP STORAGE . 


M8230653 

0 o5 4. 

P019B 

UODA 

X 

FLO 19 8 

ADC 

MIB 



M32G0654 

0o5 5 




* 





M823 0655 



JPFLV4 
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date: 01/27/99 


PC19C OOCG 
P3190 6111 
P019E UAOO 
P019F 6112 

POIAJ EOFF 
POlAl QD13 
P01A2 4117 


P01A3 CO GO 
P01A4 2020 
PG1A5 6622 
P01A6 6201 
P01A7 6202 

PG1A8 E80G 
P01A9 FECI 

POIAA 5300 
POIAB 0090 


COMMON SUBROUTINE TO COLLECT THE CHARACTERS OF A PARAMtTER 
FOR A VALIU PARAMETER 

.IT MUST BE ONE THRU SIX ALPHANUMERIC CHARS 
.THE DELIMITER MUST BE A COMMA, OR $FF. 

INPUT 

(A)= CHAR POSITION IN THE BUFFER 

UPPER CHAR {B3-15) OF 8UFFER+0=CHAR POSITION 0 

LOWER CHAR lBO-7) OF BUFF ER+ G=C HAR POSITION 1 

UPPER CHAR (B8-15) OF BUFF ER + 1=0 HAR POSITION 2 

AND 50 ON. 

OUTPUT 

V17=UPQATED TO REFLECT NEXT CHAR POSITION IN BUFFER 

V13=NUHBER OF CHARACTERS IN THE PARAMETERS 

V19=FIRST TWO CHARACTERS 

V20=NEXT TWO CHARACTERS 

721=LA3T TWO CHARACTERS 

V22=DELIMITER CHARACTER (COMMA OR $FF) 


EXIT 

RETURNFO 

RETURN+1 


INVALID NOT AN ALPHANUMERIC 
COMMA OR END OF REQUEST DELIMITER 


CELLS USED V 1 7 , 1 8 , 2 2 , 23 , 19 , 2 0 , 21 


FLSOl 


ADC 0 

STA- V17,I SAVE INPUT CHAR POSITION 

ENA 0 

STA- Via, I CLEAR CHAR STORED COUNT 

LDQ- I INITIALIZE PARAMETER STORAGE ADDRESS 

INQ 19 
STQ- V23,I 

BLANK OUT THE THREE WORD PARAMETER STORE AREA 
LDA =NS2a2Q 


STA- (ZERO),Q 
STA- 1,3 
STA- 2,3 

FLSGlO LOG, JBVU2 


FL311 


INPUT REQUEST BUFFER ADDRESS 


GET THE CHARACTER 


M823 0o5 7 
M820 0658 
M820 0 659 
H8 20 0 660 
M8 20 0 651 
M820 0o62 
M82jQ6b3 
M820 066*, 
M82ij 0665 
M820066& 
M8200667 
H820 0 668 
M8 20 0 65 9 
M82Q 0670 
M820 0671 
H8200572 
M82Q0o73 
M320 0o74 

M8200o75 
M320 0 o7b 
M82 J 0677 
M820 0678 
M32Q 0 679 
M820068G 
H820 C 681 
M8 23 0 63 2 
M32a0o83 
M823 Cd84 
M823 0 68 5 
M32 j 0o36 
M82GQ687 
M323 0688 
M32J 0589 
M820 0690 
M820 Q 691 
M820Q592 
M820 0693 
M320 0 694 
M820Q695 
M8200596 
M8 20 069 7 
M82G Q 698 

M820 0699 
M32D 0 70 0 
M3 20 0 701 
M3200702 
M820 G 703 

M32Q 0 70 4 
M820 0 705 

M820 0 706 


n 


JPFLV4 
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date: 01/27/99 


07C7 

POIAG 

6116 

0 73 8 



0 7 0 9 

POIAU 

0102 

0 710 



0711 



0712 

POiAE 

BO GA 

0 713 

Pu lAF 

bill 

071- 

PDIBQ 

18 20 

0715 



0716 

POIBI 

Clio 

07 17 

P01B2 

Q9D3 

0718 

P01B3 

Gill 

0719 

P01B4 

1828 

0720 

P 0 1 B 5 

G116 

07 21 

='01B6 

09CF 

0 7 2 2 

P01B7 

0 137 

0 72 3 

P0188 

09F5 

072 4 

P01B9 

0136 

0725 

POIBA 

0116 

0 72b 

POIBB 

Q9BE 

0 72 7 

PQIBC 

0132 

072 8 

P0180 

09E5 

0 72 9 

PulBE 

0131 

0730 



073 1 

PulBF 

1820 

0732 



073 3 



0734 



0 73 5 

PQICO 

C112 

0736 

POlCi 

09F9 

07 3 7 

P01C2 

3131 

073 8 

PG1C3 

181C 

0 7 3 9 



07 4 0 



07 41 



0742 

P01C4 

0112 

0 7 43 

P01C5 

El 17 

0 7 44 

P01C6 

C112 

0 7 45 

PQ iC7 

Q9FC 

0746 

P01C8 

0134 

Q 7 4 7 

PQ 1C9 

uOOl 

074 8 

FOICA 

G9FD 

0749 

PQICB 

0131 

0753 

PulCC 

OOGl 

075 1 



0752 

PQICO 

0112 

0755 

POICE 

OFCF 

0 7 5 4 



0 7 5 5 



0756 



075 7 



0 7 5 8 



0 7 5 9 




STA- V22,I 


SAVE CHARACTER TEMPORARILY 


V- 

V- 


5AZ FLSGll SKIP IF END OF REQUEST 

CHECK CHAR TO BE AN ALPHAMERIC, $FF, OR COMMA. 


FLSull 

FLSul3 


FLSGl A 


V- 

FLS015 

V- 

V- 

FLSU16 


FLSC17 


EOR- LPMASK+8 
SAN FL3013 
JMP=^ FLSDID 

LOA- V22,I 
INA -$2C 
SAN FLSQ14 
JMP'’- FLSGIO 
LDA- V22,I 
INA -S30 
SAM FLS015 
INA -10 
SAM FL3016 
LOA- V22,I 
INA -S41 
SAM FL3015 
INA -$1A 
SAM FLS016 


NOT A BLANK SKIP 

END OF REQUEST ($FF OR 0) 


NOT A COMMA. SKIP 
COMMA .JUMP 

CHECK CHAR TO BE AN ALPHANUMERIC 
INVALID CHARACTER. SKIP 
VALID NUM CHAR 0-9 


INVALID CHAR 
VALID ALPHA CHAR 

JMP»^ FL301F 

FOR A VALID CHAR CHECK NBR OF CHARS ALREADY SAVED. & INVALID 

LOA- V18,I 
INA -6^ 

JMP-^ RsOIF INVALID IF 6 CHARS ALREADY SAVED 

SAVE CHARACTER IN APPROPRIATE SLOT. 


UPDATE CHAR COUNT 
CHARACTER STORAGE ADDRESS 
CURRENT CHARACTER COUNT 
COMPUTE PARAMETER STORAGE ADDRESS 


FLSOl A 
* 


RAO- V18,I 
LDQ- V23,I 
LOA- V18,I 
INA -3 
SAM FLSQiA 
INQ 1 
INA -2 
SAM FLSOIA 
INQ 1 

LDA- V18,I 
ALS 15 

(Q)= ADDRESS OF THE WORD FOR THE CHARACTER STORAGE 

CHECK CHARACTER TO BE STORED IN THE UPPER OR LONER POSTION 

FOR CHARACTER COUNT=l,3,5 CHARACTER WILL BE IN UPPER POSTION 


M82007D?’ 
M82D 0 708 
M820 Q 709 
M8200710 
M3 20 0 711 
M82Q0712 
M8200713 
M8200 714 
M82J 0 715 
Ma2Q 0 71b 
M820 0 717 
M82D0 718 
M32G0 719 
M3200720 
M32Q0721 
M820 0 72 2 
M323 0 723 
M8200724 
M820 0725 
M823 0 726 
M820a727 
M823Q728 
M820 G729 
M3200730 
M8200731 
M82[] 0 732 
H8200735 
M320 0734 
M32Q 0735 
M8 20 G 73 5 
M82Q073? 
M3230738 
M8200739 
M820 0 740 
M823 0 741 
M32Q 07^2 
M8200743 
M820Q744 
M8200 745 

M82G07U6 

M820 0747 
M820 0748 
M8230749 
M32 D 0 75 U 
M820 0 751 
M8 2D 0 75 2 
MS2j 0753 
M820 0 75 4 
M320 0 755 
M320Q 75b 
M820 0 75 7 
H82 j 0 758 
H8200 759 


JPFLV4 


3 AGE 2Q 


DATE: 31/27/99 


075 Q 




FOR CHARACTER 

COUNT= 2,4,6 CHARACTER WILL BE 

IN LOWER POSITION 

M82GG75G 

0F51 







M82QU 751 

0752 

PQICF 

0133 


SAH FLSQ18 

SKIP IF UPPER POSITION OF 

CHARACTER 

M82DQ 762 

Q 7 5 3 







M3 20 G 763 

0754 




FOR THE LOWER 

POSITION OF CHARACTR 


M820Q754 

0 76 5 



¥ 




M82U 0 765 

0 7 5 6 

PulDC 

C622 


LDA- (ZERO),Q 



M82G0756 

0 75 7 

POIDI 

AOIA 


AND- NZERO+3 



M32 j 0 76 7 

or bn 

P01D2 

18 0 6 


JMP^- FL3019 



M32Ca768 

0769 







M82j 0 759 

0 7 7 0 




FOR THE U=*PER 

CHARACTER 


M820 0 770 

0 7 7 1 







H32G0771 

077 2 



V- 




M82U0772 

0773 

PD1D3 

C116 

FLS018 

LDA- V22,I 

ADJUST CHARACTER. FOR STORAGE 

M82Q0773 

G77-. 

PulOA 

0FC8 


ALS 8 



M8200774 

0 7 7 5 

PQ1D5 

6116 


STA- V22,r 



M323 0 775 

Q776 







M82G0775 

0777 

P01D6 

C6 22 


LOA- (ZERO),Q 



M5200777 

07 7 6 
077 9 

P01D7 

A 0 u A 


AND- LP-iASK+a 



M8200778 
M32J 0779 

07 3 0 

P01D8 

B116 

FLSD19 

EOR- V22,I 

SAVE THE CHARACTER 


M82G0780 

0 781 







M320 0 781 

0 7 3 2 

PG1D9 

o622 


STA- (ZERO),Q 



M82 : 0 732 

0783 







M8200783 

0 7 3 4 




SET UP TO GET 

NEXT CHAR 


M8230734 

0785 







H82Q0785 

0 736 

POlOA 

Dill 


RAO- V17,I 



M823 0 785 

0787 

PC108 

18CC 


JMP^ FL5Q10 



M82J0787 

0783 







M820 0 788 

0 789 

POIDC 

G112 

FLSaiD 

LDA- V13,I 

REJECT IF NO CHAR STORED 


H820 0 789 

0790 

PGIDD 

0 101 


SAZ FL301F 

REJECT 


M823 0 790 

D791 

PQIDE 

08BD 


RAO^ FL301 

ERROR FREE EXIT 


M8200791 

0792 







MS200792 

0 i'' 9 3 







M320Q793 

0 79 4 

PGIOF 

ICBC 

FLSCIF 

JMP^ (FLSOl) 

EXIT. NON ALPHANUM/COMMA 


M3 20 0 79 4 

0795 







M820 0 795 




o 


M32j 0797 
M823 0 793 
M320Q799 
M8 23 0 3QQ 
M820 0 80 1 
M820 0802 
M82008G3 
M82j 0 809 
H820Q305 
M820 0806 
M823 0 80 7 
M82 j 0808 
M82 0 0309 
M820 0810 
M82Q0311 
M820 0 812 
M82D 0813 
H820 0 81h 
M 8 2u 0 815 
M320 0 815 
M82D 0 817 
M820 0818 

O 


O 


o 


o 


o 


o 


o 


o 


n 


o 

o 

o 

o 

o 


JPFLV 


PAGE ^2 


□ATE! 01/27/99 


0 3 2 0 
0621 
0322 
032 3 
0624 
0 8 2 5 
0 3 2 5 

UB27 P01E8 OGCG 

0828 PG1E9 58F6 

0829 PDIEA C622 

0330 POIEB GFC8 

0331 POIEG AiiOA 

0332 PGIED 09BE 
0833 POIEE 0132 
0 63-t DQiEF 09E5 
0335 PulFO 0132 
0836 POIFI 1800 

P01F2 FFIA 

0 83 7 

0338 PG1F3 1CF4 
0639 


¥■ 

¥■ 


FLSO + 


FLS04P 


FOR THE OPES , CLOSE iRELEAS , AND MODIFY REQUESTS 

COMMON SUBROUTINE TO VALIDATE A PARAMETER AS A FILE IDENTIFIER- 


INPUT 

( A) =PARAMET£R INDEX 0-*- 


ADC 

0 

RTJ- 

FLSQ2 

LDA- 

(ZERO),Q 

ALS 

8 

AND- 

LPMASK+8 

INA 

-$41 

SAM 

FLS045 

INA 

-SI A 

S AM 

FLSC49 

JMP 

FL0C70 


COMPUTE PARAMETER ADDRESS 

FIRST CHARACTER MUST BE ALPHA. ELSE RtJECT. 


REJECT. NOT ALPHA 


O.K. 

ILLEGAL PARAHETcR, 


J04 


,9820 0320 
M8200821 
M820 0 82 2 
M3200823 
M82G 0824 
M82Q0825 
M82] 0 826 
M3 2-3 0 82 7 
M8 2 0 0 82 8 
M823 0829 
M8200830 
M32G 0831 
M8200832 
M823 0 833 
M323 0 634 
M623 0 335 
M323 0 836 




FLS049 JMP^ 


CFL304) 


EXIT 


M320 0637 
Md200&38 
M823 0 339 




JPFLV4 
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o 


o 


OATEJ 01/27/99 


o 

o 

o 

'0 

o 

o 

o 


0841 

0842 
08 43 
0 8 4 ^ 
0 3 4 5 
0 846 


¥ 


COMclON SUBROUTINE TO VALIDATE 
PARAMETER A3 A DATE 


THE GIVEN SIX CHARACTER 


THIS PARAMbTER SHOULD BE ALL NUMERICS (0-9), AND IS AS FOLLOWS 


o 

0847 



MMDDYY 




08 48 


W H cRE 





06 49 


MM = MONTH 

01-12 





0850 

-V- 

OD = DAY 

01-31 




o 

0351 

0352 


YY = YEAR 

0 0-99 





0 9 53 


ALSO DD MUST CORRESPOND TO THE MONTH, VIZ. 

,31 

FOR 


0 3 5 4 


FEB, 31 FOR MAR, 

AND SO ON. 




o 

0 8 5 5 
0856 

V 

FOR A LEAP YEAR 

(YY DIVIDED EQUALLY BY 

4) 

DO 

FOR 


085 7 


ANY NUMBER OTHER 

THAN THE ABOVE RESULTS 

IN 

J04 

• 


08 5 3 







0859 

-V- 

INPUT 






0B5Q 

if. 

(A)= INDEX 

TO PARAMETER IN BUFFER 





035 1 

if 






0352 


OUTPUT 






085 3 
0854 
0 3 55 
0856 
0 8 5 7 

0 858 
0 869 
087 0 
03 71 
03 7 2 
0 3 7 3 
087% 
G 3 7 5 
03 76 

087 7 
08 78 
0379 

088 0 
0881 
0882 
0883 
03 3 - 
0 8 3 5 
0 8 8 6 
G837 
0888 

0889 

0890 

0891 

0892 


P01F4 OQCO 


P01F5 
PO IF 6 


P01F7 
PG1F8 
PO 1F9 
PfllFA 
POIFB 


58CC 

FFE9 


C622 

582A 

■J1G2 

D9F2 

0131 


PQIFG 18F4 


POIFO 

POIFE 


POIFF 
PQ20G 
P020 1 


09 00 

6 8 14 


C2Q2 

5822 

6812 


FLS09 


V- 


FLS092 

if. 

FLSG95 

* 

* 


* 

* 


THE VALIDATED NUMBER IN ITS ORIGINAL PLACE. 

ADC 0 

RTJ FL3 02 COMPUTE ADDRESS OF PARAMETER. 

UPON RETURN ( Q)=A0DRE3S OF FIRST WORD OF THE PARAMETER 
VALIDATE FIRST WORD AS A MONTH yl-12 


LDA- (ZERO),Q 
RTJ* FLSiO 
SAZ FLS092 
INA -13 
SAM FLSG95 

JMP* FLS045 

INA 13 
STA* FL3V91 


CONVERT ASCII TO BINARY 
00 IS INVALID. SKIP 

LT. 13. VALID . SKIP 

INVALID PATAMETER. J04 


VALIDATE THIRD WORD AS A YEAR, 03-99. 


LDA- 2,0 
RTJ* FLSIO 
STA* FLSV93 


CONVERT ASCII TO BINARY 
AND SAVE IT TcMPORARILY. 


VALIDATE SECOND WORD AS A DAY. 01-31. THIS MUST CORRESPOND 
TO THE MONTH. IT MAY BE 29 FOR FEBRUARY OF A LEAP YEAR. 


M32Q0 841 
M820 0342 
M82Q0843 
M8 23 Q84% 
M8 20 0 845 
M823 0846 
M320 0847 
M823 0848 
M8200349 
M82Q035Q 
M320G851 
M820 0852 
M32Q 0 853 
M820fl854 
M32D 0855 
M823 0 855 
M8 20 0 35 7 
M82 j 0858 
M823 0859 
M8E 3 0 85 0 
M82 j 0 851 
M82DQ852 
M820 0 863 
M823 0 364 
M82 J 0 86 5 
M823 0 856 
M3230857 

M823 0 868 
M323 0 869 
M820a870 
M3200871 
M82D 0 872 
M8200373 
M323Q374 
M823 0875 
M8200876 
M823 0 877 
M820 0878 
M82} D 879 
M82Q0880 
M823 0881 
M8200882 
M8200883 
M8230884 
M820 0885 
M82G 0 885 
M8200887 
M320 0 888 
H8230839 
Ma200390 
M82-J 0891 
M820 0 892 


O 

O 

C 


O 


o 

o 

o 

Q 

o 

o 

o 

o 

o 


o 


o 


JPFLV4 


PftSE 24 


DATE! 01/27/99 


P02G2 C2C1 
PG2U3 5aiF 
Pu 2G4 68iC 


P0 205 
P0206 

P 0 2 0 7 
PQ2G8 

P02u9 

PQ20A 

PC 20B 
PO 2CC 

P0200 
P020E 
PO 23F 


E8 uD 
CAGF 

9800 

0128 

0901 
0 115 

uOFD 

0153 

38G6 
AO 04 
0 IGl 


PQ21U 13 EG 
PQ211 1CE2 


P0212 
Pfl 213 
PQ214 


0 0 0 0 
GuGQ 
0 00 0 


LDA- 1,3 
RTJ^ FLSIQ 
STA^ FL3V94 


CONVERT ASCII TO BINARY 
SAVE N0R OF DAYS 


GET THE HIGHEST VALID NUMBER OF DAYS FOR THE GIVEN MONTH, 


FLSG96 


if, 

FLSu98 

FLS099 

* 

FLS V91 
FLSV93 
FLSV94 


LDQ^ FL3V91 
LOA^ FLS90T, Q 

SUB- FLSV94 
SAP FL3099 


SAN FL3098 

INO -2 
SQN' FL3098 

LDA^ FLSV93 
AND- LPMASKf2 
SAZ FL3J99 

JMP^ FL3045 

JHP^ {FLS09) 

NUM 0 
NUM 0 
NUM 0 


MONTH 

VALID HIGHEST NUMBER OF DAY 


VALID. SKIP 


INVALID RFJECT J04 

NOT FEBRUARY. SKIP. INVALID 
CHECK FOR A LtAP YEAR 

29 DAYS FOR FEB IN LEAP Y EA R . VALI D . SK I P 

INVALID PARAMETER. JC4 

VALID PARANETER.EXIT. 

)MONTH (BINARY) 

)YEAR (BINARY) 

)DAYS (BINARY) 


M320 0 893 
M8 2 u 0 3 9 4 
M823 0895 
M8200895 
M820 0 897 
MB23 0 898 
M823 0899 
M620 0900 
M82u09Ql 
M8200902 
M82uG9Q3 
H82G09G4 
M8230905 
M82Q090& 
H820 0907 
M82lio908 
H820 u9Q9 
M823 0910 
M82C0911 
M820U912 
M8200913 
M823 Q914 
M829 0 915 
M8200916 
M320 0917 
M82QQ918 
M3200919 
H8 20 0 92 0 
M820 0921 
M8200922 


PQ215 
P0 216 
P021 7 
F0218 
PC219 
P021A 
P021B 
PG21C 
P021D 
PU21E 
PO 21F 
P 0 22 e 
PO 221 


0000 
OGIF 
OOlC 
OOIF 
OQIE 
DOIF 
0 0 IE 
0 0 IF 
OOIF 
00 lE 
OOIF 
00 IE 
OOIF 


FLS90T NUM 

3 

JAN 

4-1 

NUM 

31 

NUM 

28 

FEB 

+ 2 

NUM 

31 

MAR 

+ 3 

NUM 

30 

APR 

+ 4 

NUM 

31 

MAY 

4-5 

NUM 

3 0 

JUN 

+ 6 

NUM 

31 

JUL 

+ 7 

NUM 

31 

AUG 

+ 8 

NUM 

30 

SEP 

4-9 

NUM 

31 

OCT 

4-10 

NUH 

30 

NOV 

4-11 

NUM 

31 

DEC 

4-12 


CHECK FOR LEAP YEAR 


M82G0924 
M823Q925 
M820092& 
M823 0 927 
M8200928 
M323 0929 
H3200930 
M82Q0931 
M323 0932 
H823 0933 
M82GG934 
M823 Q935 
H823 0936 
M823 0937 


o 


JPFLV4 


PAGE 25 


date: 01/27/99 


o 


P0 222 OOuO 
P0223 4816 


P022V 6616 


PQ225 

P02Z6 

PG227 

P0228 

P0229 

P022A 

PQ22B 
PQ22C 
P022O 
P022E 
P022F 
F022G 
P0231 
P0232 
PQ23 3 
Pu 23 h 
py 235 
P0 236 

Pa237 

P0238 

PG239 
PO 23A 


A 0 00 
FOFO 
8 000 
3 0 30 
0 101 
13C6 

C80F 
0 822 
A006 
OFFO 
OF 48 
48 OA 
A 0 G6 
Q 822 
DFC3 
G 8 3u 
0 8 34 
8804 

E8 02 
1CE9 

0 U c 0 
0 0 0 0 


COMMON SJ8R3UTINE TO CONVERT AN ASCII WORD 


BINARY VALUE 


INPUT 


(A)= ASCII HORD 


EXAMPLE 


M820 0939 
M820 0940 
M62UD941 
M6200942 
M820Q943 
M823 0944 


OUTPUT 

(A)= BINARY VALUE 
EXAMPLE 

(A>=ASCII WORD 3139 


(DECIMAL 19) 


FLS13 

V- 


STQ^ FL5101 


SAVE REGISTER Q 


VALIDATE THE PARAMETER AS TND NUMERALS (0Q-' 


FLSIO 3 
FLSiQ4 


STA^ FL3102 

AND =N$F0F0 

EOR -NB3030 

SAZ FLS104 
JMP- FLS045 

LDA^’^ FL31Q2 
TRA Q 

AND- LPMASK+4 

LLS 16 

ARS 8 

STQ^ FLS102 

AND- LPMASK44 

TRA Q 

ALS 3 

AAQ A 

AAO A 

ADO'^ FL3102 

LDQ^ FL3101 
(FLSIO) 


IT TcHPORARILY . 


NUMERIC. SKIP 
INVALID PARAMETER. J04 


(Q) 

(A ) 

M82Q 0945 
M820094O 
M82’j0 94 7 
M32Q 0 948 
M8200949 
M6200950 

Q 

A 

M8200951 

3139 

M82J 0 952 
M82UQ953 

3139 

313 9 

M3200954 
M6200955 
M620Q95o 
M820 0957 
H820 0 958 
M32J 0959 

M320 0960 

M8200961 
M820Q962 
H32j0963 
H820 096-^- 
MS23 3955 

3139 

ODD 9 

M823 0 966 

0 0 09 

3139 

H82] 0 967 

0 C09 

0 0 31 

M82Q09d8 

0 0 09 

oeoi 

M3230959 

M820097Q 

GOQl 

0001 

M82D0971 

0 0 01 

QQ08 

M8200972 

0 0 01 

0 0 09 

M32J0973 

0 u 0 1 

000 A 

M320 0 974 

Q u 13 

(HEX )M820Q975 



M82Q0975 


V- 

FLSIDI 

FLS102 

¥■ 


RESTORE Q 
EXIT. 

TEMPORARY STORAGE 
TEMPY STORAGE 


M82Q 0977 
M820 0 978 
M32a0979 
M82QQ98G 
M82D0981 
M823Q982 



o 


C) 


o 

M8ZJ 0984 
M820 0985 
M820 0986 
H8200987 
M82J 0988 
M32j0989 
M8200990 
M820G991 
M820 0992 
M82Q 0993 
M820 0994 
M8230995 
M820 0996 
H8200997 
M820 0 998 
M8200999 
M820 1000 
M823 1001 
M3 2 0 10 0 2 
M32Q1003 
M8231004 
M820 1005 
M320 1006 
M8201007 
M32 jlOGB 
M32aiOG9 
M820 lOlC 
H8201011 
H8201Q12 
M820iai3 
M32Q 1014 
M82J1015 
M32 01016 
M823 1017 
M3 20 101 3 
M8201019 
M820 1020 

o 


o 


o 


o 


Q 


O 


O 

O 

o 

o 

o 

c 

o 

o 

c 
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DATE! 01/27/99 


1022 
1323 
102 4 

1025 

1026 
10 2 7 
10 2 8 
1029 

PO 248 

0 0 G u 

10 3 0 
1C51 
1032 
13 3 3 

P024C 

0201 

10 3 4 

PC 2 40 

80 0 0 


PQ24E 

2020 

1035 

PG24F 

0101 

1036 

PC 25G 

18D9 

1037 

1338 

PC251 

C622 

13 39 

PD252 

AO CA 

1040 

PG 253 

G9DF 

10 41 

PD 254 

0 115 

1042 

PO 255 

C622 

1 0 -r i 

PQ255 

AOIA 

10 4^ 

P0257 

09 30 

45 

PO 258 

0FC8 

13 4 6 

PQ 259 

1802 

13 4 7 
1048 

PG25A 

0622 

10 49 
10 5 0 

P025B 

5 8 0 0 


P025C 

FFC5 

1051 
10 5 2 

P0250 

6622 

10 5 3 
10 5 4 
105 5 
10 5 6 

P025E 

9C10 

IG 57 

DQ25F 

bl02 

13 53 

P0260 

0131 

1059 
10 5 0 

P0261 

1 8 E E 

13 51 
13 52 

P02d2 

ClOl 

10 5 3 

P0263 

09F8 

10 5 4 

P0264 

0128 

10 b p 

P0265 

£622 

1056 
1 3 5 7 

PG 26 6 

EE 08 

lu 5 8 

PG267 

C2 08 

10 69 

= 0268 

OF 44 

10 7 0 

PD2&9 

AO 09 

1371 

PO 26A 

0 9D8 

10 7 2 

PO 26 3 

0101 


Af- 

■V- 

* 


FLS13 


¥ 

■¥■ 


■¥■ 


COKHON SUBRDUTINE TP VALIDATE A PARAMETER AS A VALID LU 
NUMBER 3- 1 OR 2 NUMERALS AND ALSI .LE. LEGAL LU NUMBER ( ALOGIA ) 

INPUT 

( Q) =parameter address 

ADC 0 

CHECK IR TO BE ONE OR TWO DIGIT NUMBER 
lda- i,a 

EOR =N$20?0 


M82ji022 
M8201G23 
H8201O24 
M82jl025 
M823 1026 
M82C1327 
Md 20 1028 
M823 1029 
M82ill]3G 
M8201031 
H82Q1032 
M3201Q33 
M8201034 



SAZ 

FL3132 


FLS131 

3f. 

JHR4 

FLS103 


FLS132 

LDA- 

{ ZERO ) , 

Q 


AND- 

LPMA3K+8 


INA 

-$20 



SAN 

FL3134 



LDA- 

(ZERO) , 

Q 


AND- 

N ZERO +8 



INA 

$30 



ALS 

8 


Sf. 

JMP^f- 

FLS135 


FLS13 4 

if. 

LDA- 

(ZERO) , 

Q 

FLS135 

RTJ 

FLSIO 



OTHERWISE REJECKJDL) 
CONVERT THE NBR TO BINARY 

SKIP IF 2 CHARACTERS 


MB 20 1035 
M82G 1036 
H32J 1037 
M820 1038 
MS2] 1039 
H820104G 
M8201U41 
M3201042 
M8201Q45 
M32ai044 
M8201045 
M3231Q46 
M8201Q47 
M8201Q48 
M8201049 
M82Q1050 


STA“ { ZERO ) , Q 


SAVE THE BINARY NUMBER 


■¥ 

K- 


VALIDATE THE NBR TO BE A VALID LEGAL LU 


SUB^^ 

SAZ 

SAM 


(ALOGIA ) 

FL3136 

FL5136 


JMP^ FLS131 

FLS136 LDA- V01,I 
INA -7 
SAP FLS139 
LDQ- (ZER0»,Q 

•V 

LDQ^- (ALOGIA), a 
LDA- 8,3 
ARS -4 

AND- LPMA5Kf7 
INA -3d 
SAZ FL3139 


EQ. 

LT. 


OK 

OK 


OTHERWISE REJECT 
REQUEST CODE 

SKIP FOR THE REWIND AND UNLOAD REQUESTS 
FOR OTHERS CHECK LU RFF ERS A PSUEOO DRIVER 

EQPT CODE 


SKIP IF A PSUEDO DRIVER 


M8201051 
M8201U52 
M320 1 053 
M82Q 1 054 
M8201Q55 
M82 3 1 0 5 b 
Ma201057 
M8201058 
M82Q1059 
M820106Q 
H3201061 
M8201062 
M320 1063 
M8201064 
MB2 j 1 065 
M820 1 056 
M82Q1067 
M82J 1068 
M823 1069 
M82ul07Q 
M8201071 
M8231072 


o 

o 

o 

o 

o 

(■“) 

o 




o 


o 


o 


o 

o 

o 


o 



DATEJ Oi/27/gg 

OTHERWISE REJEXT 
EXIT 

OAT = GCuG ( 0) 

O 

:""'i 

'••J 

o 

o 

o 

o 

o 

o 

o 


JPFLVh page 23 


1073 P026C 18E3 JMP^ FLS131 

107 4 ^ 

1375 P0 26D ICDD FLSlSg JMP^ (F_313) 
10 7 6 * 

1077 P02&E 7FFF X ALOGIA ADC LOGIA 

10 78 END JFL 


PGM= 026F ( 623) COM = 0000 ( 0) 


o 


M3 2 3 10 7 5 
M320 1074 

H 3 2 G 1 U 7 5 c’"\ 

M32G1075 V- 

H32 01077 
M3201073 


o 


o 


o 


o 


o 


o 


o 


o 


o 


C' 

JPFLV4 ^AGE 29 DATE: 01/27/99 

o 


o 

E Q U I V 

A L E N 

C E S 








o 

DEF . LINE 

,M A M E 

VALUE 


RE- ERENC 

ED AT 

LINE 

NUHBER 




0 U 0 b 

I 

GOFF 

(000255) 

3113, 

0286, 

0 692, 

0814 

0 96o , 

0 97 0 


0 0 30 

LPHASK 

00 02 

(000002) 

3 712, 

0 778, 

0831, 

0912 , 

o 


'JZERO 

bu 12 

(OOOGlfi) 

3 767 , 

10 4 3 


0363, 

0 36 7 , 

0 373 

0 G32 

ZERO 

0022 

{ 003034) 

3136, 

0139, 

J d 4 tS ? 




0 5 96, 

0 600 , 

0 699, 

0 766, 

G 77 7, 

0782 


j 0 33 

DNEBIT 

0023 

( 0GGG35) 

3 322 






o 

00 34 

TEN 

0 0 4 6 

(0GuO7G) 

0143 






0 0 3 5 

AO ISP 

GO EA 

( 0G0234) 








0 0 36 

AMONI 

00F-, 

{ 0 0 0 244) 








00 40 

MQl 

0 0 0 1 

{ 0 0 0 0 0 1 ) 

10 62 







0 0 41 

VO 2 

00 02 

(000002) 








u u 4 2 

VQ3 

G0Q3 

(000003) 








0 0 43 

VQ4 

GUu -t 

(000004) 








QG45 

V G 5 

OGO 5 

( 0 0 u 0 u 5 ) 

D57i 






Q 

Q C 4 6 

V06 

0 0 0 6 

(OOJOQo) 







G G T f 

VO 7 

G0G7 

(000007) 








3 4 49 

VOS 

GG08 

( 0 0 u 0 0 8 ) 

3 5 1 0 







0 0 50 

VQ9 

GG09 

( 0 Q 0 0 a 9 ) 

3 518 






o 

0 051 

VIO 

0 0 0 A 

( OGUOIG) 

0 520 






0 0 53 

Vll 

aosB 

( 0 00011) 








0 0 64 

V12 

Gb 0 C 

(000012) 








0 0 5 5 

V13 

GOOD 

( 0CQ013) 








Q 05 7 

Vl4 

OG 0 E 

(000014) 








■3 05 8 
0 0 5 9 

V15 

GOOF 

(000015) 








V16 

0010 

( 0 0 0 G 1 6 ) 

3 6 01 



0 785, 

0999 , 

100 4 


Q 0 D 1 

V17 

uOll 

{ 000ul7) 

3 3 55, 

G 356 , 

0 688 , 

o 

0u62 

V18 

0012 

(000013) 

3 5 90, 

Q 735, 

0 7-t2, 

0 7 44, 

0 752, 

0 789 

0 0 53 

V19 

GG13 

(000019) 

3 3 01 , 

0 366 






Q u 6 4 

V20 

0014 

(000020 ) 

3 3 0 3 , 

0 3 b 8 






0065 

V21 

GO 15 

(000021) 

•3 312, 

Q37G 


0720 , 

0725, 

0 773 

o 

C 066 

V22 

0016 

{ 000G22) 

0 3 40 , 

Q 707, 

0 716, 

0 0 6 7 

V23 

0017 

(000023) 

3 694 , 

0 743 






0 068 

V24 

0018 

{ 003024) 








0 0 6 9 

V25 

0019 

(G0G025) 







o 

0 u 70 

V26 

u G 1 A 

( 0 00 026) 







0 0 71 

V27 

DOIB 

(000027) 








o 


o 

o 

l"") 


o 

: O 

o 

lt'0 5» 1016, 1039, 1070 

0387, 0 h15, 0 452, 0-47 2, 0485, 0509, 0522, 0543, 0551, 0 55 8 O 

0829, 0872, 1035 , 10^*2, 1048, 1052, 1065 

o 

o 

o 

o 

o 

; O 

0775, 0780 ■ O 

; O 
O 
O 


o 


JPFLV4 PAGE 30 DATES 01/27/99 

S Y 11 DDLS 


DcF . LINE 

name 

ADDRESS 

RE- EREN 

GED AT 

LINb NUMBER 





0 0 7 5 

JPFL 

uOOO 

0 0 75 , 

0223 , 

0267, 0268, 

0269 , 

0 27 0 , 

0271, 0272, 

0273 

0121 

JBFL03 

OOOB 








0125 

JBFL3A 

OOOF 

0123, 

0141 , 

0209 





012 6 

JBF 

QGIO 








0131 

JBFL31 

G016 

0129 







0 133 

JBFL3B 

0019 

0 127 







3147 

DGOMP 

0 0 2 7 

0 149, 

u 151 , 

015 5, 0161, 

0 la-t , 

0 185, 

0186, 018 7, 

G139 

G152 

SECTOR 

Q02F 

0 137 , 

0 16G , 

0175, 0177, 

0181, 

0 182 



015^ 

GOMP 

u 0 3 1 

0149 







3 162 

BUF 

0 0 39 

0 151, 

016 9 






Q 1 & 3 

IMAGE 

G03A 

0 140, 

0 17Q 






0 16 4 

NSECT 

Q 0 3 B 

0 146, 

0156, 

0158 





C 1 6 7 

FHOPD 

0G3C 

0 13 4, 

017 6 






016 7 

GONE 

003D 

0159 







0188 

GQMPl 

0055 

0135 







0195 

JBFL02 

0058 

0124 







0 203 

JBFL05 

005E 

0 196 







0 20 6 

NOFMTS 

0061 

0 204 







0 208 

TESTFM 

Q063 

0 197, 

0 20 5, 

G211 





0212 

NOFM 

0067 

0210 







0218 

F3 

0069 

0Q9-r 







j 219 

JBVOl 

006A 

0 0 96, 

0 451 






u 22u 

JBV02 

006B 

0 105, 

0 703 






0 221 

JBV03 

G06C 

QlOO, 

0128, 

0195 





0 223 

FL8F1A 

u 0 o D 

0 110, 

0112, 

0285 





1 229 

- LBUFl 

00 66 

0 2 23 







0234 

FLTOCl 

G08A 

0 299 , 

Q 3 0 7 , 

0311, 0335 





026 7 

FLT0G2 

GOAF ' 

3 450 







0 28 5 

FLO GDI 

0 0 B B 

3 130, 

G 190 , 

OZOo 





n 2 98 

FLO 0 02 

QOBE 








0299 

FLQ0Q3 

JOBF 

3 3 0 4, 

0 328 






0306 

FL0 0 0 5 

00C5 

0 302 







3 313 

- L 0 u 0 7 

00 CE 

0 289 , 

0 30 0 






0 3 24 

Flo G7A 

0 0 0 5 

J 319 , 

0 42 0 , 

Q ^2 5 





0326 

flog 70 

0007 

0 3 09 







C327 

F L 0 0 7 E 

0 00 8 

3315 







0 33 0 

FLO 3 7B 

G QDA 

0 321 , 

0 42 3 






0 3 34 

FLaCu8 

■JOOO 

0 313 







0 \> H 0 

FL 0 0 lu 

OQDE 

0 377 







0 3 48 

FLO G12 

QGE2 

Q 3 42 







0 355 

FLO 014 

Li 0 Eb 

0 350 








{ ’l 
( '■ 

o 

■ t^) 

0275 

: O 

: o 

O 

o 
: o 
o 
© 

^ o 
o 
o 
c 
o 


o 


o 




JPFL\/4 
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DATE: 

ul/27/99 


o 

3 563 

FLO 020 

OGEB 






0 


0383 

F L 0 0 5 0 

00F6 

0 3 43 






(J) 

G 38 7 

CKPRM 

OuFA 

0 385 





• 0 

C 39 0 

CKNUH 

OOFD 

0 388 






0 hO 3 

FLO 055 

010 A 

3 393 , 

0 9 , 

0 397 





0^0 5 

FL0060 

ulOC 

3 386 , 

0 391 , 

0399, 

G 4 OI 



l’ ' 

0-408 

FL 0 070 

OlOD 

0212 , 

0351, 

0358, 

0389, 

G392, 0 4u 2 , 040—, 05c?4, 0836 

0 


0 41C 

FLO C72 

OIQF 






0 412 

FLO 075 

0 110 







J 419 

FLO 076 

0116 

0132 






o 

G-r27 

FLO G79 

OllD 

Oti2, 

0417 





0434 

FL008G 

GllE 

3 384, 

0 390 




G 


0 448 

FLO 100 

012 7 

3 406 






0 46 0 

FLO 120 

012D 

0 268 , 

0 270 , 

Ot99, 

C 523, 

0526, 0560 



0 -63 

FL0125 

013G 





0 


0 472 

FL014Q 

0131 

3 271 






0 489 

- LO 141 

013F 

0^74 







0 494 

FLO 142 

0142 

Q 487 







05 09 

FL 0 145 

014 6 

0267 
3 511 





■ 0 

0 524 

FLO 147 

0154 






0 535 

FLO 150 

015 8 

0 259 







0 5 5 4 

FLO 151 

0168 








0 5 5 6 

FLQ152 

0169 

0 553 






/ 

0 5 5 7 

FLO 153 

U16A 

3 550 





u 


0 5 6 8 

FL016J 

0160 

0 273 







0 5 8 8 

FLu 170 

0176 

■0 2 74 , 

Q275 





o 

0591 

FL 0171 

0178 

3 ol5 






3 60 4 

FL0172 

017E 

3 597 





■ iG ) 


0 617 

F L V 1 7 1 

0185 

0 569 , 

G591, 

0604, 

0 614 




G628 

FLO 190 

018 6 

0199, 

0 2 72 , 

0 465 , 

0 5 77, 

0502 


D 

C632 

FLG 192 

Q18A 

0 6 42 




■ 0 

0 644 

FLO 195 

0191 

0 6^0 






0 b 5 1 

FLj 196 

0198 

0 6 48 






0 h53 

FLO 197 

019A 

0 6 32, 

0 634, 

0 6 3 b , 

0638 



■I) 

C 654 

FLG 198 

019B 

0 6 45 






0687 

FLSOl 

019C 

0 288 , 

0557, 

0 791 , 

0 794 


; C' 


0 7 0 3 

FL S 0 1 u 

01 A6 

0 787 







0 714 

FLSOli 

QIBO 

0 7 09 






'V 

u 716 

FLS 013 

OlBl 

■3 713 





' C' 

u 7 2'j 

F L S 0 1 4 

0 1 B 5 

3 718 






G 7 51 

FLSG15 

OIBF 

0 5 79 , 

0 72 2, 

0 72 7 





0 73 5 

F L S j 1 D 

ii iCu 

0724, 

0 72 9 





O 

0742 

FLS017 

01C4 

3 73 7 





^ 0 

3 1 62 

FLSOl A 

OICO 

0 7 -to , 

0 749 





0 773 

FLS 018 

0103 

0 762 





' 


0780 

FLS 019 

01D6 

Q 763 






o 

3 7 8 9 

F L S C 1 0 

OlDC 

0 714, 

0 719 




■ 0 

3 794 

FLSOIF 

OIDF 

0 7 31, 

0 73 8, 

0790 




0 8 0 9 

FL S 0 2 

U lEu 

Q3o4, 

0 536, 

354-, 

J Su 'J 1 

0817, 0828, 0867 



3 827 

FLSu4 

01E8 

0461, 

0 495, 

0838 



o 

Q 836 

FLSc45 

OlFl 

3 833 , 

0878, 

0 915, 

0962 


0 

D 838 

FLS049 

01F3 

0 835 




0 865 

"Lsog 

01F4 

0 490 , 

0525, 

0569, 

0917 



o 









■ 0 

C'’ 











JPFLV4 


= AGE 32 


date: 01/27/99 


0 878 

FLS092 

OlFC 

0 674 




0 88 u 

FLS 095 

OlFO 

0 876 




0902 

FLSG9d 

020 7 





0 915 

FLSC98 

0210 

0 906 , 

0909 



0917 

FLS099 

0211 

0 9 0 3 , 

0913 



0919 

FLS V91 

0212 

0881, 

0899 



0 920 

FLS V9 3 

0213 

0 8 88 , 

0911 



3 921 

FLSV94 

3214 

0 395 , 

0902 



0924 

FLS90T 

0 215 

0900 




0 951 

FLSlu 

0222 

0873 , 

0887, 

0 89^, 

0978, 1U50 

3 96? 

FLSIO 3 

022A 

10 36 




0 964 

FLSIQ^ 

022B 

0 9 61 




0980 

FLSlul 

0239 

0 953 , 

0977 



0981 

F L S 1 0 2 

0 23 A 

3 9 57 , 

0 964, 

0969, 

0 9 75 

0 998 

FLSll 

023B 

3 7 05 , 

1018 



1013 

FLSllD 

Q24o 

10 08 




1016 

FLSllE 

OL-tS 

1011 




1023 

FLSll'/ 

024A 

1 0 0 2 , 

1007 



13 2 9 

- LS13 

024B 

0 5 37 , 

0609, 

1075 


103 6 

FLS131 

0250 

1060 , 

1073 



13 3 8 

FLS132 

0251 

1035 




10 4 8 

FLS134 

025A 

IG 41 




10 5 3 

FLS1S5 

025B 

1 0 4o 




1G62 

FLS136 

0262 

1G57 , 

1058 



10 7 5 

- LS139 

0 2 6 D 

1 0 64 , 

10 72 



10 7 7 

ALOGIA 

026E 

1 0 56 , 

1067 




JPFLV4 


PAGE 33 


DATE: 01/27/99 


Cj 

EXTERNALS O 


D£F. LINE 

NAME 

VALUE 

RE-ERENGED AT 

LINE HUMBER 

o 

0 0 79 

HIBUF 

0 0 0 5 

0103 




0 0 80 

PKEYV + 

0172 

0574 




0 u81 

JBPROE 

019 5 

3 318, 

0419, 

0 64/ 


0 0 82 

TRNVEC 

0112 

0 413 




0 0 8 3 

MIB 

019B 

0330 , 

0 654 



J 0 8 

JBFLV4 

0010 

0125 




0 0 8 5 

AYERTO 

0 150 

Q 483 , 

0519 


L-.' 

0 0 8 6 

AHONTO 

0l4A 

0 479 , 

0 515 



0 087 

ADAYTO 

0140 

3 481 , 

0 517 



J 088 

LOGIA 

^ 026E 

1077 



r') 

GQ89 

“ILE3 

0069 

0 218 




0 G90 

PARBV4 

0189 

C631 





O 


o 

o 

o 

o 


o 


o 

o 

o 


l;' 



JPFLVL 


PAGE 

34 

‘f- V-V- /\ 1_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

ADA YTO 

CQ87 

ADISP 

0 035 

ALOGIA 

1077 

COMP 

U 15 4 

COM PI 

0188 

DCOM? 

3147 

FLOOG 7 

0 318 

FLG008 

0334 

FLOOlO 

034Q 

FLO 070 

0 -fO 6 

FLO 0 72 

0 -,13 

FL0375 

3 412 

FL0Q8Q 

D434 

FLGIOO 

0 448 

FLQ12Q 

D -+60 

Flu 150 

0535 

FL0151 

0 554 

FLQ152 

3 5 55 

FLO 19? 

0 53 2 

FLQ195 

0 &4 4 

FLO 196 

3 6 51 

FlSu 11 

0 714 

FLS013 

y 716 

FLS014 

0 7 23 

F _ 3 0 1 3 

0789 

FLSCiF 

0 794 

FLS02 

0 809 

FLS09 6 

090 2 

FLS098 

0915 

FLS099 

3917 

Fl311D 

1013 

FLSliE 

1016 

FLSllV 

1020 

"LSI 39 

1075 

FLS9UT 

Q 924 

FLSV91 

0919 

GOME 

C167 

I 

0 OGD 

IMAGE 

0163 

JB- L5E 

0 13 3 

JSFLVA 

0 084 

JBPR3E 

G 081 

MI B 

0 0 8 3 

MIBUF 

3 0 79 

NOFM 

3 212 

SECTOR 

G152 

TEN 

3 034 

TESTFM 

02 03 

VO 6 

00 45 

V07 

0 0h7 

V08 

3 0 49 

\/l 5 

00 :»a 

V16 

3 C59 

■717 

0 0 51 

V2 4 

0068 

V25 

0 069 

V25 

QO 70 


DATES Cl/27/99 
S Y M B 0 L S 


AMONI 

'j 0 3 6 

A MONT 0 

0 38 6 

AYERTO 

0085 

F3 

3218 

FILES 

uG89 

FLOOOl 

0 235 

FLG 012 

0348 

FLO 314 

0355 

FLGU20 

0365 

F LO 0 76 

0-19 

FLU379 

342 7 

FL0G7A 

0324 

FLG125 

0 463 

FLG14C 

Q47 2 

FLC141 

0489 

FL0153 

0 5 5 7 

FL 0 16 0 

0 »6 8 

FLC170 

0588 

FL0197 

3 65 3 

FLQ198 

0 65 4 

FLBFIA 

0 22 3 

FLS015 

0731 

FLS G 1 b 

073 5 

FLS017 

0 742 

FLS04 

0827 

FLS045 

0836 

FLSG49 

0838 

FLSIO 

0951 

FLSiOi 

0980 

FLS1Q2 

0981 

FLS13 

lu29 

FLS131 

1036 

FLS132 

1038 

FLSV93 

0923 

FLSV94 

0921 

FLTOOl 

0234 

JBF 

012 6 

JBFL32 

3195 

JBFLG3 

0121 

JBVOi 

0219 

JBV32 

0 22 0 

JBVG3 

0221 

NOFMTS 

0 2uo 

NSECT 

Q164 

NZERO 

0031 

TRNVEC 

Q;.82 

VOl 

u 0 40 

VOL 

0041 

V09 

9 u 5 3 

ViO 

uQ51 

Vll 

0 0 53 

V18 

Q-.62 

V19 

L u 6 3 

V20 

0 0 6 4 

V27 

0071 

ZERO 

0C32 




BUF 

0162 

CKNUM 

0 39 0 

CKPRH 

0387 

FLO 0 D 2 

0298 

FL0 00 3 

0299 

FLQ0C5 

3 3 0 6 

FL0050 

0 383 

FL0055 

0 403 

FL0060 

0 40 6 

FL0G7B 

0 3 3 0 

FLGG7D . 

0 32 6 

^FL0C7E 

0327 

FL0142 

0 49 4 

FL0145 

0509 

■FL0147 

0 524 

FL0171 

0591 

FL0172 

0 604 

FLO 190 

0628 

FLBUFi 

0229 

FLSOl 

0 687 

FLSOlO 

0 70 3 

FLSu 18 

0 773 

FLS019 

0 78 0 

FLSulA 

0752 

FLS09 

08 65 

FLS092 

0378 

FLSC95 

0880 

FLS103 

09 6 2 

FLS104 

0964 

FLSU 

0 998 

FLS134 

10 48 

FLS135 

1050 

FLS136 

10 62 

FLTG 0 2 

0267 

FLV171 

0 61 7 

FWORD 

0155 

JBFL05 

3 2 0 3 

J8FL31 

0131 

JBFL3A 

0125 

JPFL 

0 3 7 5 

LOGIA 

0 08 8 

LPMASK 

0 G 3 C 

0NE8IT 

0 0 3 3 

PARBV4 

0 090 

PKEYV4 

0 3 8 C 

VO 3 

03 42 

VQ4 

0043 

VQ5 

0 0 4t3 

V12 

005^ 

V13 

0055 

Vl4 

0 05 7 

V21 

0 0 6 3 

V22 

0 066 

V23 

0 067 




1 ' 'l 


JPF2V4 


PACE 1 

date: 01/27/99 




000 1 



NAM 

JPF 2V4 

DECK-ID N83 HSOS 5.0 SUMM A R Y- 11 0 M 8 3 0 u 0 0 i 



flj02 



JOE 

PROCESSOR FILE 

REQUEST PROGRAM MODULE 2 

M83OO0O2 



0 0 D 3 



MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 

M8300uD3 


{ ] 

OQQ w 



SMALL SYSTEMS DH/ISIOM, LA JOLLA, CALIFORNIA 

M83D 0 0 0 4 



00 0 5 



COPYRIGHT CONTROL 

DATA CORPORATION 1976 

M83000D5 


o 

0 0 3 7 






H83GO0O7 

; o 


0 3 0 8 



THIS 

MODULE IS ENTERED FROM THE JOB PROCESSOR FOR 

M83DO0Q8 



QQ 0 5 



PROCESSING A REQUEST FOR PROCESSUNG A REQUEST FOR 

M83iOGD9 



Q.IG 



THE 

JOB PROCESSOR 

FILE 

M33ju0iu 

■ Q 

u , 

0- U 






M83uuail 



0012 


-> 

THE 

REQJcST WAS ALREADY CHECKED FOR THE ACCURACY IF THE 

H83OO012 



0013 


if. 

VALIDATED REQUEST 

CODE AND THE NIMBER ANO FORMAT 

M83u 0 013 



OG 1- 



OF THE PARAMETERS 

OF A REQUEST 

M8330014 


O' 

0 015 






M33D0015 



0016 



THE 

REQUEST COJE AND THE PARAMETERS ARE SAVED IN 

HS30 0 016 



0017 


¥ 

THE 

JOBENT BUFFER 

JPFL3F 

H83G00ir 



00 18 






M83CG018 

I'd 

u 

0019 



MODULE 2 TAKED THE 

APPROPRIATE ACTION ON RHE REQUEST AS PER THE 

M83CQ 019 



0G20 



THE 

REQUEST CODE 


M83&u02i 



0 u 2 1 



AFTER EXECUTION THE CONTROL IS RETURNED TO THE JOB PROCESSOR 

M83Q0u2i 


,— , 

00 22 






M83D0022 

• O 

u 

0023 



DIAGNOSTICS ARE TYPED IN CASE OF AN INVALID PARAMETER(S) 

M 3 5 0 0 0 2 3 

L-- 

O 

0C2i^ 


■V- 




M833 0 024 

. T', 

0 3 2 6 






M33G 0 025 


I'O 

00 2 7 


^ JV' ¥> -5f- 

EQUATE CAROS 


M85 00027 

' C) 

Vw*' 

G L 2 8 

2 0 02 


EQU 

LPMASKt $2) 


l-l 8 3 G 0 0 2 8 



Q j 29 

0 012 


EQU 

NZERO (B 12) 


M33Q0029 



0 D 3 G 

b 022 


EQU 

ZERO ( $22) 


M 8 3 0 u u 3 0 


fo 

b G 3 1 

0 0 23 


EQU 

ONEBIT{$23) 


M830 0031 

■ O 


0032 

0 Q 46 


EQU 

TEN ($45 ) 

TEN DECIMAL 

M83D 0 032 



0 0 3 o 

0 QFA 


EQU 

ADISP (SEA) 


MB33 0 033 



0 0 3 4 

0 0F4 


EQU 

AMONI (SF4) 


H3300 334 


o 








■ o 


D j 3 6 






H830OQ36 

' n 

U 

00 37 


If. 



FIRST WORD IS THE NUMBER OF PARAMETERS. 

MSS J 0 03 7 



0 0 38 

0 0 01 


EQU 

void) 

REQUEST CODE 

M830i3 0 38 



0 3 3 9 

0 0 02 


EQU 

V02 (2 ) 

) 

M8300 039 



0093 

0 0 03 


EQU 

VQ3(3) 

) 1ST PARAMETER 

M830 0 040 

O 

O 

0 U 4 1 

0 0 04 


EQU 

Vu4(4) 

) 

M3300041 


0042 






M33 J 0 3-r2 



ODti 

00 G5 


EQU 

VQ5 (5 ) 

) 

HSSuuOhS 



Oj^-^ 

0 0 0 6 


EQU 

V06( 6) 

) 2ND PARAMETER 

H330 0 1)44 

o 


Q 0 4 5 

0 0 0 7 


EQU 

V07(7) 

) 

M3 30 0 0^5 



0 0 4 6 






M933O04b 



o 


o 


JPF2V- 


PAGE 


DATE! i31/27/99 


Out 7 

0 0 08 


EQU 

VOB (3 3 

QQ 48 

0 0 0 9 


EQU 

V09 (9) 

0D49 
0 0 5 13 

00 OA 


EQU 

Vi0<10) 

0 u 5 1 

00 OB 


EQU 

Vll (11) 

0 3 5 2 

OQOC 


EQU 

V12 (12 ) 

0 3 5 5 
0 0 5 4 

00 CD 


EQU 

V13 (15) 

0 0 5 5 

OOOE 


EQU 

Vl4(l4) 

0 i 5 o 

00 OF 


EQU 

V15(15) 

Gl57 
G 0 5 3 

0 0 10 

-¥■ 

EQU 

V15(16) 

0 u 5 9 

0 0 11 


EQU 

V17 (17) 

0 Q 5 G 

0 0 12 


EQU 

V18(18) 

0 J 5 i 

0 013 


EQU 

V19 (19) 

0 3 5 2 

0014 


EQU 

V20 (20) 

0 0 5 3 

0 015 


EQU 

V21 (21) 

0 3 5 -t 

00 16 


EQU 

y22 (22) 

0 3 6 5 

0017 


EQU 

V23 (23) 

0 3 5 6 

0 018 


EQU 

V24 (24) 

03 57 

0 0 19 


EQU 

V25 (25) 

0 0 68 

00 lA 


EQU 

V25 (26) 

0 0 59 
0 07 0 

0 0 1 B 


EQU 

V27 (27) 


) 

) THIRD PARAMETER 

) 

) 

) 4TH PARAMETER 

) 

) 

) 5TH PARAMETER 

) 


TEMPORARY CHAR STORAGE 
CHARACTER STORAGE ADDRESS 


TEMPORARY USAGE 

ADDRESS OF FL8UF2 ^ 

TOTAL NUMBER OF FILES CHECKED SO FAR 


M833 0 047 
MdSOfl 043 
M83 j 0 049 
M330Q050 
MBSOOO^i 
M3300052 
M8300053 
M330005H 
M6300059 
M350u 05b 
M8 3 U 0 05 7 
M3 3D 0 058 
M 3 3 0 0 0 5 9 
M3 3 'J 0 06 0 
M33d0d61 
M3300052 
M830 0 0 63 
M330Q054 
M630 0 065 
M830 Q 055 
M8300067 
H8 i J 0 0 6 8 
M830 0 069 
M83 3 Q07Q 


CD72 
0 0 76 
00 7 4 


POINTS 
ENT JPF2 

V- 


M 3 3 0 o 0 / 2 
H3300073 
M83 j0074 


QG7 6 
0077 
0 0 78 
0379 

0 j 3 (j 
0 u 8 1 
u j 3 2 
0 0 33 
0 0 8 4 
0 u B 5 
G J 3 o 


^^^^'*-=«‘^EXTERNAL points 

EXT MI8JF 
EXT JB=>ROE 
EXT TRNVEC 
EXT MIB 
EXT LOGIA 
EXT FILE3 
EXT PARBV4 
EXT F3AS\/4 
EXT jBFL\/4 
EXT RELFIL 


SMI BUFFER ADDRESS 

ENTRY POINT TO JOB £N T ( TRN VEC ) 

ABS.AORS OF TRANTA BUFFER IN UCBENT 


LOG. WITH THt ADDRESS OF THE JObEMT BUFFER 
FIRST FILE NBR USED 8Y JOB PROCESSOR 
NBR OF JOB PROCESSOR FILES IN SYSTEM 
FILE MANAGER RELEASE ROUTINE 


M 3500076 
M3 33 0 377 
M83Q GQ78 
M350 Q 0 79 
M83Cu08u 
M830 0 031 
MB300082 
M3 3 0 0 0 B 5 
M330 0 084 
M33G 0 08 5 
M33D008& 


JPF2V4 PAGE 3 OATES 01/27/99 


00B8 




A' 




M833 0 088 

0 3 8 9 


OGQO 

P 


EQU 

JPF2(^) 

ENTRY POINT 

M83D0089 

GG9G 

PGCDC 

C8FE 


JPFL 

NUH 

3CSFE 


H 8 S u 0 0 9 0 

0 3 91 

FQuOi 

6C39 



STA^ 

(F3) 


M830 0091 

3392 





SAVE 

START ADDRESS OF JBFL PROGRAM 

M83CQ 0 92 

0 3 9 3 

Pu002 

6639 



STA^ 

JBVOi 


M3300 095 

0C9 4 








. M830D094 

0Q93 




-V- 

SAVE 

INPUT REQUEST BUFFER ADDRESS 

M8300095 

00 9 6 

PCCG 3 

E4G0 

X 


LDQ 

MIBUF 


M330009b 


POO 04 

7FFF 

X 





00 9 7 







IN HERE 

M833 0 397 

G J 9 H 

P 0 0 0 

4837 



STQ- 

J3V02 


M3300Q98 

0 3 99 








H3500099 

ulO 3 





COMPUTE THE 

OTHER ABSOLUTE ADDRESSES OF LOCATIONS 

MSSQOiG 0 

0101 





REFERRED TO 

IN THIS MODULE 

M35G0101 

0 1 0 2 




-¥■ 




M853 0 1G2 

010 3 

P 0 0 u D 

E839 



LDQ’^ 

FLBFIA 

REQUEST PARAMETER BUFFER ADDRESS 

M3300103 

CIO |4 

PO 00 7 

0 8 32 



AAQ 

Q 


M33 00104 

0 1 u 5 

P 0 0 06 

4837 



STQ^ 

FLBFIA 


M 3300105 

0 1 G o 

P Q 3 •- 9 

‘40FF 



STQ- 

I 


H8SGui06 

010 7 







M83G 0107 

0106 

P C 0 0 A 

E836 



LOQ^ 

FLBF2A 

FILE CLOCK BUFFER ADDRESS 

M3300108 

010 9 

PC OuB 

08 32 



AAQ 

Q 


M333 C1G9 

0113 

P03GC 

48 34 



STQ- 

FL3F2A 


M330 0 110 

0111 

POO CD 

411A 



STQ- 

V25,I 


M33D 0111 

0112 







M830ull2 

bll3 

0 0 ut 

E833 



LDQ- 

FLBF3A 

PRINT BUFFER ADDRESS 

M3300113 

Gll^ 

P 0 3 0 F 

0832 



AAQ 

Q 


M8 33 0 11 4 

0115 

P 0 0 1 13 

4800 



STQ 

FLS03C 


M8300115 


POOll 

0 3 02 







0116 

PD012 

48 2F 



STQ-'^ 

FLBF3A 


M3300116 

0117 








M8 30 Gil 7 

0118 





MOVE 

THE REQUEST COSE AND THE PARAMETERS FROM THE JOBENT 

M3300118 

0119 





BUFFER JBFL9F TO THE LOCAL BUFFER FLBUFl 

M8300119 

0120 




3f 




M83D0120 

0121 

P0013 

0 AOF 



ENA 

15 

INDEX=15 

M83G3121 

0122 

P0014 

DOFF 



RAO- 

I 

ADJUST I 

M33G0122 

0123 








MS300123 

0 1 2 «• 

P0015 

E 4 u 0 

X 


LDQ 

PARBV4 

GET ADDRESS OF JOBENT BUFFER 

M3300124 


P G 0 1 b 

7FFF 

X 





012 5 








M8 3Q012 5 

G126 

P0017 

b827 


JBFLG 2 

STA^ 

JBVQ4 

SAVE CURRENT INDEX 

H83Q0126 

012 7 








M8330127 

0128 

P00i8 

CE26 



LDA^ 

( J3VQ*+) 

,Q GET WORD 

M3330128 

0129 

PO 019 

6025 



5TA^^ 

{ J3V04) 

,I STORE WORD 

M3300i29 

0150 








M830 0130 

0131 

PCOIA 

C824 



LOA^ 

JBV04 

CHECK IF ALL WORDS MOVED 

H3333131 

313 2 

PO OIB 

Q9FE 



INA 

-1 


M8300132 

013 3 

PO OIC 

0 1 31 



SAN 

JBFL04 

SKIP IF ALL MOVED 

M333Q133 

ul3- 

POGID 

13F9 



JMP-^ 

JOFL02 

OTHERWISE LOOP 

M830 0134 

013 5 








M830 G 135 

3 13 6 

PO jIE 

Cuff 


JBFLj 4 

LDA- 

$FF 

RESTORE I 

M833 0 136 

G13 7 

PUOIF 

09FE 



INA 

-1 


M8330137 


JPF2V^ 


PftGE 


4 


date: Jl/27/99 



0138 

0139 

PQ020 

6 0 FF 


STA- 

$FF 


o 

0140 

P0D21 

CO OG 

X 

LDA 

=XJBFLV4 



PDG22 

7FFF 

X 





014 1 

P0 023 

0 116 


SAN 

JBFL03 

SKIP IF 

C) 

0142 

0143 

P0024 

G 101 


LDA- 

1,1 

FOR ANY 

0144 

Pu U2 5 

Q 9F8 


INA 

-7 



014 5 
014 6 

P0 026 

0120 


SAP 

JBFL05 

SKIP IF 


014 / 

PQ027 

0C04 


ENQ 

4 


O 

0148 

P0 028 

18 0 0 


JHP 

FLO 522 




P0029 

OIBB 






0149 



if 

READ 

THE FIRST 

FILE BLOCK 

r"\ 

0150 








FOR ANY REQUEST OTHER THAN REW/UNL NO ACTION 


0151 

0152 

Glp 

015- 

015 5 
015 6 
015 7 

0158 

0159 
015 0 
0161 
0152 
G163 

0 1 o 4 
0155 

015 6 

0157 

016 8 
0159 


P002A E0F9 
P0U2R C208 
P002C Dill 
POO 20 56 0 0 
P0 02E 02*45 
P002F 4600 


PD03C El 01 
P0 031 01 62 
P0G32 1800 
P0033 Qlb3 

PDu 34 El 01 
P0035 EAOO 
P0036 Q0A2 
P0U37 F80Q 
PG 03 8 0 0 03 
PQ039 1622 


JBFL33 LDQ- $E9 
LDA- 8,9 
STA- V17,I 
RTJ FlSG5 

NUM $4800 


FIRST SECTOR OF DIRECTORY 
SAVE IT FOR USE IN FLS05 
READ THE BLOCK 

FREAD 


CHECK WHETHER THE REQUEST IS TO CLOSE ALL THE FILES 
OPENED 30 FAR. 


LDQ- 1,1 
SQP JBFL0 5 
JMP FL0500 


JBFL05 LDQ- 1,1 

LDQ FLTD03,Q 

ADQ JBVOl 

JHP- (ZERO ) ,Q 


NOT SUCH A REQUEST. SKIP 


GET REQUEST CODE AVO EXIT TO 
YHE APPROPRIATE ROUTINE 


M830 0138 
M83QQ139 
M83 G 0 l40 

M83Q 0141 
MB3D0142 
H830Q1h3 
M330G144 
M33G0145 
H6S00146 
M83G0147 
M330014S 

M83GG149 
M83 0 u 15 0 
H83Q 0151 
M33uG152 
M63 3 0 Id 3 
M833 0154 

M8300155 
M8300156 
M830 0 15 7 
M33Q0158 
M8300159 
M830G 16G 
M8500161 
MaSflOloZ 
M8300163 

M330016H 

M83Q0165 

M83GG166 

M8300167 

M 8 3 0 0 1 D 6 
M83G0169 


JPF2V4 


PAGE 


date: 01/27/99 



0171 



V- 




0172 



II- V- V- * S- fl- ^ 

VARIABLES USED 


017 3 



V- 


FILE3 

\ > 

017^ 

PO 03 A 

7FFF 

X F3 

ADC 


0175 

PG 03B 

0 0 DQ 

JBVOl 

ADC 

0 


G176 

P003C 

QOCO 

JBV02 

ADC 

0 


0177 

PO 030 

OOGD 

JBV03 

NUM 

0 

'■J 

0178 

P 0 03 E 

00 ufl 

J3V04 

NUN 

0 


0179 







0180 

P0U3F 

0 0 42 

FLBFl A 

ADC 

FLBUFl-JPFL 

1 

0131 

PQOAO 

0 0 5E 

FLBF2 A 

ADC 

FL3JF2- JPFL 


0182 

PG041 

fl 0 BE 

FLBF3A 

AOC 

FLBJF3- JPFL 


U 


•4/ 

o 

o 

o 

o 


START ADDRESS 
INPUT REQUEST 
TEMPY STORAGE 
TEMP SOTIRAGE 


OF JBFL PROGRAM 

BUFFER ADDRESS 

FOR Q PASSED BY CALLER 


0135 

018 t* 

0135 

0136 
013 7 
0188 
0139 
019 0 
Q191 
0192 
G133 
0194 
019 5 
019 6 
0197 


PGD42 ilOlC 


P0G5E 0060 


PG G8E 
PuOBF 
POOCO 
POQOl 
PC0C2 
P00C5 
P 0 u C ^ 
PO OOP 
P00C6 
P00C7 
POOL 8 
P00C9 
PQOCA 
PG COB 
PQOCC 
PQOCD 
PO GCE 
PDOCF 
POODO 
POODl 
P00D2 
PQ0D3 


20 20 
2 0 aE 
41 AD 
4520 
20 20 
2G20 
2020 
2 0^4 
41 54 
4520 
2020 
2020 
20 20 
ZOhF 
502F 
43 AC 
20 20 
20 20 
20 20 
2 0 52 
2F 57 
2020 


j?- 

FL8U- 1 


ADDRESS OF FL8UF1 
ADDRESS OF FLBUF2 
ADDRESS OF FLBUF3 

THE SUFFER FLBUFl IS USED TO SAVE THE PARAMETERS OF THE 
GIVEN REQUEST. THE TEMPY STORAGE FOR SAVING INTERMEDIATE 
INFORMATION IS THE LATTER PART OF THIS BUFFER 

BZS FLBUFK28) 

THE BUFFER -LBUF2 IS USED TO READ THE FILE BLOCK AVAILABLE 
ON one SECTOF^ of the MASS STORAGE FILE. 


FL8U- 2 


BZS FLBJF2(96) 

^ THE FLBJF3 IS USED TO DUMP THE FILE TABLE 

FLBUF3 ALF 22, NAME DATE OP/CL 


R/W 


M83GU171 
M8300172 
M83CQ173 
M330Q17^ 
M83ij 0 175 
M830017b 
M83 J 0 17 7 
M330 0 173 
M83 j 0 179 
M830018G 
M83D0181 
H3300182 
M83 0 0 18 3 
M8330184 
M830 0 18 5 
M8300186 
M8300187 
M8300188 
M3o00189 
M83Q0 190 
M8300191 
M83Q0192 
M83Q 0193 
M3300194 
M83G 0195 
M83D 019b 
M83G0197 


O 

O 

C) 


c 


( 'I 


o 


M8300198 


o 

o 

o 

o 

o 

o 


o 





o 


0198 


JPF2V4 


Pf\GE 


o 


DATE: 01/27/99 


0 2 0 0 
020 1 

0 20 2 
G2u i 

u 2 3 V 


POOD4 caoo 

P00D9 3039 

PQQD6 1800 
PuOD7 004E 


* 

JE-$FIDE LDA =N$3039 
JMP FL0405 


JOB ABORTED 

T/0 ERROR IN EXECUTION OF REQUEST 


JOB ABORTED 


M83 0 0 20 0 
M33 3 0 201 

M83 0 0202 
M8300203 


M833 0 20 4 


JPF?V4 


P!\GE 


7 


DATE! 01/27/99 


G2Q 6 
020 7 



¥ 

FILE 

HAMDLI'JG ROUTINE 

G20 3 





FLOGuO- JPFL 

f 0 

020 9 

P00D8 

GO El 

FLT033 

ADC 

0210 

PQ 0D9 

QllF 


ADC 

FL04Q0- JFFL 

+ 1 

0211 

PQ OOA 

01 54 


ADC 

FL0450- JPFL 

+ 2 

0212 

P0QD3 

017E 


ADC 

FL0500- JPFL 

+ 3 

0213 

POGDC 

0 Q FO 


ADC 

FL"j 350-JPFL 

+ 4 

021 U 

POuDD 

OlEE 


ADC 

FL0650- JPFL 

+ 5 

0215 

POODE 

0196 


ADC 

FLQ600- JPFL 

+ 6 

0216 

PQ ODF 

0 2 4A 


ADC 

FL0700- JPFL 

+•7 

0217 

G21ft 

PuOEO 

0 2hA 


ADC 

FL0700-JPFL 

+ 8 


ADDRESS TABLES 

M83Q 0 20 6 
M830 0 207 

DEFINE 

M8300206 
M830 0209 

RELEAS 

M830 0210 

OPEN 

H850 0 211 

CLOSE 

M83j 0212 

MODIFY 

M8300213 

FILTDL 

M8500214 

PURGE 

M830G215 

REWIND 

M8300216 

UNLOAD 

M833 0 217 

H3300218 


JPF2V4 


PAGE 
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date: Gl/27/99 



H33 J Q 22D 
M83J0221 
H83j 0222 
M8330223 
M83 jQ224 
M830G225 
M83J 022 6 
M830 0227 
M833 0 22 8 
H63 3 022 9 
M830023C 

M83G0231 
M8300232 
M8300233 
M8300234 
M83 J 0 23 5 
M830 0236 

H83Q 0237 
M830 0 238 
H83U0239 
M830Q240 
M830Q241 

M830 0242 
M830 0243 
M8300244 
M8 33 0 245 
MS33 0 246 
M83C0247 
M333 02^6 
M833 0 2-t9 
M330 0 250 
MB3 0 QZEU 
H8300252 
M83G 0 253 
M33 0 0 25 4 
M353 0 255 
M83Q0256 
M3 3 3 0 25 7 
M833 0258 
H830 0259 
M833 0260 
H830 0 261 
M83QQ262 
M830G2&3 
H8300264 
M83C 0265 
M833 0266 
M833 0267 
M83GG268 
M830 0 269 


C.. 

O 

O 

O 

o 

o 

C''] 

O 

G 

O 

© 

o 

o 

o 

c 

o 


JPFZV^* 


PAGE 
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date: 01/27/99 


027 1 PQOFC 181E "" JMP» FL0360 REWRITE BLOCK AND EXIT 

0272 ^ 


M3 3 0 0 27 0 
M83Q0271 
M8300272 


JPFZV^ 


PaGE 10 


OflTE: Gl/27/99 


027U 

0 275 
02 7 6 
02 7 7 
02 78 
0 2 7 9 
0 23 Q 
0281 
02B2 
02 83 
02 31+ 

0285 

0286 
0 2 3 7 

0238 
0289 
0 29 0 
0 291 
02 92 
0 2 9 3 
02 9- 

02 95 

0296 

0297 

0298 

0299 
G30 0 
0301 
0 33 2 
0 3 3 3 
0 3 Q '+ 
0 3 0 5 
030 6 
0 3 0 7 

03 G« 
0 3 0 9 
OS 10 
0 311 
U312 
0313 
U 3 1 H 
u315 
0 316 
0 317 
0318 
0 319 
U 3 2 0 
u32i 
ii 322 
0323 
0 3 Z'-i 


POQFO 5800 
PQdFE OlAA 


POQFF C114 
POICG uill 
POlul 1822 


+f- 

=(■ 

X- 

X 

X 

X 

X 

X 

X 

FLO 350 

X 

X 

X 


X 

X 

X 


MODIFY FILE REQUEST ACTION 

SEARCH FOR A 9 WORD FILE ENTRY MATCHING THE GIVEN 
FILE NAME, ANO THE SECURITY CODE. 

IF NO 5JCH ENTRY IS PRESENT, REJECT (JIQ OR 
IF SUCH AN -NTRY IS PRESENT , CHECK WHETHcR THE NEW 
FILE NAME ALREADY DEFINES ANOTHER EXISTING FILE. 
IF YES, REJECT Jll IN FLS07 
IF NO, THEN MODIFY THE FILc PARAMETERS 

THE FIRST FILE BLOCK CORE ADDRESS IS IN V26,I. 

RTJ FL307 

CHECK WHETHER A FILE ENTRY HAS BEEN FOUND 


LDA- V20 ,I 
SAM FLC352 
JMP^'- FLO -01 


READ TH: 


FILE NOT DEFINED EARLIER. J1 D 
FILE BLOCK CONTAINING THE SPECIFIC FILE ENTRY 


P0102 

58 00 

FL0352 

RTJ 

FLS12 


PQ103 

0 2 26 

if. 







BASE 

ADDRESS OF 

THE ENTRY IN (Q) 




SET UP TO MODIFY 

THE FILE. 

P01D4 

C108 


LDA- 

VOS ,I 

NEW FILE NAME 

P i3 1 0 5 

66 2 2 


STA- 

(ZERO) , Q 


P.QIU b 

C1G9 


LOA- 

V09,I 


P 0 1 0 7 

6201 


STA- 

i + Q ^ 


P0108 

ClOA 


LDA- 

VIO , I 


P01b9 

6 2 0 2 

M 

STA- 

2,Q 


PlilOA 

ClOB 

V 

LDA- 

11,1 

NEW SECURITY 

P 0 1 0 3 

6203 


3TA- 

3,0 


POICC 

CIOC 


LDA- 

12,1 


PQIGO 

620 4 


ST A- 

4 , Q 


PQIDL 

Cl QD 


LOA- 

13, I 


POIGF 

6 2 05 

if. 

STA- 

5, a 


PG IIQ 

C206 


LDA- 

6 , Q 

NEW EXPIPATIO 

PClll 

AQ 21 


AND- 

NZERO+1 5 


PG112 

aiOE 


ADD- 

14,1 


P0113 

6206 


STA- 

6 + Q 


P U 1 1 4 

C207 


LOA- 



PQ115 

A021 


AND- 

NZERO+15 


P0116 

81GF 


ADO- 

15, 1 


P0117 

6 2 07 


STA- 

7,Q 



M833 Q 274 
M8300275 
M830 0 276 
M830Q277 
M330 0 278 
M83J 0 279 
M830 0 28 0 
M833 0281 
M3300282 
M3300283 
M833 0284 
MS3a0285 
M830 0286 
M83Q0287 

M3300283 
M830 0 289 
H8300290 
M350 0 291 
M83G0292 
M63D 0 293 
M 8300294 
M8 3 00 29 5 
M83G0296 
M8300297 


M330 0298 
M8300299 
M830 0 30 G 
M83 ju30i 
M3 3 0 0 30 2 
M33003G3 
H833 0304 
M8 3 0 G30 5 
M330030B 
M830 0 30 7 
M830 u 308 
M6330309 
M8300310 
M83DQ311 
M33Q0 312 
M8 3 u U 31 3 
H3300314 
M8 3 0i] 315 
M83CQ 316 
M83Q 0317 
M33u03l8 
H830Q319 
M8300320 
M83C0 321 
H33 0 D 32 2 
M8300323 
M3 30 0 324 


JPF2V4 
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date; 01/27/99 



C:' 

G 



0325 P 0113 Clio 

0326 PQ 119 6208 
0 3 2 7 

0323 

0329 

035 u POllA 5800 
P 0113 0153 
0331 POliC 4 C 00 
0 33 2 

0333 POllD 1800 
POllE OOCl 

0334 


LDA- 16tl 
STA- 3,Q 

^ REWRITE THE FILE BLOCK AND EXIT 

FLQ36G RTJ FL305 

NUM $4300 FWRITE 

JMP FL0520 




o 

o 

G 

o 

o 

o 

o 

o 

o 


o 

M 833 0 32 5 
H 8300326 

MS 30 0 32 7 O 

W 83 G 0328 

M 830 D 329 

M 8300330 

M 83 GC 551 • 

M 830 0 352 

M 8300333 

MS 33 0 33 4 

■ o 


G- 


O 




o 


o 


o 


o 


o 


c 


Q 


o:^3u 

0337 

033 8 
0339 

034 0 
0 341 

0342 

0343 
03 44 

0345 

0346 

0347 

0348 
0549 

035 u 

0351 

0352 

0353 
0 3 5 4 
0 3 5 5 
03 5 6 

0357 

0358 
0 3 59 
0350 

0 3 6 1 
0362 
03 63 

0 3 6 4 

0 3 65 
0366 
G '3 6 7 
0 3 6 8 

0 3 69 
0370 
037 1 

0372 

0373 

03 7 4 

037 5 
0376 
0 3 7 7 
03 78 
0379 


JPF2V4 
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DATEJ 01/27/99 


P012O aoco 

P012E 0103 
P012F GDCl 
P0 130 09FE 
PD131 18F6 
P0132 5800 
P0133 D20C 
P0134 5802 
PC135 18E4 
PG136 OBGO 


P013? 

PQi33 

P0139 

P013A 

P013B 

P013C 

P013D 

P013E 

P013F 

P0140 


3800 
FF02 
8DD0 
0153 
6800 
680E 
0 9 01 
680B 
5800 
01F6 




POUF 

5800 

FL O 40 0 

RTJ 

FL337 

P012Q 

0188 




P0121 

C114 


LDA- 

V2Q , I 

P0122 

0114 


SAN 

FLO 40 2 

P0123 

CO 0 0 

FLQhOI 

LDA 

=NB3130 

PQ124 

3130 




PQ125 

18 00 

FL0405 

JMP 

FL0072 

PO 126 

Q1D7 







SET 

UP ID CL 





V 13 ,1 = 





V19,I= 





V26,I= 



¥■ 


(Q) = F 

PQ127 

GA08 

FLQ4G2 

ENA 

8 

PQ128 

68 0 0 

FLG40 4 

STA 

FLV 6 0 1 

P0129 

00C4 




P012A 

0 8 44. 


GLR 

A 

P012B 

6622 


STA- 

■ (ZERO), 

PQ12C 

38 00 


LDA 

FLV601 


RELEASE FILE REQUEST ACTION 

SEARCH FOR A 9 WORE FILE ENTRY MATCHING THE GIVEN 
FILE NA^E AND THE SECURITY CODE. ^ ^ 

IF NO SUCH ENTRY IS FOUND, REJECT (JIO OR JD4) 

IF SUCH A FILE EXISTS CLEAR ALL THr 9 WORDS OF THh 
ENTRY, AND REWRITE THE FILE BLOCK. 

SEARCH FOR THE SPECIFIC FILE 


FILE MOT OEFINED EARLIER. JIQ 


EAR THE 9 WORD ENTRY 

INDEX TO FILE BLOCK 
INDEX TO ENTRY 
FILE BLOCK ADDRESS 
ILE ENTRY BASE ADDRESS 


Q 


FLC43 9 


RELFEL 

FLOhIO 


SAZ 

INQ 

INA 

JMP^ 

RTJ 

RTJ^ 

JMP^ 

NOP 


FL0409 

1 

-1 

FLO 404 
FLS15 

RELFEL 

FL0360 

0 


LOA JBVQl 

ADD =XF1LEN 

STA^ LOCI 
STA4 LOC3 
INA i 
STA^ LOC2 
RTJ FL514 


RFLEAS IT 


REWIND AND CLEAN UP PSYTAB 


ABSOLUTIZE ADDRESSES FOR FILMGR 

-JPFL CALL 

ADDRESS OF FILE NUMBER 
STATUS RETURN 

WORKINF BUFFER FOR FILE MANAGER 
GET FILE NUMBER 


M830 0 336 
M33 3 0 33 7 
H830 0338 
M8300339 
H830 0 340 
M330Q 341 
M830 0 342 
M 3 3 0 0 34 3 
M83j0344 
M3300345 


M333 0 346 
M330Q347 
M333 0348 
H333 0349 

M83Q 0 350 

M830 0 351 
M830 0 352 
M8330353 
M833 0 354 
M3330355 
M8300356 
M833 G 357 
M3300358 
M839 0 359 
M8300360 

M830Q 361 
' M3330362 
M8300363 

M833 0 364 
M333 0 365 
M83D0366 
M83J 0367 
6l'^1293M830 Q368 


foi^l293H33003&9 
M833 0 370 
H830 0 371 
M3300372 
H8300373 

M8 3Q 0 374 

M83Q0375 
MS300376 
M8300377 
M8330378 
M8 30 0379 


JPF2\/4 
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date: Oi/27/99 


POl-fi 6812 


P0142 
P01ii3 
P0144 
P4 145 
P u 1 4 c 
P014 7 

poma 

P0149 
PO 14A 
PQ14B 
Pul4G 
P0140 
P014E 
P014F 
P0150 
PU151 
P&152 


54F4 

1303 

0 0 03 

1 4EA 
54 C 0 
7FFF 
0 0 00 
00 00 
0 0 0 0 
54F4 
1300 
0 0 03 
14EA 
C800 
FEEE 
60FF 
1CE3 


STA^ FILEN 

HAVE TO SCHEDULE UP TO 3 TO MAKE THE FILE HANAGER CALL 
IF WE DON'T THE F. H. WILL INTERRP.RET THE CALL AS IF 


RELEASE THE FILE 



RTJ- 

($F4) 

RIL 

NUM 

$1503 


ADC 

RFIL- RIL 


JMP- 

(SEA ) 

RFIL 

RTJ 

RELFIL 

LOCI 

NUH 

0 

LOC2 

NUN 

0 

LOC3 

NUM 

0 


RT J- 

(SF4) 


s'J-ww 

ADC BAGKO-GOZERO 
JMP- (SEA) 

BACKO LOA FLBFIA 

STA- I 

JMP'^ (RELFFL) 


RESTORE I 


M8 5 0 0 38 G 
M83Q0381 
M83D0382 
M8300383 
M83 j 0 384 
M83JQ385 
M83Q 0 336 
M33Q0337 
M830 0 388 

M3 3 C 0 38 9 
MS 3 0 0 39 0 
M830 0 391 
M8300392 
H83Q0393 
M83C 0 394 
M33J0395 
M830Q396 

M8300397 
M830 0398 


0 4 C 0 PC 15 3 0 0 0 0 
0-01 
0 -tQ ^ 

0 40 3 
0 tO 4 


FILEM MUM ^0^^ LOCATIONS WILL BE USED AS A WORKING 

^ BUFFER BY THE FILE MANAGER. THIS WILL OVERLAY PART 

^ OF THE OPEN FILE ROUTINE BUT WILL CAUSE NO PROBLtH 

^ SINCE JPF2V4 WILL BE BROUGHT IN AGAIN. 


M330U400 


JPF2V4 
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date: Oi/27/99 


G406 




u 4 Q 7 




040 3 




0 40 9 




0410 




U 41 1 




G 4l 2 



¥• 

0 413 



TT 

04l4- 




0 415 

P0154 

El OB 

FL0450 

0+16 

P0155 

EEQQ 



Pai56 

0217 


0-417 

P G 1 5 7 

C2Q8 


0418 

P0158 

OFCF 


0419 

P0159 

0123 


0420 

P015A 

CQQO 



P015B 

30 37 


0421 

PO 15C 

1 8C8 


0422 

P015O 

5800 

OKUP 


P015E 

ul4A 


0t23 




0 4 2 -t 

P015F 

C114 


Q-r25 

P0160 

Gill 


C-,26 

P0i61 

18C1 


0427 




0428 




0429 




0 43 0 



if- 

045 1 

P0162 

C2G6 

FL0452 

0 4+3 2 

P0i63 

C 121 


0-33 

PQ164 

1814 


0 43 4 




0 43 5 

P0165 

BG32 

F L 0 4 5 3 

0 4 3 6 



if- 

0 43 7 

POlbo 

6206 


0438 



■¥■ 

0h39 



if 

0440 



if 

0441 



if 

0 442 

POlbZ 

0207 


0443 

P0168 

AO 11 


Q U 4 4 

PQ169 

Bi 08 


0 44s. 

P016A 

6207 


0 4 4b 



if 

D4 4 7 



if 

0t48 



if 

0449 



if 

0450 



if 

04p 1 



if 

Q45 2 



if 

0 45 3 

P016B 

El OB 


unb-t 

PulbC 

EEOQ 



P016D 

0 2 00 



□PEN FILE REQUEST ACTION 


SEARCH FOR A 9-WORD FILE ENTRY MATCHING THE GIVEN 
FILE NAME AND THE SECURITY CODE. ^ ^ 

IF NO SUCH ENTRY IS FOUND REJECT (JIO OR J04) __ 

IF SUCH A FILE EXISTS OPEN THE FILE (SET B15 OF 
ENTRY+6) AND REWRITE THE FILE BLOCK. 


LDO- ViltI 
LDQ (AL0G1A),Q 


GET LOGICAL UNIT 
GET POT ADDRESS 


’^♦MSOS 

«^^MSOS 


LDA- 8,Q 
ALS 15 
SAP OKJP 
LDA =A07 


GET EREQST ^^MSOS 
GET AVAILABLE TO JNPROT BIT IN A15^»MS0S 
IS AVAILABLE TO UNPROTECTED !!l^SOS 
JP07 ERROR *»MSOS 


JMP*-- FLO 40 5 
RTJ FL307 


60 REPORT 

SEARCH FOR SPECIFIC FILE 


^♦NSOS 

’^^MSOS 


LOA- V2D_,I 

JMP- Fu4o1 file NOT DEFINED EARLIER. Jlfl 


SET 315 OF -ILt 
RASE ADDRESS OF 


ENTRY+6 

FILE ENTRY IS IN (Q) 


LDA- 6,0 
SAP FL0 453 
JMP^ FLO+55 


SKIP IF THE FILE IS CLOSED 
OTHERWISE REJECT. J14 


EOR- ONEBIT+15 


ST A- 6,Q 

SET THE R/W INDICATOR (BIT 15 OF ENTRY+7). 
FOR R(REAO) 815=Q AND FOR W(WRITE) Bl5=i 


LDA- 7,Q 
AND- LPMASKi-15 
EOR- V08,I 
STA- 7,0 


LDQ- 

LDQ 


GET THE PHYSTAB ASSOC. WITH THE ASSIGNED LU AND 
CHECK TO SEE IF THERE IS A CURRENTLY OPtN FILE 
ASSIGNED TO THIS PSEUDO TAPE. IF THERE IS OUTPUT 
A JPl4 ERROR. IF NOT GET THE FILE NUMBcR AND 
SAVE IT IN PHYSTAB+16. 

Vil,I GIVEN LU(4TH PARAMETER) 

(ALOG14 ) ,Q 


M83 3 LL0b 
M83 0 0‘4Q7 
M830 0 40 8 
M6300+09 
M830041C 
M8300 411 
M83QG 412 
N83a0 413 
M83J0 +14 
4.1*'^M8 3 u0 415 
4.1’^^M83 00 4l6 

4.i^^-M83U0 -417 
4.1^^H830 0 418 
4.t^^M8300 419 
4.1^^M83D0420 


4.1 + + M830C 421 
4.1^^M8500422 


M8 3 0 0 h2 5 
M83D 0 h24 
M83Q 0 42 5 
H83D0+25 
M8300+27 
M830 0 428 
M830 0 429 
M8300430 
M830 0 ^-^3l 
M83Q0432 
M830 u 433 
M3300434 
MS30 0 43 5 
M830 0436 
M83Q 0 437 
M830D438 
M8 30 0439 
M830044G 
M330G 441 
M830 0 h 42 
M33u 0 443 
M830 0 444 
M830 0445 
MS 3 0 0 446 
M8 30 0 44 7 
M33Q 0 h48 
M830 0*449 
M8 3 0 G -»5 0 
M830 0 451 
M830 0 452 
M83G 0455 
M850 0 454 


JPF2V4 
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O-t-53 P016E G2 10 

04 56 P016F 0113 

0457 P017Q 58 00 
P0171 Q1C5 

0458 P0172 6210 
0 -t 2 9 

0460 P0173 GOOD 
P017h 2401 
04-61 P0175 B108 
0452 P0176 620C 
0 4 5 3 

0454 PQ177 18A2 
0 t5 5 

0456 PQ178 COuO 
P0179 3134 
0467 PC17A 18AA 
0 45 8 P017B CO GO 

0459 P017C OOOQ 
0-70 PG17D 0000 
C>4 71 

0472 


LDA- 16,9 
SAN FL0455 
RTJ FL314 

STA- 16,9 

* 

LDA =NS24D1 

EOR- VOS, I 
STA- 12,9 

¥■ 

JMP^' FLO 350 

-if- 

FL0455 LDA =953134 

JMP^ FLD405 
FLV457 NUH 0 
FLV458 NUM 0 
FLV459 NUM 0 


IS THE already A FILE ASSIGNED 
YES, OUTPUT JP14 ^ ^ „ 

NO, GET THE AOS. NBR. OF THE FILt 

(A)=FILE NUMBER 

SET 800 LOADPOINT READY STARUS 


TRY TO OPEN AN OPENED F IL E . RE J ECT . J14 


TEMPY USE 
TEMPY USE 
TEMPY USE 


M 8 3 j 0 4 5 5 
M3 3 j 0 HP 6 
M83 0 Q 45 7 

M 8 3 J 0 4 5 8 
M831 0 h59 
98300460 

M33 0 0 451 
M830 0 452 
M3300hd3 
M830 0 4o4 
M8300h65 
M8 30 0 46 6 

M830 0 h67 
M330 0 458 
M8300h69 
M830G470 
MB30 Uh71 
M8300 472 




JPF2V4 PAGE 16 DATE: 01/27/99 




0^7-+ 






M83D 0 -,7 4 


0 -♦ 7 5 




CLOSE FILE REQUEST ACTION 

M8300t75 


0t76 






M8330h75 


01^77 



V- 

SEARCH -OR A 9 

WORD FILE ENTRY MATCHING THE GIVEN 

M83G 0^77 


047fi 




FILE NAME AMO THE SECURITY CODE. 

M83j 0 478 


0479 




IF NO SUCH ENTRY IS FOUND REUECT (JIO OR UG4) 

M830 0 479 


0t3 G 






M85 0 0.480 

: C' 

0 481 




IF SUCH A FILE 

EXISTS BUT HAS NOT BEEN YET OPENED REJECT J12 

M83Q0481 

0432 






M83Q0-tS2 


0483 




IF SUCH A FILE 

EXISTS CLOSE THE FILECCLEAR B15 OF 

M33D0483 


0484 



-v* 

ENTRY+6) AND REWRITE THE FILE BLOCK. 

M83j Q 484 

o 

0 i+8 '3 






M83G 0 485 

0436 

P017E 

5800 

FL 0 5 3 0 

RTJ FL307 

SEARCH FOR THE MATCHING FILE ENTRY 

M83 j 0 486 



PO 17F 

0129 






0487 






M333Q487 

■ o 

0t88 

PO 18Q 

C114 


LDA- V2Q,I 


M830 0 48 8 

0489 

PO 181 

0111 


SAN FLG502 


M8 5 0 0 43 9 


0490 

P01d2 

18A0 


UMP^ FLO^Ql 

FILE NOT DEFINED EARLIER. JIO 

Ma50Q490 


0491 






M8300491 

o 

G-»92 




CLEAR BIT 15 0- 

THE FILE ENTRY+6 (BASE ADDRESS IN Q) 

M330 0 492 

0493 




AND REWRITE THE 

FILE BLOCK. 

M33 0G 49 3 


049- 






M83G 0 494 


0 49 3 

P0183 

C206 

FLG5D2 

LDA- 6,Q 


M33aa495 


0~9b 

P0184 

0131 


SAM FL5G2A 

SKIP IF OPEN FILE 

M8300496 


0-9 7 

P0185 

180E 


UMP» FL0509 

OTHERWISE REJECT. 

MS3Q 0 49 7 


0^98 

P018& 

80 32 

FL50ZA 

EOR- ONEBIT+15 


H83Q G 498 


0-r99 

P 0 1 8 7 

6206 


STA- 6,Q 


M3S0 0 ^99 

o 

0 5 0 0 





M8 3 0 0 50 C 

0 50 1 




RESET THE WRITE 

INDICATORCBIT 15 OF ENTRY+7) 

M330 0 501 


0 50 2 






M33Q0502 


u y 0 3 

P0188 

C207 


LDA- 7,0 


M330C503 

; O 

05j 4 

PG189 

AO 11 


AND- LPMASK415 


M83 j 0 50 4 

0 5 0 5 

P018A 

6207 


STA- 7,0 


M830 0 50 5 


0 5 0 6 

PQ18B 

48F1 


STQ^ FLV459 

SAVE CURRENT FULL ENTRY 

M83aQ5Q6 


0 5 0 7 

P018C 

580 0 


RTJ FLS15 


M83Q 0507 

; O 


P018D 

01B2 





05 0 8 






M330 050 8 


0 5 0 9 

P018E 

E8EE 

FL 0 50 6 

LOQ^ FLV459 


M8300509 


0510 

DQ18F 

C800 


LDA FLBFIA 

RESTORE I 

M8300510 

■ O 


P0190 

FEAE 





0511 

P0191 

6GFF 


STA- I 


M3300511 


0512 



if 



M830 0 512 


0513 

P0192 

1887 

FL0507 

JMP» FLO360 


M8300513 

O 

0514 



V- 



M8 30 0 514 

0 515 



* 



M330 051 5 


0516 

P0193 

GOOG 

FLO 53 9 

LDA =N53132 

FILE NOT OPENED EARLIER. REUECT. J12 

M833 0 516 



P0194 

3132 





O 

0517 

P0195 

186F 


JMP’^ FLO 405 


M83DQ517 

0 518 






M33D 0518 



o 


o 
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0 5 2 0 
0 521 

0522 

0523 
D524 
052 5 
0 52 5 
0527 
0 5 2 8 
0 52 9 
0 5 3 0 
0531 
0 5 3 2 
0 5 3 3 
0534 
05 3 b 
0 5 3 6 
0 537 

0538 

0539 
0 5 4 0 
0541 
0 !? 4 2 
0 5 4 3 
0 5 4- 
Qb4b 
05 45 
0 54 7 
G-^48 
0549 
055 0 
0 5 5 1 
0552 
0 55 3 
0 5 5 4 
05 5 5 
0 p 5 o 
0 5 5 7 
05 5 8 
055 9 
05bG 
0551 
0562 
0 563 
0 564 

0565 

0566 

0567 
0 5 6 8 
0 5 6 9 
057 0 
0 5 7 1 
0 5 72 


V- 

V- 

•Sf' 

V- 

* 

=t- 

* 

V- 

=!■ 

* 

V- 

V- 

V- 

•¥■ 

¥■ 

At 

¥ 

* 

If 

4f 

* 

-if 

ilf Jf ^f 
sf 
* 

-V- 

■¥■ 

* 


PURGE REQUEST ACTION 

SEARCH FOR A 9 WORD ENTRY FOR A DEFINED FILE. 


GOHPARE THE EXPIRATION DATE WITH THE GIVEN DATE 

IF THE EXPIRATION DA TE . LE . GI VEN DATE, ZERO OUT THE ENTRY. 


AFTER ALL THE ENTRIES IN A 
REWRITE THE FILE BLOCK ONLY 
HAS BEEN PURGED. 


FILE BLOCK HAVE BEEN CHECKED 
IF ANY ONE OF ITS ENTRIES 


EXIT FROM THE ROUTINE AFTER ALL THE FILE BLOCKS HAVE 
BEEN PURGED OF ALL ENTRIES WITH THEIR 0 AT ES. L E . G I VEN DATE. 


ROUTINE TO CLOSE ALL FILES OPENED SO FAR. 

THIS CLOSING OF ALL THE FILES OPENED AT ANY TIME IS^ 
DONE ON THE CALL FROM THE JOB PROCESSOR. THE CONTENTS 
OF Q IN SUCH A CALL ARE SFFFF {NEGATIVE ZERO). 

SEARCH FOR A 9 WORD ENTRY FOR A DE"INED FILE 
CHECK WHETHER THE FILE IS CLOSED OR OPENED. 

IF CLOSED MO ACTION 

IF OPEN, CLOSE THE FILE, AND SET FILE FOR READ ONLY 

AFTER ALL THE FILES IN A FILE BLOCK HAVE BEEN CHECKED 
REWRITE THF FILE BLOCK ONLY IF ANYONE OF ITS ENTRIES 
HAS BEEN CLOSED 

EXIT FROM THE ROUTINE AFTER ALL THE FILE BLOCKS HAVE 
BEEN CHECKED. 

THIS ROUTINE IS USED FOR BOTH THE PURGE AND THE 
THE CLOSE ALL THE OPENED FILES 

THE WORD INDICATING THE PURGE/CLOSE ALL OPENED FILES 
IS THE REQUEST PARAMETER BUFFER (ADDRESS _IN I ) +1.. ^ 

IT IS NEGATIVE WHEN ALL OPENED FILES ARE TO BE CLOSED 
IT IS 6 FOR PURGE FILE TABLE REQUEST 


* 

Af 


INITIALIZE 


PO 196 

0 8 4-t 

¥ 

FL063 0 

CLR 

V26 , 1= " I f 
A 

PQ197 

oi 14 


STA- 

V20 , 1 

P0198 

6115 


STA- 

V21,I 

PS] 199 

6116 


STA- 

V22,I 

P019A 

EllA 


LDQ- 

V 2 6 , I 

P019E 

C 62 2 

FLObOl 

LDA- 

(ZERO) , Q 


IRST FILE BLOCK CORE ADDRESS 

A FILL entry has BEEN PURGED INDICATOR 
INDEX TO NUMBER OF FILE BLOCKS CHECKED 
INDEX TO CURRENT FILE ENTRY IN FILE BLOCK 
FILE BLOCK CORE BASE ADDRESS 

GET ENTRY ASSOCIATED WITH V22,I 


M33D0520 
M330 0 521 
M830 0 522 
M3500523 
H83G 0 524 
M833 0525 
M83D0526 
M83j 0327 
M83i 0528 
M83Q 0529 
M830i]53 0 
M8 3 0 0 531 
M830 0 552 
M830 0 533 
M8 3 0 0 53 4 
M33Q0535 
M833 0 535 
M830G537 
M8300538 
M33 j 0553 
M 8 3 0 Li 54 0 
H83u054l 
M830 0 542 
M83Q0543 
M833 0 544 
HaSQ 0545 
M33u Ob-tS 
M833Gb47 
H33 j 0 548 
H8 3 00549 
H830ub50 
M833 0 551 
M330 0 552 
M8300553 
M83 j 0554 
M833 Q555 
M830G55O 
M83Q Obb? 
M8300558 
M830 0 559 
MB 3 0 0 56 0 
H33G0 561 
M830 0 562 
M8 30 0 563 
M83Q 0 5d4 
M830Q565 
M3 50 0 p66 
M8300567 
M330G568 
M8300569 
M83C0570 
M8300571 
M830 0572 


JPF2\/4 
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0573 

0574 
05 7 5 
0 5 7 fa 
0577 
0573 
0579 
0?3 0 
05 31 
0532 
0 583 
0 58 4 
0 5 3 5 

05 8 6 
0 5 87 
0 588 
0589 
0 5 9 C 
059 1 

0592 

0593 
0 5 9‘* 
0595 
0 ::>3 6 
0 5 9 7 
0598 
3599 
G 50 0 

06 0 1 
0602 

05 0 3 
0 5 0% 
050 5 

06 0 6 
050 7 
050 8 
0609 
G b 1 ti 
0511 
0612 
0613 
061% 

0615 

0616 

0617 

0618 
0619 
0 6 2 0 

0621 
0622 
0 62 3 
0 6 2 4 


P019C 

u 111 


SAN FLuolA 

ENTRY IS DEFINED. SKIP 

P019D 

1825 


JMP* FL0610 

EMPTY ENTRY. 



■nr 

CHECK THE PJRGE/CLOSE ALL REQUEST 

P019E 

Cl 01 

FLG61 A 

LOA- yolji 

PURGE REQUEST. SKIP 

P019F 

G121 


SAP FLjdIB 

POIAO 

18 30 


UMP- FLO 615 

CLOSE ALL FILES REQUEST. 

POlAl 

C2G6 

FLQ6LB 

L DA- 6 » Q 

DO NOT PURGE AN OPEN FILE. 

PO 1A2 

j 121 

SAP FLD602 

CLOSED FILE. SKIP TO PURGE IF NECESSARY 

P01A3 

1311 


JMP- FLGbQ5 

OPEN FILE. DC NOT PURGE. 

JigC 

COMPARE THE EXPIRATION DATE OF THE ENTRY WITH THAT OF REQUEST 

P 0 1 A % 

CIDt 

FL0632 

LDA- V04,I 

YY 

P01A5 

9208 


sue- 8,Q 

SKIP TO CHECK MONTH 

P u lA b 

0102 


SA2 FL0603 

P01A7 

0120 


SAP FL3606 

PURGE 

PQ1A8 

180C 


JMP* FLQd05 

DO NOT PURGE 

PG1A9 

C206 

FLG603 

LDA- 6,Q 

MM 

POIAA 

AO 11 


ANU- LPMASK+15 


PGlAB 

9102 


SUB- V02,I 

SKIP TO CHECK DAYS 

POIAC 

0102 


SAZ FL0504 

POIAD 

0137 


SAM FL0606 

PURGE 

POIAE 

18 06 


JMP- FL3605 

DO NOT PURGE 

POIAF 

02 0 7 

FLQb04 

LDA- 7,Q 

DD 

POIBQ 

AO 11 


AND- LPMA3K+15 


POIBI 

9103 


SUB- VG3,I 

PURGE 

PG182 

0132 


SAM FLG606 

P01R3 

0 101 


SAZ FL0606 

PURGE OF EQUAL D A YS , EQU ALMONT H . FQU A L YEAR 

P01B% 

18 CE 

FL0605 

JMP* FLOfalu 

DO NOT PURGE 



if. 

PURGE THE ENTRY 


P01B5 

0 AQ8 

FL Q 60 6 

ENA 8 


P01B6 

6837 

FL063 7 

STA^ FLySOl 


PO 1B7 

0 8 44 


CLR A 


P01B8 

6622 


STA- (ZERO),Q 


P0189 

C834 


LDA^^ FLySGl 

ENTRY PURGED. SKIP 

POIBA 

0103 


SAZ FLU608 

POIBB 

ODOl 


INQ 1 


POIBG 

Q9FE 


INA -1 

LOOP 

poieo 

18F8 


JMP» FL06Q7 

POIBE 

58C0 

FL0638 

RTJ RELFEL 

RELEASE FILE SPACE 

P018F 

FF?6 



SET AN ENTRY WAS PURGED 

POICQ 

D114 


RAO- V2Q,I 

POiCi 

0DF7 

V 

INQ -8 


P01C2 

Glib 

FL0610 

LOA- V22,I 

CHECK ALL ENTRIES IN THE FILE BLOCK 


M8s0G575 
M830057% 
M830G575 
M830 0 576 
M83 j 0 57 7 
M83D0578 
M8300579 
M33Q0580 
M83D0581 
M8300582 
M3300583 
M83G 0 584 
M83Q 0 585 
M8300 586 
H833 0 587 
M83J 0588 
M830G589 
HS3DQ590 
H83u 0591 
M33G 0 59 2 
M330 0593 
M83G 059% 
M83j Q 595 
M33 3 0 596 
M8300597 
M830 0596 
M8300599 
H3300600 
M83a0601 
MS3UU602 
M830G&03 
M33 0 a 60 4 
M83C 0 605 
M8 3ii Q60b 
M830 0 607 
M8300608 
M83G06G9 
M330061C 
M83Q0d 11 
HS30 0 612 
M83 0 0 61 3 
M83Q 0614 
M833 0 ol5 
M833 G516 
M 8300617 
M33 0 0 618 
M8 30 G 519 
M3 33 0 62 0 


M 8 3 G 0 o 2 1 
M83 3 0 62 2 
M33u0b23 
H8 3 3 0 62 4 


L..-' 


o 



JFF2V4 

P4GE 19 

DATE: 31/27/99 



352? 

P01C3 

G9F6 


INA -9 


H330 0625 



05 2 6 

P01C4 

0117 


SAN FL0514 

NOT ALL PROCESSED. SKIP 

M8300625 


o 

0527 






M33G 0627 

o 

052 6 

P01C5 

C114 


LOA- V20,I 

CHECK ANY FILE CLOSED/PURGED FROM THIS 

BLOCK. H33Q0o28 


05 2 9 

P01C6 

0 105 


SAZ FLOoIa 

NONE. SKIP 

M830 0 529 


o 

QS30 

0b31 

P01C7 

58 0 0 


RTJ FLS05 

OTHERWISE REWRITE THE FILE BLOCK 

M83G 0630 
M83 L, 0 63 1 



PO 1C8 

00 A8 




; U 


C532 

P01C9 

4CQ 0 


NUM $4000 

FWRITE 

H833 D 632 



0633 

POiCA 





M830G633 


o 

053i<- 

0 8 44 
5114 


CLR A 

RESET THE FILE CL OS EO/P URGED FLAG. 

M330 0 63 4 


0555 

POICB 


STA- V20,I 


M333 0635 



0 5 3 6 






M833 0 636 



053 7 

POICC 

5800 

FL0614 

RTJ FLS05 

GET NEXT FILE ENTRY, IF ANY. 

M8300637 




PUICD 

G0C5 




^ c 


0 5 3 8 

POICE 

1811 


JMP^ FLQ520 

ALL FILES CHECKED EXIT 

H333 0 638 


05 3 9 

POICF 

18CB 


JHP^ FLQ501 

PROCESS THE NEXT ENTRY. 

H833 0 639 



0 64 0 






M830 0640 


o 

0541 




COME HERE TO CLOSE 

THE file IF IT IS OPEN 

M83u 0641 


05 42 






M83Q0 542 

1 I 


0643 

poino 

C2 0 6 

F L u b 1 5 

LDA- 6,Q 


M830 0 643 



05 4*^ 

PGIDI 

012C 


SAP FLQ616 

FILE CLOSED ALREADY SKIP 

H63006*+4 



0 5 4 5 






M3300645 

: O 


0 5 V 6 

P01D2 

AO 11 


AND- LPMASK+15 

CLOSED FILE FLAG 

M833Q645 


0 54 7 

P01O3 

6206 


STA- 6,0 


M830 0647 



0 6 4 8 

PQ1D4 

C2Q7 


LOA- 7,0 


M33u 0 648 


o 

0549 

P01O5 

AO 11 


AND- LPMASK+15 


M33D 0649 


0 5 5 G 

P01D5 

6207 


STA- 7,0 


M83 3 0 65 0 



Q 65 1 






M330Qd51 



G o 5 2 

PQ1D7 

C115 


LOA- V21,I 

NUMBER OF THE FILE BLOCK SECTOR 

M33Q 0 o52 



05 5 3 

P01D8 

6112 


STA- V18,I 


M83 0 0 65 3 

r’“^\ 


Dtj5 

P01O9 

C116 


LDA- V22,I 

NUMBER OF ENTRIES IN THE FILE BLOCK 

M833 0654 



0 5 5 5 

PulDA 

6113 


STA- V19,I 


M830 0655 



0 5 5 6 

POIDB 

5800 


RTJ FL315 


M83 0 0 65 6 


C^') 


PO IDC 

0163 






D 5 5 7 






M83 0G 65 7 

■ '4-' 


0 5 5 8 

POIDD 

0114 


RAO- V2Q,I 

SET A FILE IS CLOSED INDICATOR 

M33Q 0o58 



05 59 






M833 0659 


o 

0 5 5 3 

PfllDE 

18E3 

FLQ6i6 

JMP-*' FLObiO 

CHECK NEXT ENTRY 

M3300o6G 

■ o 


0551 



¥ 



H83ua6bl 

o 

0 553 






H830Qfa63 

; O 


0 55 4 




SET UP TO TyPE J AND INPUT CONTROL STATEMENT 

M830Qb6^ 


o 

0 55 5 



¥ 



M833 0 a65 

^ O 

0 656 

POIDF 

OCOG 

FLQ6ZG 

ENO. 0 


H330 0665 


0567 

PQIEO 

ClQl 


LDA- V01,I 

ARE WE A6IRTING A JOB 

M8300667 



0 5 5 8 

POIEI 

0131 


SAM 1 

YES 

M833 0668 


o 

0 5 69 

P01E2 

OOCA 


INQ 10 


M8300669 

r"\ 

‘*>»x 

0 5 7 0 

P01E3 

QDQ4 


INQ 4 


M83Q067G 

O 


Qo 7 1 






H830 0671 


o 








o 

o 








o 
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u D 7 2 

PG1E4 

0 8 44 


FLQ622 

CLR 

A 

CLEAR MID 

SWITCH 

M8300672 

0 673 

P01E5 

6C07 



STA* 

(FL0625 ) 



M33G0673 

0 5 7 -f 

POlEb 

C 4 L 0 

X 


LDA 

J8PR0E 



M 8300674 


P01E7 

7EFF 

X 







Q 6 7 6 

PU1E8 

63 03 



STA^ 

FL052941 



M83Q 0 675 

C 0 7 D 

P01E9 

OAOl 



ENA 

1 



M8300676 

0 377 









M83j 0o77 

0 57 8 

PQIEA 

14 0 0 


FL0629 

JHP + 

0 



M33D0678 


POIEB 

0 0 0 0 








0679 









M83DG679 

068 0 









M8300680 

053 1 

POIEC 

7FFF 

X 

FL0625 

ADC 

MI3 



■ M83Q0681 

0632 









■ M83D0 682 

0683 









M8300683 

Q 0 8 4 

“DIED 

0 Q 00 


FLV601 

HUM 

0 

TEMPORARY 

STORAGE 

M83 0 0 684 

0635 









M83J 0685 


JPF2V4 
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date; 01/27/99 


O 

o 

O') 

o 

o 


0 53 7 

058 8 
053 9 
0 5 9 C 
0691 
0 5 9 2 

059 3 
069^ 
0 0 9 5 

0596 

0597 
0 5 9 8 
0599 
070 0 
070 1 
0702 
07 0 5 
07 0 4 
07 0 5 
0 70 6 
07 0 7 
0 70 8 
0 7 0 9 
0710 


■V 

■^r 

->h 


PRINT FILE TABLE REQUEST ACTION. 

SEARCH FOR A OEFIMED FILE AND PRINT 
FILE NAME 

MAXIMUM RECORD LENGTH 
EX=>IRATION DATE 
OPEM/CLOSE STATUS 
REA3/WRITE STATUS 

EXIT WHEN ALL FILES HAVE BEEN PROCESSED 
ON ENTRV THE FIRST FILE BLOCK CORE ADDRESS IS IN V26,I. 
INITIALIZE 


POIEF 0844 
PQIEF 6115 
POIFG 6116 


POIFI 5800 
P01F2 0119 


FL0 65 0 


* 

* 


CLR A 
STA- V21,I 
STA- V22,I 


INDEX TO FILE BLOCKS 
INDEX TO FILE ENTRY 


PRINT IMF HEADER FOR THE BUFFER, AND THEN RESET THE 
PRINT BUFFER TO ALL BLANKS 


RTJ FLS08 



0711 





o 

0 712 
u?’13 




GET THE BASE i 


0 71^- 



if- 



0 715 

P01F3 

0 G u 0 

FLO 65 2 

ENQ 0 


0716 

P01F4 

C116 


LDA- V22,I 


0717 

P01F5 

0FC3 


A LS 3 


0718 

P01F6 

8116 


ADD- V22,I 


0 719 

P D 1 F 7 

81 lA 


ADD- V25,I 

■T> 

0 7 2 0 

P01F3 

C822 


TRA Q 

-iJ 

0 7 2 1 






0722 

PO 1F9 

i+850 


STQ'^ FLV652 


0 72 3 

PGIFA 

C622 


LDA- (ZERO),Q 


072^ 

POIFB 

Gill 


SAN FLD654 

-.J 

0 7 2 5 

PQIFC 

183D 


JMP- FL0&64 


0 72 6 






0727- 




FORMAT THE FI 

O 

072 8 





3 7 2 9 

PO IFO 

COFF 

FLO 65 4 

LDA- I 


G73U 

POIFE 

684A 


STA"^ FLV651 


073 1 






0 732 

POiFF 

C80Q 


LDA FLBF3A 



P0 2GQ 

FE40 




0 73 3 

= 020 1 

60FF 


STA- I 


0 7 3 4 





J V 

Q735 

P02j2 

C622 


LDA- (ZER0),Q 

J 

0736 

PG2f3 

6101 


STA— 1,1 


C737 

P 0 2 0 H 

C2G1 


LDA- 1,0 


ADDRESS OF THE FILE ENTRY 


INDEX TO file ENTRY 
MULTIPLY 8Y 9 

PLUS BASE ADDRESS OF THE BUFFER 
BASE ADDRESS OF ENTRY 

SAVE FILE ENTRY ADDRESS 
GET ENTRY 

FILE IS DEFINED. SKIP 
EMPTY FILE ENTRY. 


SAVE REGISTER I 


print BUFFER ADDRESS TO I. 


FILc NAME 


M833 0 68 7 
M8300688 
M33G 0689 
M83u 0690 
Ha 3 0 Q 69 1 
M3300692 
M8300b93 
HSsiO 0 694 
M3 3G 0 695 
H83 0 0 d9 6 
M83D0d97 
M3300693 
M833 0699 
H33D Q700 
H83ij 0701 
M83G0702 
M830G703 
M8530704 
M33 j 0 70 5 
M830 0 706 
M33Q0707 
M3300708 
M833 0 7U9 
M83fl071G 

H8300711 
M3 33 3 712 
M8330713 
M33aQ714 
M830 0 715 
M83J 0 715 
M330 0 717 
M8 3 3 0 71 8 
M83G 0719 
M83 0 u 72 0 
M83Q 0 721 
M8300 722 
M9300723 
M830 0 724 
M830 0 72 5 
M830 0 726 
M85G 0 727 
M333 0 72 8 
M833Q729 
M3300730 
H33 0 0 731 
M330 0732 

M33C0733 
M83Q 0734 
M330 0 73 5 
M 830 0 73 6 
M333 0737 


o 


o 

o 

o 

o 


C) 


o 


L.-' 


o 

o 

o 

o 

C) 

o 

o 


o 
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MtJ3j 0738 
M830 0 739 
M830 D 7^0 
M33C0 741 
M83u 0742 
M83DQ 743 
M83Q 07^-4 
M83G 0745 
M830 074b 
H330 0 747 
M83G07t8 
M830 0749 
H8 3 0 G 75 0 
H830D751 
M83 0 0 75 2 
M830 0753 
M83Q 0754 
M833 0 755 
M83 G 0 75 b 

M33G 0 757 
M830 0758 

M830 0 759 
M83GC760 
M8300761 

M8300752 
M330 0 763 

H830 0 764 
M3 300 7d5 
M3 30 0 765 

M830 0767 
M830 0 768 
H830 0 769 
M83li!3 77 0 
M830 0771 
M830 0 772 
M330 0 773 
M83G0774 

M83Q0775 
M333 0 776 


c 

o 

o 

o 

o 

o 

o 

o 

o 

0 

o 

o 


M8300777 
M833 0778 


o 


c 


o 



M330 0779 
M83Q 0 78 0 
M830 0 781 



M33D 0782 
M83DQ783 


O 


M85j 0784 
M833 0 785 

M83G 0 78b 
M830Q787 
M330 0788 
M8300789 
M83Q0790 
M830 G 791 

M8300792 
M830 0793 

M83j 0 794 
Ma3Q0795 
M830D796 
M83Q0797 
H830 0798 
^^MSOS ^.1«^M830G 799 

M83 3 0 80 0 
M8300801 

M330u802 
M83 j 0 803 
M833 0 30 4 
M33Q0805 

M830D806 
M83 3 G80? 

MS30u8Q6 
H833Q809 
M83u0alU 
M83Q 0 811 
H83u 0812 
M83 0 0 813 


o 
, o 
' o 

: O 

■ O 

■ f'”) 

• o 
: 0 
O 


o 


u 

o 

c 

o 
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0815 








M83j0816 

0816 




REWINO/U)4LOAO REQUEST 


M83QQ816 

0317 








M83Q0817 

0318 




THE 

MAXIMUM NUMBER 

OF PARAMETERS IN A 

REWIND/UNLOAD 

M8300318 

0 319 



if 

REQUEST IS 5 . 



M83J 0 819 

0 82 0 



if 





M830Q 820 

0321 



if 

THE 

PARAMETERS OF 

A REWIND/UNLOAO REQU 

EST SPECIFY A 

M33U0821 

0622 



if 

LOGICAL UNIT HUMBER 


'■ M83 0 0 822 

0 82 5 



if 





M830 0 32 3 

0 32-^ 



if 

FOR 

A LU THE EQUIVALENT BINARY NUMBER 

IS THE PARAMETER 

M833 0824 

D82 5 








M8300825 

0 8 2 6 



if 

GET 

THE NUMBER OF 

PARAMETERS IN THE RE 

W/UNL REQUEST 

M830 0 826 

0327 




IT WAS SAVED AT V16,I( BY JPFLV4) . PICK IT UP AND SAVE IN 

VO 0,1 H8 3 0 0 82 7 

03 28 



if 





M83D 0828 

0 329 

P024A 

Clio 

FLG73G 

LDA- 

V15,I 



M83D 0329 

083 0 

P024B 

65 22 


STA- 

f ZERO) , I 



M83D 0 83 C 

0831 

P0 24C 

68FB 


STA^ 

FLV651 



M830 0331 

08 32 

PC240 

0 C 0 3 


ENQ 

3 



M8300832 

0333 








M8300833 

0334 



if 

CHECK IT FOR REWIND/ UNLOAD REQUEST 


H83DQ834 

03 35 



if 





M83D 0835 

0 3 3 o 

P024E 

3101 


LDA- 

V01,I 

REQUEST CODE 


M33Q 0836 

033 7 

P02hF 

G9F8 


INA 

-7 



M830 0837 

033 8 

P0250 

Q 101 


SAZ 

FL0 704 

SKIP IF REWIND REQUEST 

M830083a 

03 39 








M830 0839 

0840 

P0261 

ODOl 


INQ 

1 



M83U084C 

0841 



if 





M8oG u 841 

0642 

PO 252 

OFAC 

FLG704 

QLS 

12 



M330 0842 

0 8 43 

P0253 

480C 


STQ^ 

FL0726 



M83Q 0 843 

0644 



if 





M83j 0844 

0846 

P0254 

C8F3 

FL0 73 5 

LDA^ 

FLV651 

NBR OF PARAMETERS 


M8300846 

0 8 4 6 

P0255 

09FE 


INA 

-1 



M8300 846 

0 5^7 

P0256 

5800 


RTJ 

FLS02 

GET PARAMETER AOORESS 

M83J0847 


P0257 

0 0 14 







0846 



if 





M33j 0 848 

0 3 49 

P0268 

C622 


LDA- 

(ZERO) ,Q 

SAVE THE GIVEN LU 

IN REQUEST. 

M8300349 

0350 

P0259 

6805 


STA^ 

FL0725 



M83 j 0 85 0 

0 3-51 



if 





M83Q 0851 

085 2 



3f. 





M8300852 

0853 



if 

REWIND REQUEST 



M83Q 0 85 5 

035 4 



if 





M83 j 0854 

0 S56 

P026A 

5 4F 4 

FL07ZQ 

RTJ- 

(AMONI ) 



M8 3 ‘j 0 85 5 

0 8 5 6 

PQ 26B 

IDOO 


NUM 

S ID 0 0 



M830 0 85 6 

0 3 5? 

PQ25C 

0 0 06 


ADC 

FL0742-FLQ 720 

-1 


M8330857 

03p6 

P025D 

0 0 0 0 

FL0724 

ADC 

0 

+2 THREAD 


M83 0 0 85 8 

0 6 5 9 

P025E 

liO 00 

FLQ725 

HUM 

0 

+3 V,M,A,LU 


M830 0 859 

0 8 5 0 

P025F 

QuGC 

FL07Z6 

NUM 

0 

+4 MOTION REQ CODE 

(3=REW,4=UNL0A0) . 

M830 G850 

0861 



if 





M830G8&1 

0 3 5 2 

P 0 26 0 

14EA 

FL0730 

JMP- 

(ADI3P) 

DISPATCHER EXIT. 


M333G852 

0 85 3 



if 





M830 0863 

D3d*t 








M33008&4 

0855 

P0261 

3800 

FL0742 

LDA 

FLBFIA 

RESTORS I 


M8300865 


r u iiD jL j o u u 

P0262 FODC 


01/27/99 
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DATE! 


CB56 P0263 60FF 
0357 P0264 C8E3 
0858 P0265 09FE 
0369 P0266 Q1D2 
C3 7 u 

0371 P0267 68E0 
0572 PQ268 13EB 
0 8 73 

0 87^^ P0 269 18 0 0 
P026A FF74 

037 5 


STA- I 
LDA^ FL\/551 
INA -1 
SAZ FL0745 

STA^ FL\/651 
JMP^ FL0705 

FL0745 JMP FL0520 


SKIP IF ALL DONE 

OTHERWISE UPDATE NBR YET TO BE DONE 
AND 6UIL0 NEXT REW/UNL REQUEST 

EXIT FROM THE ROUTINE 


M830 D 865 
M83j 0867 
M83j G 86 8 
M830 G869 
H 8300870 
M830D871 
M830 0872 
M330 0 873 
M833 0 874 


H630 0 875 



o 

o 

o 

o 

o 

o 

C) 


o 


M333 0 87? 

M83li 0 878 
M83 j C879 
H83j Q 680 
M83C 0881 
M83D0882 
M830Q883 
M83Q 0884 
M830 0 885 
H63 j 0886 
M83 j 0887 
M83Q0888 
M83 J 0889 
M83D0890 
M830089i 
M3SuG892 
M330 0893 
M830G894 
M33G 0895 
M83G 0896 
M83D 0897 
M8300898 

O 


O 


C) 


O 


O 


O 


O 


O 


o 

o 

C) 

o 

o 


C) 


JPF2V4 
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DATE: 01/27/99 


o 



090 0 









090 1 




COHHON SUBROUTINE 

TO READ/WRITE A FILE BLOCK 

o 

090 2 








0903 




INPUT 





0 9 0 -T 





Cl) =BA3E 

ADDRESS OF TEMPORARY STORAGE 


0905 





V17,I=LSB 

OF 

THE SECTOR TO BE REAO/WRITTEN 

o 

0906 








U907 




OUTPUT 




0 90 8 



¥ 


CI)= NOT 

CHANGED 


0909 





(Q)= BASE 

ADDRESS OF THE BUFFER 

o 

0910 







0911 

P027J 

00 00 

FLSy5 

ADC 

0 




0 912 

P0274 

GCFE 


LDA-^ 

(FLS05) 


SAVE THE REQUEST CODE 


091 3 

P0275 

6809 


5TA^ 

FL3051 



o 

091^ 

P0276 

D8FC 


RAO^ 

FLS05 


UPDATE RETURN 

0915 

P0277 

GOFF 


LDA- 

I 


SAVE REGISTER I 


0 916 
0917 

Pu278 

6319 


STA^‘ 

FLSV51 




0918 

P0279 

EllA 


LDQ- 

V2b , I 


BUFFER ADDRESS 

•wX 

0919 

P027A 

4309 


STQ- 

FLS05C 




0920 

P0 27B 

Cl 11 


COA- 

V17,I 


LSB 


0921 

P0 27C 

68 09 


STAL 

FL305O 




0922 









0923 
0 9 2 -i- 

P027O 

5 4 Fh 


RT J- 

(AMONI) 




0925 

PQ27E 

00 00 

FLS 051 

NUH 

0 


40 RC USER SUPPLIED 

o 

0926 

P027F 

GOGQ 


ADC 

0 


+ 1 GA 

0 9 2 7 

PO 28b 

00 0 0 

FLS05A 

ADC 

0 


+ 2 T 


0 92 8 

P0281 

0 8C2 

FLSG5B 

NUN 

3 8C2 


+3 LIBRARY UNIT 


0929 

P0282 

0 0 60 


NUN 

96 


44 NUMBER OF WORDS 

0 

0930 

PO 28 3 

0 0 0 0 

FLSQ5C 

ADC 

0 


45 START ADDRESS 

0931 

PO 284 

0 0 00 


NUM 

0 


46 MSB 


0932 

P0285 

COuQ 

FLS G 5 D 

NUM 

0 


47 LSB 


0933 







CHECK REQUEST COMPLETED 


093^ 

P0286 

C3F9 

F LS 0 5 2 

LDA^ 

FL3Q5A 


'■-.3 

093 5 

PO 287 

Old 


SAZ 

FLS 0 5 5 


COMPLETED. SKIP 


0936 
093 7 

PO 288 

18F0 



FLS052 



o 

093 8 

P0289 

C8 0 8 

FLS053 

LDA- 

FLSV51 


RESTORE I 

0939 

0940 

P028A 

60FF 


STA- 

I 





0941 



4- 

CHECK 

: aviY ERROR 



0942 









0943 

P028B 

C8F5 


LDA^ 

FLS05B 




0944 

P028C 

0122 


SAP 

FL3059 


NO ERROR. SKIP 


0 94 5 

P028D 

1800 


JMP 

JBFIOE 


I/O ERROR. DIAGNOSTIC 

o 


PQ28E 

FE45 






0946 

P028F 

EllA 

FLS059 

LDQ- 

V25,I 




0947 

0948 

P0290 

1CE2 


JMP^ 

(FLS05) 



o 

0949 

P0291 

0 0 GO 

FLSV51 

NUN 

0 


TEMP STORAGE 

0950 









o 


C) 


M33Q 090 0 
Ma300901 
Ma3 0 0 90 2 
M33Q09G3 
M330 0 90 4 
M3300905 
M83Q09Q5 
M83J 0907 
M83Q0908 
M830 0909 
M830 0 910 
H3300911 
M830U912 
M8300913 
M83Q0914 
M83aC91G 
M83Q 0 916 
M3330917 
M830Q918 
M83 3 0 919 
M83J 0 92 0 
M330G921 
M830 0922 
M8300925 
M8S0G924 
M83D 0925 
M83j 0926 
M833 0 92 7 
H3 33 0 92 8 
H8300929 
M833 0 93 0 
M830Q931 
M33G0932 
M8300933 
H83J 0 934 
M830 0935 
HS3u 0 936 
M3300937 
M33 3 0 933 
M8300939 
M83Q 09*^0 
H830u94l 
H83Q 0942 
M8300943 
M85 3 094H 
M83Q 0945 

M83Q Q 946 
M83Q0947 
M83QG 948 
M330 0949 
M 3 3 j G 9 5 G 


o 

C) 

o 

o 

o 

n 

r'i 

O 

O 

o 

o 

o 

o 

o 

o 

o 


JPFZVh 
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date: Qi/27/99 


P0292 CGOO 
P029? 0116 
PG29P DliB 


P0295 
PQ 29 6 
P0297 
P0298 
P0299 

P029A 
PO 29B 
Pfl29C 


P029D 

P029E 


GQ GO 
CO 22 
9118 
0111 
180E 

0116 

09F5 

0102 


0009 
16 08 


P029F 0115 


-¥■ 

FLS 06 


COHHON SUBROUTINE TO FIND NEXT FILE ENTRY IN THE FILE:BLOCK. 

IF NO MORE ENTRY IN THE CURRENT FILE BLOCK, THE NEXT FILE 
BLOCK IS ACSESSED. 

IF ALL FILE BLOCKS HAVE BEEN CHECKED AND NO FILE ENTRY CAN 
BE PASSED TO THE CALLER THE EXIT IS RETURN+0 
IF A FILE ENTRY IS AVAILABLE THE EXIT IS RETURN+1 

INPUT 

(I)=BA3E ADDRESS OF TEMPORARY STORAGE 

V21,I =NU''1BER OF FILE BLOCKS CHECKED 

V22,I =NUMBER OF ENTRIES CHECKED 

V23,I =CJRRENT FILE BLOCK ADDRESS 

V27,I = CURRENT TOTAL NUMBER OF FILES CHECKED 

(0) =CURRENT FILE ENTRY ADDRESS 

OUTPUT 

V21,I = UPDATED NUMBER OF FILE BLOCKS CHECKED 
V22,I = UNDATED NUMBER OF FILE FNTRIES CHECKED IN 
THE FILE BLOCK (ADDRESS IN V23,I) 

V23,I = ADDRESS OF FILE DLOCKCEITHER OLD, OR NEW) 

V27,I = U=>OATED TOTAL NUMBER OF FILES CHECKED 
(Q) = 'JEW FILE ENTRY ADDRESS 


RAO- V22,I 
RAO- V27,I 


BUM‘= NBR OF FILES IN CURRENT BLOCK CHECKED 
BUMP NBR OF FILES { T OT A U CH £C KED SO FAR 


CHECK ALL THE SYSTEM FILES CHECKED 


FLS06A 


LDA =XJQFLVh 

SUB- V2r,I 
SAN FLSuoA 
JMP^ FLSG69 

LDA- V22,I 
INA -10 
SAZ FLSOol 


LESS FILES CHECKED SO FAR 
NOT DONE. SKIP 
JUMP IF ALL CHECKED 

CHECK IF ALL IG ENTRIED OF THIS BLOCK DONE 
SKIP IF YES. 


OTHERWISE SET UP FOR NEXT ENTRY IN THIS BUFFER 


FLSQ61 

>!■ 

V- 


INQ 9 
JHP-' FL3 0 6Z 

RAO- V21,I 


BUMP NUMBER OF SECTORS CHECKED 


SET UP TO READ THE NEXT SECTOR 


M83j 0952 
M833 0953 
M333 095L 
M83Q0955 
M83 j G 956 
M830 0957 
M83‘j 0 95 8 
M830Q959 
H83 j 0960 
M830 0961 
M830 0962 
M330 0 963 
M830 0 96G 
M830 0965 
M83u 0966 
M8300967 
M83U 0 968 
M83G 0969 
M833 0970 
M330 0971 
M833 0 972 
M3300973 
H330 0974 
M830 0 975 
MSB 0 0976 
M83j 0977 
M83G 0 978 
M83j 0979 
M33G 0980 
H330Q981 
M830 0982 
M33 0 0 98 3 
M83D 0 984 
M833 0 98 5 
M830 0 986 

Naso 0 987 
M830 0 988 
M83Q0989 
H830 0990 
M830U991 
M8300992 
M8300993 
M850099H 
M83G0995 
M33a0996 
M830 0 997 
M83i> 0996 
M330 0999 
M830 1000 
M830i001 
M830 1GG2 
M8301 j03 


1 j G 4 
13 Q 5 
IGG b 

iOu7 
130 8 
10 09 
1010 
1011 
1312 
1013 
10 1 - 
1013 
1016 
lul7 
1018 
1.19 
1C2Q 


PG 2A 3 4 


JPF2V!* 



PAGE 

29 

date: 01/27/99 

Dill 

FLS052 

RAO- 

V17,I 


UPDATE LSO OF SECTOR 

5800 


RTJ 

FLS05 


READ THE SECTOR 

FFDO 
4 8 0 0 

it 

NUH 

$4800 


FREAD 



UPON 

RETURN 

THE 

NEW SECTOR IS READ INTO FILE 



THE 

ADDRESS 

OF 

THIS BUFFER IS IN Q AND V26 ,I 



V22, 

I TO ZERO { NUMBER OF E^3TRI£lS 

0 8^+4 
oll6 


CLP 

STA- 

A 

V22 » I 


FIRST ENTRY IN FILE BLOCK 


■V 

M 

AND 

EXIT WITH AH AVAILABLE FILE ENTRY. 

D8EB 

*¥• 

FLSli b 7 

RAO^ 

FL305 




PG2A7 ICEA 


FLS059 JMP^ (FLS06) 


M8301QOH 
M330 1005 
M33G1006 


M853 IQO 7 
M830 10G8 
M330ia09 
M8301010 
M33Q 1 Q 1 1 
H8301G12 
M3S01013 
H33D 1014 
M833 1015 
H83Q 1016 
M33 J 1017 
M8301ul8 
M8301G19 
M83ai02C 


O 

o 

O 



o 


o 


o 


o. 


/ 1 


o 

o 

o 


o 


JPFZV4 
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date: 01/27/99 


10 2 2 




10 23 




1024 




1025 



Sf. 

102 b 




10 2 7 




1023 




1029 

PO 2A8 

0 0 0 0 

FLSG7 

1030 



-Y- 

1031 

P02A9 

08^.4 


1C32 

P02AA 

6114 


103 3 

P02AB 

6115 


103-^ 

P02AC 

6116 


1035 



f 

lu 5 6 

P02AO 

EllA 


1037 



-Y- 

1038 




1039 




10 4 0 

P02AE 

Cl 01 

FLSU71 

1041 

PU2AF 

0 101 


1042 

PO 2B0 

18 15 


1Q43 




10 4 4 




1045 




1046 

PD2B1 

Cd22 

FLS71 A 

13 47 

P02E2 

0 109 


1048 




1049 




1^50 




1051 



-V- 

10 52 

P02E3 

9102 


1053 

P02B4 

0119 


10 5 4 

PQ2B5 

C2C1 


1 0 5 F 

F0286 

9103 


1056 

P02B7 

0116 


1057 

P02B3 

C2C2 


10 58 

P02B9 

9104 


10 59 

P02BA 

0113 


1050 

PQ2BD 

183B 


10 51 




1052 



❖ 

1053 




10 64 

PG2BC 

Cll4 

FLS71B 

10 5 5 

PO 2BD 

0101 


10 56 

PQ2BE 

18 26 

FLS71C 

1057 




1068 



3f. 

1059 




10? 0 



•TT 

10 71 

=>Q2BF 

C115 

FLS7LD 

10 72 

PO 2CG 

6112 


1073 

P02C1 

C116 


IQ 7-* 

P02C2 

6113 



COMHON SJBRDUTINE TO SEARCH FOR A FILE ENTRY IN THE 
JOB PROCESSOR FILES, WHICH HATCHES THE FILE REFtRENCED 
IN THE CJRRENT FILE REQUEST. 

THE FIRST FILE SLOCK ADDRESS IS IN V26,I 


ADC 0 

CLR A 
STA- V20,I 
STA- V2i,I 
STA- V22,I 

LDQ- VZo.I 

CHECK REQUEST CODE 

LOA- \/Qi,I 
5AZ FL371A 
JMP^ FLS072 

FOR DEFINE REQJE3T 

LDA- (ZERO),Q 
SAZ FLS718 

OTHERWISE CHECK WHETHER THE GIVEN FILE NAME ALREADY 
EXISTS FOR ANOTHER FILE. IF YES, REJECT (Jll) 


INITIALIZE 

ORIGINAL FILE NAHE AND SC ENTRY FOUND 
INDEX TO FILE BLOCK HAVING THE ENTRY. 
INDEX TO ENTRY IN THE FILE BLOCK 

FILE BLOCK CORE ADDRESS 


DEFINE REQUEST.SKIP 


CHECK FILE ENTRY EMPTY 
EMPTY .SKIP 


SUD- VQ2,I 
SAN FLS71C 
LOA- 1,Q 
SUB- V03,I 
SAN FLS71C 
LDA- 2,Q 
SUB- V04,I 
SAN FLS71C 
JMP-^ FL307F 


NO DUPLICATE SKIP 

NO DUPLICATE. SKIP 

NO DUPLICATE. SKIP 
DUPLICATE FILE. Jll 


CHECH WHETHER AN EMPTY ENTRY HAS BEEN ALREADY FOUND. 


LOA- V2C,I 
SAZ FLS71D 
JMP- FLS07A 


EMPTY ENTRY NOT FOUND 
OTHERWISE ACCESS NEXT 


SAVE THE POINTERS TO THE EMPTY FILE, AND 
ENTRY FOUND FLAG. 


SKIP 

ENTRY IF ANY 
SET THE EMPTY 


LDA- V21,I 
STA- V18,I 
LOA- V22,I 
STA- V19,I 


INDEX TO file BLOCK 
INDEX TO FILE ENTRY 


M83:i022 

M830 1023 

M833102H 

M8331025 

M 8301026 

M33'Jl02 7 

M33Q1026 

M830i029 

M833 1 030 

M83Q1 031 

M83Qii]32 

M83G1033 

M833 1034 

M8301035 

M83Q 1036 

M33Cia37 

M8301038 

M3331Q39 

M83G 1 040 

M83010L1 

M83 01042 

M83Q1043 

M3301Q44 

M3331045 

M83Q1Q4& 

M8301047 

M8301Q48 

M3301049 

M8331Q5Q 

M3331051 

M33D1052 

M8301053 

M83G 1u5h 

M8331055 

M 8 301056 

M830 1057 

M8331Q58 

M8301059 

H8301060 

M33Q1061 

M833 1062 

M830 1063 

M830 1064 

M8301 065 

M8301066 

M8301067 

M8301068 

M 8 3 3 1 0 6 9 

M830 1 070 

H8301071 

H35G1G72 

M3S31073 

M8301074 


JPF2V4 
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DATE: 01/27/99 


1075 

PQ2C3 

D114 

107 6 



10 7 7 



10 7 6 



1079 

P02C^ 

1820 

1080 



10 31 



1082 



1083 

P02C5 

C622 

1^ 8- 

P02C6 

Q10 8 

1085 

P02C7 

8102 

10 8 D 

PQ2C8 

0116 

1037 

P02C9 

C201 

13 8 8 

PQ2CA 

B103 

1069 

PC2C8 

0113 

1090 

P02CC 

C202 

1091 

P02CD 

B1 Q4 

10 9 2 

P02CE 

ClQl 

1393 

P02CF 

1819 

109 ^ 



10 9 5 



10 9 5 



13 97 

PO 2D0 

C203 

1098 

PQ2D1 

B1Q5 

1099 

P02C2 

0116 

110 u 

P02D3 

C204 

1101 

P02D4 

B106 

1102 

PO 2D5 

D113 

1103 

P02D6 

C205 

113 -T 

P02D7 

01 0 7 

11Q5 

FO 208 

0102 

1106 

P02D9 

18 e 0 


PD2DA 

00 21 

110 7 



1108 



1109 



me 

PQ 2DB 

D114 

nil 

P02DC 

C115 

1112 

P02DO 

6112 

1113 

P02DE 

Cl 16 

111- 

P02DF 

6113 

1115 



1116 

PO 2E0 

ClGl 

1117 

P02E1 

G9FB 

1116 

PG2E2 

0 101 

1119 



112 J 

PO 2E3 

ICCh 

1121 



1122 



1123 



112-4 

P02E‘4 

5 8 0 0 


P 0 2 E 5 

FFAC 

112 5 

PC2E6 

18FC 


* 

>1- 

* 

FLSQ72 


RAO- V20,I SET FLAG WORD 

AND ACCESS MEXT ENTRY 
JMP“ FLS07A 

COME HERE FOR THE MOOIF Y tREL E AS , OPEN , A NO CLOSE FILE REQUESTS 


FLS073 


-¥• 

FLSG74 


FLSC76 


-¥■ 

FLSC78 


LDA- 

SAZ 

EOR- 

SAN 

LDA- 

EOR- 

SAN 

LDA- 

EOR- 

SAZ 

JMP^ 

THE 

LDA- 

EOR- 

SAN 

LOA- 

EOR- 

SAN 

LOA- 

EOR- 

SAZ 

JHP 


(ZERO) , Q 
FLS073 
V02,I 
FLS073 

1, Q 
V03,I 
FLS073 

2, Q 
VOi*, I 
FL5074 
FLS C 7B 


NO MATCH. SKIP 
NO MATCH. SKIP 

NO MATCH. SKIP 


MATCH FOUND. SKIP 
NO HATCH FOUND. 


SECURITY CODES MUST ALSO MATCH 
CHECK THE SC 
NO MATCH. SKIP 


3,Q 

V05,I 

FLS076 

4.0 
V05,I 
FLS076 

5.0 
V07.I 
FL3Q78 
FL0070 


NO MATCH. SKIP 


SC MATCH. SKIP 
INVALID PARAMETER. 


J04 


FOR A HATCHING FILE ENTRY, SAVE ITS INDICES. 


FLS079 

V 

Af 

FLS 0 7 A 


RAO- V20.I 
LDA- V21.I 
STA- Via, I 
LDA- V22.I 
STA- V19.I 

LDA- VOl.I 
INA -4 
SAZ FLSG7A 

JMP^'- (FLS07) 

COME HERE TO 

RTJ FL506 

JMP^‘ FLSa79 


SET THE FLAG INDICATING ENTRY FOUND 
INDEX TO file block 

INDEX TO FILE ENTRY IN BLOCK 

SKIP FOR A MODIPY REQUEST. 

SKIP IF A MODIFY REQUEST 
EXIT TO CALLER 

ACCESS NEXT FILE ENTRY, IF ANY 

AFTER ALL FILE BLOCKS ARE CHECKED. 


M83u 1075 

Masoiozo 

M83 J 1077 

M8301078 

M83 J 1079 

M830 lose 

M8301G81 

M8 30 108 2 

M830 1ij83 

M8301Q84 

MB3C1 085 

H33G1086 

M833 1087 

M8301088 

H83G1089 

M8301090 

M8301091 

M83D1Q92 

M8301093 

M 8501094 

M83Q1095 

Ma301096 

M8301097 

M3301098 

M33 3 1099 

M830110G 

M8301101 

M33Q11Q2 

H830 110 3 

M83Q11G4 

M8301105 

M83ail06 

M33G11Q7 
M83Q1106 
H8301109 
M830 1110 
M83j 1111 
M83ulll2 
M8301113 
M832 111-+ 
M8301115 
M8301116 
M8301117 
M83Q 1118 
M33Q 1119 
M830112G 
M8301121 
M833 1122 
M8301123 
M8301124 


M83i; 1125 


jPFav^ 
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1126 P02E7 18C6 

1127 
1123 

1129 

1130 P02E8 ClOl 

1131 P02E9 09FB 

1132 P02EA Old 

1133 

1139 P02EB 18F8 

1135 

1136 

1137 
1133 

1139 PQ2EC C622 
1190 POZEO OlOC 

1141 °02EE B1G8 

1142 P02EF ullA 

1143 P02FC C201 
114-r PQ2F1 B109 
1195 P02F2 0117 
1146 P02F3 C2D2 
119 / P02F9 BlOA 

1148 P02F5 0119 

1149 F02F6 GOOD 
^02F7 3131 

115 0 P0 2F8 18 0 0 
P02F9 OOOh 

1151 

1152 P02FA 18E9 
115 3 

115 9 


JMP’^ FLS071 AFTER AN ENTRY IS FOUND 

^ CHECK THE REQUEST CODE IS TO MODIFY FILE(=9) 

i/- 

FLS07B EDA- V 01 , I REQUEST CODE 

INA -4 

SAZ FL507C SKIP IF YES 

JMP^ FLSG7A OTHERWISE GET NEXT ENTRY, IF ANY 

^ FOR A MODIFY REQUEST CHECK THE NEW FILE NAME IS GIVEN TO A 

^ PREVIQU5LY DEFINED FILE. IF YES , REJECT. Jll 

* 

FLSOrC LDA- (ZERO) ,Q 
SAZ FL537D 
EOR- V06,I 
SAN FLS07D 
LDA- i,a 
EOR- V09,I 
SAN FLS07D 
LDA- 2,0 
EOR- VIO.I 
SAN FL507D 
FLSCi7F LDA =N$3131 

JMP FL0072 


NO DUPLICATE .SKIP 
NO DUPLICATE. SKIP 

NO DUPLICATE. SKIP 


NO DUPLICATE. SKIP 
DUPLICATE FILE. REJECT, Jll 


FLS07D JMP= 
¥ 


FLS07A 


ACCESS NEXT ENTRY, IF ANY. 


M83 j 1126 

H33U1127 

M83u 1126 

M8 30 1129 

M830il30 

M8301131 

M850 1132 

M83D1133 

M8301139 

M3301135 

M830113D 

M3301137 

M8301138 

M8301139 

M830114G 

M8301191 

M83ail42 

H3301193 

M8301199 

M8331145 

M83j 119b 

M3301147 

M330 1198 

M83jll99 


M833115G 

MS3ull51 
N33Q1152 
M33 j 1153 
M83u 1 15 4 
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1156 
115 7 

1156 
1159 

11 5u 
1161 

1152 

1153 

11 5 H 

1155 

116 5 

1157 

1156 
1159 

117Q 

1171 







* 

TYPE 

THE ERROR 

MESSAGE 

PQ2FB 

CO 00 


FL0070 

LDA 

=N$3Q34 

ILLEGAL PARAMETER. 

P02FC 

3034 






P02FD 

E4 00 

X 

FL0072 

LDQ 

TRNVEC 


P02FE 

7FFF 

X 





PD2FF 

620A 



STA- 

i0» Q 

SAVE ERROR CODE 

P0 3C6 

QC0 6 



ENa 

6 

TERMINATE IN JOBPRO 

P0 3bl 

C4G0 

X 


LDA 

JBPROE 

GET RETURN 

P03O2 

Q1E7 

X 





P03G3 

6806 



STA’^ 

FLG07A+1 

TO JOBENT 

PQ30h 

0 AOG 



ENA 

0 


P0 305 

6CD0 



STA 

CFLa&25 ) 

CLEAR MIB 

P 0 .i G 6 

FEES 






PG35 7 

0 AGl 



ENA 

1 


PO 368 

1-HlO 


FL007A 

JMP + 

0 


P0 309 

DQCG 






PO 30 A 

0 0 00 


FL0C79 

NUM 

0 

TEMP STORAGE 


M83 j 1 15 6 
M830 1157 
H830 1158 
M330il59 

M33ull6G 

M8301151 

M83Q 1162 
M8301163 
M83U1154 

M833 1165 
M83G1166 
M83G1167 

M83 j 1168 
M833 1169 

M830117G 

M83Q1171 
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o 

o 

o 

o 

C-' 

0 

0 

o 

o 


IIJ'3 
1174 
117 5 

1176 

1177 P030B QOOC 

1178 

1179 P03CC 481C 

1180 

1131 P030D 5^F4 
1162 PG3UE 4CuQ 

1183 P030F GQQQ 

1184 P031O QOOO 
1135 P0311 Q8FB 


118b 

PG312 

0 0 16 

1187 

Pu313 

00 00 

1138 



113 9 



119U 

Po31h 

C8FB 

1191 

PG315 

0 101 

119 2 

P0316 

18FD 

1195 



119-t 

30317 

C800 


P0318 

FD26 

1195 

P0319 

60FF 

1196 

P031A 

C8F6 

119^ 

P0318 

0122 

119 8 

Pu31C 

180Q 


P031O 

FECI 

1199 



120 0 



12G1 



1202 



1203 



120 4 



120 5 

PQ31E 

0C15 

1205 

P031F 

CGGO 


P032G 

2020 

12 0 7 

P0321 

6EGG 


P0322 

FDIE 

12 D 3 

PQ323 

ODFE 

1209 

P0324 

0171 

1210 

P0325 

1 8 F B 

1211 



1212 

P0326 

E8 02 

1213 

P0327 

1CE3 

1214 



1215 

P0328 

OG GG 


* 

FLS03 


COMHON SUBROUTINE TO PRINT A BUFFER FLBUF3 AT THE 
STANDARD LIST DEVICE ($FB) 

ADC 0 

STG}^ FLSV31 SAVE Q. TEMPORARILY 


RTJ- (AMONI) 
NUM $4C00 
ADC 0 
FLS08A ADC 0 
FLSDBB NUM $03FB 
NUM 2 2 
FLSGSC ADC 0 


+G RC FWRITE 
+ 1 CA 
+ 2 T 

+ 3 V , M , A , L U 
+4 NUMBER 

+5 START ADDRESS . PRINT BUFFER. 




FLSQ82 LDA^ FL5Q3A 
SAZ FL3Q84 
JMP'" FL3 08 2 

¥• 

FLS064 LDA FL3F1A 


CHECK REQUEST COMPLETED 


COMPLETED. SKIP 

WAIT TILL REQUEST IS DONE 


RESTORE I 


STA- I 
LDA^‘ FL3 08 B 
SAP FLS035 
JMP FL0620 


CHECK FOR I/O ERROR 
NO ERROR. SKIP 
ERROR - EXIT 


Jit 

I ' 2 CAROS DELETED 

^ RESET THE BUFFER TO ALL BLANKS 

FLS0 3 5 ENO. 21 

LDA =N£2020 

FLSOBo STA <FL3F3A),T 


INO -1 
SQM FLS088 
JMP*^ FLS086 

FLS038 LDQ^ FLSV81 
FLSfifag JHP^ (FL308) 
* 

FLSV31 NUM 0 


ALL DONE. SKIP 

RESTORE Q 
EXIT. 

TEMPY Q STORAGE 


O 

O 

r--, 


M8301173 
M8331174 
M83ull75 
M83Qil76 
M833 1177 
M3301178 
M8331i79 
M83D1180 
M8301i81 
M83ail82 
M831 1183 
M8331184 
M3331165 
M833il86 
M3331187 
M83ull88 
M83 j 1189 
M83Q119fl 
MS3ull91 
M33 j 1192 
M830 1193 
6i^i288M83i 1194 

&i^l2'88M83Q1195 
61^1288M3301196 
M83Q1197 
61^1288M83 31198 

M830 1199 
M830 12a0 
61^1288 M83ai20i 
M8301202 
M8301203 
M83Q12Q4 
fal-»i288M83Q12G5 
M833120 6 


M333 120 7 

H8301208 
M83ai209 
M8531 210 
M8301211 
M8301212 
H8301213 
M83u 1214 
M8331215 


O 

O 

o 


o 

o 

r-’i 


1217 

1218 

1219 

1220 
1221 
1222 
1225 

1224 

1225 

1226 

122 7 
1228 

1229 

123 G 

1231 

1232 
12 3 3 

1234 

1235 

1230 
12 3 7 

1238 

1239 

1240 

1241 

1242 

1243 

12 4 4 

1243 

1246 

124 7 
124d 

1249 

1250 

1251 
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* 

V- 

>/■ 

if- 

Af- 


COMHON 3UBRDUTINE TO READ A FILE BLOCK CONTAINING A SPECIFIC 
FILE ENTRY and TO RETURN WITH THE FILE ENTRY ADDRESS 


INPUT 


ViSa^INOEX TO FILE BLOCK 
V19,I= INDEX TO FILE ENTRY 


* 

>(■ 

4 


OUTPUT 


(Ql= BASE ADDRESS OF THE FILE ENTRY 
V2o,I= BASE ADDRESS OF THE FILE BLOCK 


P0329 

0 OCO 

FLS12 

ADC 

0 

P032A 

E0E9 


LDQ- 

$ £ 9 

P032B 

C2Q8 


LDA- 

8,0 

P032C 

8112 


ADD- 

V15,I 

PG32D 

6111 


STA- 

V17,I 

P0 32E 

58 00 


RTJ 

FL305 

P032F 

P0330 

FF43 
0 8 0 9 


NUM 

$089 0 

P0331 

C113 


UPON RETURN 
COMPUT BASE 
LDA- V19,I 

P0332 

0FC3 


ALS 

3 

P0333 

8113 


ADO- 

V19, I 

P0334 

0 832 

if. 

AAQ 

0 

P0335 

iCF3 


JMP» 

(FLS12) 


EXTENDED CORE TABLE 
FIRST SECTOR OF DIRECTORY 
ADD THE FILE BLOCK INDEX 

READ THE SECTOR 

(Q)= V26,I= FILE BLOCK ADDRESS 
ADDRESS OF FILE ENTRY 

FILE ENTRY INDEX 

ADO BASE ADDRESS OF THE FILE BLOCK 
EXIT 


M83Q1217 

M8301218 

M8301219 

M8501220 

M83Q1221 

H83Q1222 

M8301223 

M8301224 

M8301225 

M83D1226 

M83D1227 

M8301228 

M8301229 

M83D1230 

H8301231 

M8301232 

M8301233 

M8301234 

H8331235 

M8301236 

M83D1237 

H83G1238 

M8301239 
M3301240 
M3301241 
M83'j 1242 
H8301243 
M8301244 
M8301245 
H83Q1246 
H83D1247 
M8301248 
M33G1249 
M8301250 
H83ul251 


date; Qi/27/gg 


JPF2V4 


U 


o 


u 


1253 
125 :+ 
125t? 
12 5 6 
125 7 

1258 

1259 
12 5 0 
1251 
1262 


V- 

¥ 

V- 

V- 

V- 

# 

V- 

•nr 

¥ 


Pl\GE 36 date; Ql/27/gg 

COHMON SUBROUTINE TO FIND THE ABS NBR OF A DEFINED FILE 
INPUT 

V18,I=INDEX TO FILE SECTOR 
\/19,I = INDEX TO FILE ENTRY 


OUTPUT 

A = ABS 


FILE NUMBER 


o 

12 5 3 

Py 336 

DODO 

FLSIL 

ADC 

0 

12 6a 

P0337 

G112 


LDA- 

V18,I 


1255 

P0338 

0FC3 


ALS 

3 


12 6 6 

P0339 

8112 


ADD- 

V13 , 1 


1257 

PD33A 

6112 


ADD- 

V13 , I 


1268 

P033B 

8 DOO 

X 

ADD 

=XFBASV 



P033C 

7FFF 

X 




1269 

1270 

P033O 

8113 

V- 

ADD- 

V19,I 

(FLSIh) 


1271 

1272 

P033E 

1CF7 

V 

JMP» 



9 = »8 + 1 


M8301253 
M830125 A 
M83Q 1255 
H830125& 
M8331257 
M8301258 
M8301259 
M8301260 
M83G1261 
M830 1262 
M83012&3 
M830126‘+ 
M83ai265 
M8301266 
M8301257 
M8331268 

M6301269 
M83 01270 
M8301271 
M8301272 


o 

C) 

o 

o 

o 

o 

! I 


{ I 


o 

o 

o 

o 

o 

o 

o 

o 

r'-. 




o 


C..' 

o 

o 

o 

o 

( i 
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127w 



1275 



12 7 D 



1277 



1278 



1279 



123C 



1281 

PO 33F 

GODQ 

1282 

FO 34u 

482B 

1233 

P0 341 

58G0 


P0342 

FFF3 

1284 

P0343 

6826 

1285 



1286 

P Q 54-4 

E8 29 

1237 

P0345 

E522 

1288 

P0346 

4824 

1239 

PO 347 

EEOO 


D0348 

0Q25 

1290 

PC349 

C208 

1291 

P034A 

OF 44 

1292 

P034B 

A 0 09 

1293 

Py 34C 

09OB 

129-t 

P034D 

0 104 

1295 



1296 



12 9 7 



1293 

P034E 

E81C 

1299 

P03‘tF 

OOFE 

13C 3 

P035Q 

0145 

1301 

P0351 

18F4 

1302 



1 3 j 3 

P0 352 

C210 

130^* 

P0353 

9816 

1305 

P035-T 

G1C6 

1306 



1307 

P0355 

18F8 

1308 



13 0 9 

PD356 

E 8 15 

1310 

PC357 

C800 


PQ358 

FCE6 

1311 

P0359 

60FF 

1312 

PG35A 

1CE4 

1313 



1314 

=>G35B 

48 11 

1315 

P035C 

C80E 

1316 

PQ35D 

6805 

1317 



1313 

P035E 

54F4 

1319 

P035F 

IDOO 

13 2 0 

P0360 

uOCo 

1321 

P03bl 

COCO 

1322 

P0362 

Qu 00 

1323 

PQ363 

50 0 0 


V- 

FLSip 


H8301274 

COMMON S/R TO SEARCH FOR A PSUEDO DRIVER WITH THE THE GIVEN FILR ^^301275 

Moo J 1 c / b 

IF FOUND REWIND THE LU ASSOC WITH THE FILE M83Qil78 

START SEARCH IN LOGIA BACKWARDS WITH MAX LU M8391279 

n o .5 u 1 ti o U 


ADC 0 
STQ^‘ FLS15C 
RTJ FLSIA 


GET A8S FILE NBR 


M83Qi281 

M8301282 

M8301283 


STA^^ FLS15A 
LDQ^ ALOGIA 

FLS153 STQ^ FlIi5b’'^ SAVE CURRENT LU 

LOQ, <ALOGiA),Q 


H833128^ 

M83G1285 

H8301286 

M8331287 

M8301288 

M85D1289 


♦ 


FLSi34 


FLS185 


FLS156 


LDA- 8,0 
ARS ^ 

AND- LPHASK+7 

SAZ FL3155 SKIP IF PSUEDO DRIVER 

OTHERWISE CHECK NEXT LU IF ANY 


LOQ'^ FLS15B 
INQ -1 
SQZ FL5156 
UMP*^ FL315S 

LDA- 16,0 
SUB^ FL315A 
SAZ FL3158 

UMP-"^ FLS15i* 

LDQ^ FLS15C 
LDA FLBFIA 


SKIP IF DONE 

COMPARE THE FILE NUMBER 

SKIP IF MATCHES 

OTHERWISE SEARCH NEXT 

RESTORE 0 
RESTORE I 


M833 1290 
M33 31291 
M8301292 
M83Q1293 
M83Q1294 
M8301295 
M83Q1296 
M33Q1237 
M83D1298 
M33G1299 
H333 13G0 
M330 1 3G1 
M33ai3Q2 
M83D1303 
H833130H 
M8331305 
M8331306 
M8331307 
M 8331308 
M8331309 
M8331310 



STA- 

I 

if 

JMP*^ 

(FLS15) 

*r 

FLS158 

STQ^ 

FL515D 


LDA^ 

FLS15B 

y* 

STA^ 

FL5162 

•V 

:rtj- 

( AHONI) 

FLSIdU 

NUM 

310 0 0 


ADC 

FL5167-FL3160 


ADC 

0 

FLS152 

MUM 

0 


NUM 

$3000 


EXIT 

SAVE PSYTAB OF PSEUDO TAPE 
GENERATE A REWIND REQUEST 


+ 2 T 

+3 V,M,A,LU 

+4 rewind 


M3301311 
M8301312 
M8331313 
M8301314 
MS30 1315 
M8301316 
M8331317 
M8331318 
M830 1319 
M850132Q 
M83Q1321 
M8301322 
M8301323 
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132^ 







M8301324 

1325 

P&364 

14EA 


JMP- 

( A0I3 P) 


M83Q1325 

1326 







M 8301326 

1327 

P0S65 

E3 67 

FLS137 

LDQ^ 

FL315D 


M83D1327 

1328 

PG366 

0 AGO 


ENA 

0 


M8301328 

1329 

P03d7 

6210 


STA- 

16, D 

ZERO FILE NUMBER 

M83Q1329 

153C 

P 0 36 8 

18ED 



FLS156 


M830133G 

1331 



>/■ 




M8301331 

1332 

P0569 

u 0 DO 

FLS15A 

NUH 

0 

TEMP STORAGE 

M8501332 

1333 

P0 36A 

0 0 0 0 

FLS15B 

HUM 

0 

TEMP STORAGE 

M8301333 

1334 

P036B 

0 0 0 0 

FLS15C 

NUN 

0 


M8301334 

1335 

Pu36C 

GOuQ 

FLS15D 

NUH 

0 

CURRENT PSYTAB 

M3301335 

1336 

P036O 

7FFF 

X ALOGLA 

ADC 

LOGIA 


H8301336 

133 7 



¥ 




H8301337 

1338 



^ if. if. 




M83Q1338 

1339 




END 

JPFL 


M8301339 

11 

CL 

036E 

1 

8 78 ) GO)-' 

1 = 0000 ( 0) 

DAT = OGOG ( 0) 




. I PF?\/U 
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DATE! iji/27/99 



o 


o 

0769, Q8o6, 089^, 091 p, 0939, 1195, 1311 

0743, 0746, 1292 ^ 

0723, 0735, 0802, 0830, 0849, 104b, 1G83, 1139, 1267 

■ o 
c 


o 


1257 

0621, 
1111 
U 9 80 , 

0628, 

C635, 

Co5 8t 

1032, 

1064, 1075, 1110 


G991, 

lul3. 

1 U 3 4 » 

1G73, 

1113 



(J 

o 


o 

o 

c 
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o 

r-', SYMBOLS 


o 

DEF. LINE 

NAME 

ADDRESS 

REFEREN 

GED AT 

LINE 


0 u 73 

JPF2 

000 G 

0 G 73 




0090 

JPFL 

OQQO 

0 180, 

0181, 

0182 

o 

012 6 

JBFL02 

0017 

0134 



0136 

JBFLO-4 

OOIE 

3 133 




0151 

JRFLQ3 

002A 

3 141 




0165 

JBFL05 

0 0 3 4 

0 1 45 , 

0162 


o 

0174 

F3 

003A 

0 091 



017 5 

JBVOl 

003B 

3 0 93, 

0 167, 

C 373 


317 6 

JBVG2 

003C 

3 0 98 




0 1 7 7 

J8VC3 

003D 




o 

0178 

JBUG4 

u03E 

0126, 

0128, 

0129 


3 18 u 

FLBFIA 

a03F 

0103, 

0 10 5, 

0 3 96 


0 181 

- LBF2 A 

0 0 4 0 

0103 , 

0 110 



3 162 

FLBF3A 

li 0 “+ 1 

0113, 

0116, 

C 732 


0 188 

FLBUFl 

00 42 

0 180 




0195 

FLBUF2 

005E 

3181 




3 197 

FLBUF3 

OOBE 

0182 




0 201 

JBFIOE 

0 00 4 

0945 



C) 

0 20 9 

FLTCG3 

0008 

0 166 




0 23u 

FLO 300 

OOEl 

3 20 9 




0241 

FL0304 

00E8 

0 235 




0 28 7 

FL035Q 

aOFD 

0213 



[ j 

0297 

FLO 352 

0102 

0 292 




C 330 

F L 0 360 

OllA 

3 2 71 , 

0370 , 

0 


0 3 45 

F L 0 40 0 

ullF 

U210 




0349 

FL04G1 

0123 

0293 , 

0 426, 

0 490 


0 35 0 

F L 0 H 0 5 

0125 

0 2 03 , 

0257, 

0421, 


0359 

FLO 402 

0127 

0348 




D 36 0 

FLO hO 4 

0128 

0 367 




0 3 68 

FL0409 

0132 

0 364 



o 

G 371 

RELFEL 

0136 

0 369 , 

0398, 

0 62 0 


0 3 73 

FLO 4ia 

013 7 





0385 

RIL 

0143 

0 386 




0388 

RFIL 

0146 

0 386 



''1 

0 389 

LOCI 

u 148 

3 375 




3 390 

L0C2 

0149 

0378 




0391 

LOC3 

014A 

0 3 76 




0393 

GOZERO 

014C 

0 394 




0396 

8ACK0 

014F 

0394 



■w 

0400 

FILEN 

0153 

0374, 

0 38 0 



0 415 

FL U 45 0 

0154 

0211 




O 


O 


NUMBER 

G209, U2i£-t 0211, 0212, 0213, 0214, 0215, 0216, 0217, 0374 

0131 

051C, 0865, 1194, 1310 
0801, 1207 

0 513 

0h67, 0517 


o 

o 

o 

o 

o 

Q 

o 

o 

o 

o 

c 

o 

c 


c> 

0 -+22 

JPF2V4 

3KUP 

0150 

PAGE 41 
3 419 


Q ‘*31 

FLO 45 2 

0162 

3 425 


0h35 

FL0453 

Q165 

0 432 

G 4 6 8 

FL u *+55 

0178 

0433, 


0 468 
0 H 69 
0 47 L 

FLV457 

FLV458 

FLV*t59 

017B 

Q17C 

Q17D 

3 5 0b, 


0-86 

FLO 500 

017E 

3212 


0495 

F L 0 5 0 2 

0183 

0 489 


0496 

FL502A 

018 6 

Q 495 

o 

G509 

FL05D6 

018E 


0 513 

FLO 507 

0192 

0 497 


0 516 

FLQ5C9 

0193 


0 566 

FL06Q0 

019 6 

0163 


G 572 

FLO 601 

019B 

0639 


05 79 

FLO 61A 

019E 

0 5 73 


0 58 3 

FLOblB 

ul A1 

3 5 80 


0588 

FLO 6 G 2 

01A4 

Q5 84 


u 594 

FL0603 

D1A9 

0 590 


0 601 

FL0604 

GIAF 

3597 


0 60 6 

FL0605 

0184 

0 5 85 


0 6 1 G 

F L 0 6 0 b 

G185 

0 591 


0611 

FL0bQ7 

GIB 6 

0 618 

I 

0 6 20 

FL06Q8 

GIBE 

3 615 


0 624 

FLO 610 

01C2 

0 574 


3 537 

FLO 614 

OICC 

0 626 

Q 

0643 

FLO 615 

0100 

0 581 

0 660 

FLQ616 

OIDE 

3 6 44 


0666 

FL0620 

OIDF 

a 333 


0 672 

FL0622 

01E4 

0148 


067 8 

FLG629 

OlEA 

0675 

'■tJ 

0 5 81 

FL0625 

OlEC 

0 6 73 


0 68 4 

-L V601 

OlEU 

0360 


Q 70 3 

FL u b5 0 

OiEE 

0214 

® 

0 715 

F L 0 6 5 2 

01F3 

0 7 95 

Q 72 9 

.“^LQ 654 

OlFD 

0 724 


0 7 61 

FL0656 

0218 

0 754 


0 765 

FLO 65 8 

021D 

0759 

o 

0 7 81 

FLO 660 

Q22C 

0 7 72 

0 786 

FL D 662 

0234 

0 7 79 


0 79 3 

F L 0 664 

0239 

0 7 25 


0 799 

FL0669 

023D 

0 7 94 

r-'^i 

0811 

FLV651 

0248 

3 730 

‘w 

0 812 

FLV652 

0249 

0 722 


0 829 

FL07G0 

O 24 A 

0216 


0 842 

FLO 704 

0252 

0 8 38 

o 

0845 

F L 0 7 G 5 

0254 

0 872 

0 855 

FL0720 

025A 

0 857 


0 858 
0859 

FLO 724 
FLO 725 

Q25D 

025E 

3 850 

; \ 

0 860 

FLQ72b 

025F 

0 8 43 


0862 

FL0730 

0260 

0 857 


0865 

FL0742 

0261 


o 






BATE! Gl/27/99 

0 

0456 


0 

0509 


C 


, o 

0215 ^ 


O 


0 592, 

0 b99 



(3598 , 

060-r, 

0 605 

0 

0 606, 
0 62 9 

0 660 


; 0 

0 63 8 , 

Q 8 Q 9 , 

0874, 1198 

0 

1167 

0363, 

0 611 , 

0 614 





0 ? 88 , Gtt31, B 8 irb, 08b7 , 0 871 ■ O 

0 217 

O 

O 

O 




C) 




JPF2V4 

PAGE 42 



DATE: 

01/27/99 

o 

o 











3 374 

FL0745 

0269 

0 8 59 








3 889 

FLSu 2 

026 B 

0 8 47, 

0897 




0947, 1GQ6, 1238 


o 

0911 

FLS05 

0273 

3 154, 

0 330, 

0631, 

0912 , 

Q 914 , 

o 

0925 

FLSQ51 

027E 

0 913 








0 92 7 

FLSG5A 

0 28 0 

0 934 








0 92 8 

FLS05B 

0281 

0 9 43 






o 

o 

093G 

FLSQ5C 

0283 

0919 






G932 

FLS05D 

0285 

0 921 







0934 

FLS052 

0286 

0936 








0 93 8 

FLSG53 

0289 

0935 






o 


0946 

FLSD59 

Q28F 

0944 






'.J 

0949 

FLSV51 

0 291 

3915 , 

0 93 8 

lul7. 





0 97 8 

FLS06 

0292 

0 6 37 , 

0 793, 

1019, 

1124 




0991 

FLS06A 

029A 

0 988 








1000 

FLS061 

029F 

0 993 








IOC 4 

FLS062 

0 2AO 









1 Q 1 7 

FLS&67 

02A 6 

0 998 








1019 

FLSG69 

02A 7 

0989 







o 

1029 

FLSC7 

02A8 

0 230 , 

0 28 7, 

0 345, 

0-^22, 

0 485, 

1 120 

0 

10 40 

FLS071 

02AE 

1126 








10 4 6 

FLS71A 

02B1 

1041 








10 6 4 

FLS71B 

02BC 

1047 


1059 






10 6 6 

FLS71C 

028E 

1G53, 

1056, 




■ o 


1 0 /" 1 

FLS71D 

02BF 

10 65 








10 83 

FLS072 

02C5 

10 42 








10 93 

FLSD73 

02CF 

10 84 , 

1086, 

1089 




o 

o 

1097 

FLS 074 

0 200 

1092 

1102 





IIG 6 

FLSG76 

0209 

1099, 







1 110 

FLSG73 

02DB 

1105 








1120 

FLSQ79 

02E3 

1125 




1152 


o 

0 

1124 

FLS07A 

02E4 

1066, 

1079, 

1118, 

1134, 


1 13G 

FLSG7B 

02E8 

10 93 







1139 

FLS07C 

02EC 

1132 








1149 

FLS07F 

02F b 

1060 



1 1 4 8 



' o 

o 

115 2 

FLSG73 

u 2 F A 

1140, 

1142 , 

1145, 



1159 

FL007G 

02FB 

1106 








1161 

FL0072 

G2FD 

0 35G , 

1 15 0 







1169 

FLGQ7A 

0303 

1165 








1171 

FLO 0 79 

030 A 







r‘\ 


1177 

FLS08 

030 B 

0 710, 

0791, 

0 30 7 , 

1213 





1184 

FLS08A 

0310 

1190 








1185 

FLS088 

Q311 

1196 






: O 

o 

118 7 

FLS08C 

0313 

3 115, 

0 805 





1 19 0 

FLSC82 

0 314 

1192 







1194 

FLS084 

0317 

1191 








1205 

FLS085 

031E 

1197 







o 

120 7 

FLSG86 

0 321 

1210 






o 

1212 

FLS083 

0326 

1209 







1213 

FLSC189 

0327 


1212 







1215 

FLSV81 

0328 

1179, 

1250 




O 


1231 

FLS12 

0329 

Q 2 41 , 

0297, 




u 

1263 

FLSIh 

0336 

0379 , 

0457, 

1271, 

1283 




1281 

PLS15 

Q33F 

G 368, 

0 507, 

0 656, 

1312 





o 


o 


o 



JPF2V4 

=»AGE 43 



DATE! 01/27/99 

12b8 

~ L S 1 5 3 

034b 

13 01 




1298 

FLS154 

034E 

1307 




13C3 

FLSly5 

0352 

12 94 




130 9 

FLSiSb 

0356 

1 3 0 0 » 

1 33 0 



1314 

FLSiSa 

035B 

1305 




1319 

FLS160 

035F 

1320 




1 322 

FLS162 

0362 

1316 




132 7 

FLS167 

036 5 

1320 




1352 

FLS15A 

Oo 69 

1284, 

130 4 



1333 

FLS15B 

036A 

1288 , 

1298, 

1515 


1334 

-LS15C 

036B 

1282 , 

1309 



1335 

FLS15D 

036C 

1314, 

1327 



1336 

ALOGIA 

0360 

0 416, 

0 454, 

1286, 

1289 



JPF2V2+ =i\GE 44 DATE: 01/27/99 

EXTERNALS 


OEF . LINE 

NAME 

VALUE 

REFEREN3ED AT LINE NUMBER 

0 07 7 

MIBUF 

OOQ 4 

0 095 

0 0 78 

JBPROE 

0 302 

0574, 1164 

0 0 7 9 

TRN VEC 

02FE 

1161 

0 0 80 

NIB 

OiEC 

3 631 

0 u8i 

LOGl A 

036D 

1336 

0 0 82 

FILES 

003A 

0174 

0 0 8 3 

PARBV4 

OUib 

0124 

0G8^ 

FBASV4 

03 3 C 

1268 

G 085 

JBFLV‘4 

0296 

0140, 0986 

0 08 6 

RELFIL 

014 7 

3 3 88 


C; 

o 

o 

o 

o 

o 

o 

o 

C) 

C) 

o 

O' 

o 

o 


o 


o 



JPF2V4 PAGE 


O 



^ ^ ^ ^ ^ 

P H A 

B E r I 

CAL 

SORT 

0 F 

Q 

Aor sp 

0033 

ALOGlA 

1336 

AMONI 

0 0 34 


F_0072 

1161 

FLU079 

1171 

FL007A 

1169 


FlO 401 

0349 

FL0.4Q2 

0359 

FLQ404 

0 3 60 

o 

F L D 4 5 5 

046b 

FLD5 00 

0486 

FL05Q2 

0 49p 

F L 9 o G 3 

0 59 4 

FLO 604 

G 601 

FLU605 

0 6 0 6 


F 1. 0 61 b 

0660 

FLOblA 

0 579 

FLudLB 

3 5 83 


-lO 654 

0 72 9 

F L 0 6 5 6 

0 761 

FL0658 

0 765 

r\ 

FLO 705 

0 84 5 

FL0720 

D 855 

FL0724 

0 858 

O 

FL3F1A 

0 130 

FL8F2A 

9 181 

FLBF3A 

3 182 


FL3052 

1)934 

FLS053 

3 930 

FLSC59 

0946 


F-S062 

100 4 

FLSD67 

1017 

FLS069 

1019 

0 

F_SD76 

IIQ 6 

FLS378 

1110 

FLS073 

1120 

FLS 382 

119 0 

FLS084 

1194 

FLS385 

1205 


F_312 

1231 

FLS14 

1263 

FLS15 

1281 


FLSiSB 

133 3 

FLS15C 

1334 

FLS15D 

1335 


FL3713 

1071 

FLSV51 

0949 

FLSV81 

1215 


FL\/652 

0812 

GOZERO 

3393 

I 

0 0 00 


J3PR0F 

0 u7 8 

J8V0 1 

0 175 

JBV02 

3 176 


LOG3 

0 391 

LOGIA 

0 081 

LPHA3K 

0 028 

o 

RELFEl. 

0371 

RELFIL 

0 0 86 

RFIL 

0 388 

V3 4 

0041 

VOS 

3 043 

V06 

0 0 44 


V13 

0 05 3 

Vlu 

D 055 

V15 

0 0 56 

o 

V22 

0G6 4 

V23 

0 065 

V2 + 

0 0 66 


date: Gl/27/99 


3 Y M B 

0 L S 

■¥■44 


BACKQ 

Q39o 

F3 

0174 

FL0300 

0230 

FLG30 4 

0 241 

FLO 405 

0 550 

FL0409 

0368 

F L 0 5 0 6 

05C 9 

FLG50 7 

0513 

F LO 60 6 

0 610 

FLQ607 

0611 

FL0620 

0 66b 

FLQo22 

0672 

FLO 66 0 

0781 

FLD662 

0786 

FL0725 

0859 

FLO 726 

0 86 0 

FLBUFl 

0188 

FLBUF2 

0193 

FLS05A 

0927 

FLS05B 

0928 

FLS06A 

0991 

FLSQ7 

1029 

FLS07A 

1124 

FLS07B 

113 0 

FLS086 

120 7 

FLS088 

1212 

FLS153 

1288 

FLS154 

1298 

FLS16G 

1319 

FLS162 

132 2 

FLT003 

0209 

FLV457 

0 4& 8 

JBFIOE 

0 201 

JBFL02 

012 6 

JBVQ3 

0177 

JBV04 

017 8 

MIB 

0 0 8 0 

MIBUF 

007 7 

RIL 

0385 

TEN 

UG3 2 

VQ7 

0045 

VO 8 

0047 

V16 

0057 

V17 

0059 

V25 

0067 

V26 

Q G 6 8 


O 





o 


o 

o 


c 


FBASV4 

U 0 8 4 

FILE3 

C082 

FILEN 

O 4 QG 

FL0u70 

1159 

1 -.) 

FL035G 

028 7 

FL0352 

0297 

FL0360 

0 33 0 

FLO 400 

0345 


FL0410 

0373 

FLQ450 

0h15 

FL0452 

0431 

FL0453 

0 435 


FL0509 

0516 

FLQ600 

0 565 

FLO 601 

0572 

FLQ602 

0588 

1 

FLG608 

0520 

FL0610 

0624 

FLG614 

0 637 

FLO 615 

0 643 


FL0625 

0 681 

FL062 9 

0678 

FL0650 

0 70 3 

FL0652 

0 715 


FL0664 

0793 

FL06&9 

0799 

FLO 700 

0 829 

FLO 7G4 

0842 


FL0730 

0862 

FL0742 

0 3 65 

FL0745 

0874 

FL502A 

0498 

n 

FL8UF3 

0197 

FLS02 

0889 

FLS05 

:0911 

FLS051 

0925 


FLS05C 

0930 

FLSG5D 

0932 

FLS06 

0 978 

FLSG61 

IGOO 


FLS071 

1040 

FLS072 

1083 

FLS073 

1093 

FLSe74 

109? 


FLSO 7C 

1139 

FLSO 70 

1152 

FLSQ7F 

1149 

FLS08 • 

1177 

0 

FLS089 

1213 

FLSO 8 A 

1134 

FLS08B 

1185 

FLS08C 

1187 


FLS155 

130 3 

FLS156 

1309 

FLS158 

1314 

FLS15A 

1332 


FLS167 

1327 

FLS71A 

10 46 

FLS71B 

106 4 

FLS71C 

1066 


FLV458 

0 469 

FLV459 

U4?0 

FLVbOl 

C 684 

FLV651 

0811 

0 

J8FL03 

0151 

JBFL04 

013 6 

JBFL05 

016 5 

JBFLV4 

0 085 

JPF2 

0073 

JPFL 

03 90 

LOCI 

0389 

L0C2 

C 590 


NZERO 

0 029 

OKUP 

0422 

ONEBIT 

0 031 

PARBV4 

0083 


TRNVEC 

0079 

Vul 

0 0 38 

VQ2 

0039 

V03 

0 G 4 b 


VQ9 

GG48 

Vlu 

GO 49 

Vll 

QQ51 

V12 

0052 

V...- 

V18 

V2? 

0060 
0 069 

V19 

ZERO 

0061 

0030 

V20 

Q'062 

V21 

0 06 3 

0 


o 

o 

o 

o 

o 

c 

o 

c 


date: Oi/27/gg 


JPSTV^ 


PAGE i 


OOQi 
Qu 0 2 
00 0 3 
Qj 3 


* 


NAM JP3TV4 DECK- ID H84 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.C 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMHARY-iluMSAOOOOi 
Ma^+OdGO? 
^i8400GQ5 
M34C 0 004 


03 0 6 


ENT 

V4JPV4 

00 0 7 


EXT 

INPTV4 

0 3 0 8 


EXT 

TRNVEC, IUP,J08IND,LOADIN 

0 3 0 9 


EXT 

IPl ,RELFLE,FILE2, JBPROE 

0 010 


EXT 

MIB 

0011 

0 0 EA 

EQU 

0I3P($E A) 

0312 

0 0B9 

EQU 

REQXT (5B9) 


^^HSOS 4.0M84.0Q006 
♦♦MSOS .4,0M840 Q0Q7 
MB40 0 008 
M8400009 
♦♦MSOS 4.1^^M84000iC 
♦♦MSOS 4. 0H840 biJil 
♦♦MSOS 4.QM3400012 


0014 

0015 




JPST ROUTINE ♦ 

HANDLES ♦B, ♦U, ♦V, ♦SR, ♦ 


AND ♦Z INPUT STATEMENTS 




M840 0 014 
M84Q 0 01 5 


03 17 

= 0 0 0 0 

C8FE 


V4JPV^ 

NUM 

$C8FE 

0 j18 

PGOOl 

6C15 



STA^- 

(F2) 

0319 

P C 0 0 2 

0 A Q 0 



ENA 

0 

Ou 20 

P u 0 u 3 

64 0 0 

X 


STA 

MIB 


POO 0 4 

7FFF 

X 




00 21 

P 0 0 u 5 

E4Q0 

X 


LDQ 

TRNVEC 


P0 0 0 6 

7FFF 

X 




0 0 2 2 

PO 00 7 

08 14 



TPQ 

A 

00 23 

PO 008 

E2 QA 


JPST 

LDQ- 

10,0. 

Qu 24 

P 0 0 Q 9 

QDFE 



INQ 

-1 

00 2 5 

= 0 0 0 A 

EA CD 



LDQ^ 

TAB,Q 

0u2'j 

PO 03B 

lAFC 



JMP^ 

JP3T,Q 

0 3 2 7 

POOOC 

DCGE 


RETRF3 

ENQ 

14 

0023 

POuQD 

OA 01 



ENA 

1 

0029 

PDflOE 

58 06 


GETM3D 

STA^ 

INDEX 

0050 

POOOF 

ChOG 

X 


LDA 

JBPROE 


POOiO 

7FFF 

X 




00 31 

POOH 

6GFF 



3TA- 

I 

0032 

P0012 

G802 



LDA^ 

INDEX 

0 3 5 3 

P0G13 

14FF 



JMP- 

(I) 

00 3 4 

P0014 

00 DO 


INDEX 

NUM 

0 

0 3 3 3 

P0015 

18FD 


COM DEV 

NUM 

S18F0 

0 3 3 d 

P0016 

7FFF 

X 

F2 

ADC 

FILE2 


STORE FNA IN TRVEC 

CLEAR JOB LOCKOUT 

TRANTA TABLE ADDRESS IN JOBENT 


REQUEST CODE 

SCHEDULE JOBPRO 

MODULE INDEX 
GET NEXT CONTROL 

STATEMENT 


♦♦MSOS 4.QM8400017 
♦♦MSOS 4.0M34G0ai8 
♦♦MSOS 4.0M8400019 
♦♦MSOS 4.0M840U020 

♦♦MSOS 4. 0M3400 021 

♦♦MSOS 4.GM8400a22 
♦♦MSOS 4.CM84Q0G23 
M84Q0024 
M8 40 002 5 
M8400 025 
♦♦MSOS 4.GM8400027 
♦♦MSOS 4. OM8400a2S 
♦♦MSOS 4 .uM340u 029 
♦♦MSOS 4.0M84QQa3Q 

♦♦MSOS 4.0M8430031 
♦♦MSOS 4 . 0MS40 0 032 
♦♦MSOS 4.0M34JQ033 
♦♦MSOS 4.0M8400034 
♦♦MSOS 4.0M8400035 
♦♦MSOS 4.0M840DQ3& 


0 9 3 9 

0041 
y 0 4 2 
03 43 
00 4 4 
0 0 4 5 
0 3 4 5 
00 47 


P0017 0016 
P0018 0019 
PQU19 OOlC 
POOIA 0032 
POOIB 0020 
POOIC 002B 
POOID QQ4A 


>!■ ArAfAf-Aif.¥¥4:f 

TAB ADC 
ADC 
ADC 
ADC 
ADC 
ADC 
ADC 


Af A? AA A^ At • 


A4-AAAAAA Af AA f AA 


BPLOAD-JPST 
TYPEIN- JPST 
STDINP-JPST 
SGSIOFF-JPST 
SETREC-JPST 
RESUME- JPST 
WEOF-JPST 


AAAAAA 


If. ^ if- if- AAAf.AAAAAfAAAA4AAAAAAAP-AA5AAA.AA M8400039 

M840Q 041 
M84D0042 
M34Q 0 043 
M8400C44 
M843 0 045 
M840004b 
♦♦MSOS 4.0MS4fl0047 




JPSTV4 PlkGE 2 


DATE: 01/27/99 


0 0A9 


V- i). ^ If. 3f it- if. If. :f. ^Ifif.:^.^.^ I(.i(.jf.^ff2f.if.!f.if.if.if:f.if.:f.^3f.if.if.:f.ff.y.if.if.3i.^.^if.^:f.ii.!f.~:f.,j.,f. j Q49 


o 


00 5 1 
QQ 52 


JOB PROCESSOR STATEMENT 
» SET THE BREAK-POINT LOAD SWITCH 


M84B 0 051 
M8400052 


O 


0054 POOIE 0822 

0055 POOIF 6207 
0C56 P0G20 13EB 


BPLOAD TRA Q 

STA- 7,D 
JMP’^ RETRF3 


TRANTA ADUTESS 
SET BPS 


^^MSOS 4.0M84QOG54 
^♦MSOS OM3400Q55 
H8490056 


r'\ 

V.-- 


0058 
DO 5 9 


JOB PROCESSOR STATEMENT 

^ READ ALL CONTROL STATEMENTS FROM COMMENT MEDIUM 


M34Q 0 058 
MBhO 0 059 


0051 P0021 C8F3 TYPEIN LDA^ COMDEV SET INPUT COMMENT TO TTY 

0052 P0022 dC17 STA« (IUPP) 

0053 P0023 13E8 JHP^ RETRF3 


^^MSOS 4 . 0M84LU U&l 
M84Q 0 062 
H8400G63 


O 

o 


0056 
0 3 5 7 
0 0 68 


♦V JOB PROCESSOR STATEMENT 
READ ALL CONTROL STATEMENTS FROM STANDARD 
^ INPUT DEVICE 


M340U065 
M8430067 
M84J 0 068 


O 


D0 7C 

P0024 

CO 00 

STDINP 

LDA 

=N$16F9 

SET INPUT UNIT TO SBI 


M84GuG70 


P0G25 

18F9 







00 71 

P0026 

6C13 


STA^ 

aupp) 



M8 4Q 0 071 

0G7 2 

P00 27 

18E4 


JMP^ 

RETRF3 



M84G0072 

0Q7-4- 




■»3R JOB PROCESSOR 

STATEMENT 


M840 0074 

0 0 7 6 

P0028 

0822 

SETREG 

TRA' 

Q 


^^MSOS 

4. QH840 QU76 

00 77 

P0029 

C2C2 


LDA- 

2,0 

INPUT BUFFER 

^^MSOS 

t. 0M840 0 077 

0u7t 

P002A 

60FF 


STA- 

I 


^■^MSOS 

4. 0M340QG78 

If. if. If. y.. 








Qj 79 

P002B 

ClOl 


LDA- 

i,I 


^^MSOS 

4. 0M84DQ 079 

00 6 a 

P0G2C 

AO OA 


ANO- 

$A 

FF 

^^MSOS 

OM340 0080 

u LI 8 1 

P0020 

90 OA 


SUB- 

$A 

IF NOT RECOVERY GO TO UPLOAD 

-^MSOS 

CM8400 081 

008 2 

P 032E 

01 12 


SAN 

GETLD 

NOT AN -SR 

^^HSOS 

4. 0M340Q082 

0 3 8 3 

POO 2F 

42 0 8 


STQ- 

8, a 

SET RECOVERY INDICATOR 

^^MSOS 

4. 0 M3 40 0 033 

0 03 4 

P0G30 

18DB 


JMP^ 

RETRF3 



M3400G84 

0 0 8 5 

PuOSl 

0A02 

GETU 

ENA 

2 


-^MSOS 

4. GM84U 0 085 

0 3 36 

P0032 

18DB 


JMP» 

GETMOD 

GET UPLOAD THRU JOBENT 

»-MSOS 

4 . 0M84Q 0 G86 


o 

o 


o 


0G33 
003 9 


» THIS ROUTINE WILL CAUSE THE JOB PROCESSOR TO CONTINUE WITH {$E4) = 1 M84uQ088 
^ and the LOADER-IN-CORE FLAG SET TO ZERO »=s^MSOS 4.GM840 U089 


O 


0391 

P0Q33 

0 AOl 


RESUME 

ENA 

1 

SET START OF SCRATCH TO BEGINNING 


M84u 0 091 

0092 

P003h 

60 E4 



STA- 

$E4 



M840QQ92 

03 93 

P 0 0 3 b 

0 A DC 



ENA 

0 


^^MSOS 

4. QM8400093 

0 3 9t 

PGQ35 

64G0 

X 


STA 

LOADIN 


’^-^MSOS 

4 . 0M34Q 0 094 


P00 37 

7FFF 

X 







u j 9 5 

P J038 

1803 



JIMP’- 

RETRF3 



M3400095 

0 09b 

PO 059 

7FFF 

X 

IUPP 

ADC 

lUP 


^^MSOS 

4,GM84i) 0096 


o 




u 


JPSTVi+ 


PAGE 


3 


date; ui/27/99 


0098 









M84j 0 098 

OiDQ 





JOB PROCESSOR 

STATEMENT 


M840 0100 

0101 





WILL TERMINATE 

THE BATCH SUBSYSTEM 

-^MSOS 

4. OM8400101 

0103 

P003A 

GAOO 


SGNO^F 

ENA 

0 



M84Q U 10 3 

010 4 

P0O3B 

64G D 

X 


STA 

JOBIND 



M840 Q1C4 


P003C 

7FFF 

X 







0105 

P003D 

6 40 0 

X 


STA 

LOAOIM 



M84Q01Q5 


P0 03E 

0037 

X 







010 6 

P0Q3F 

0 AOl 



ENA 

1 



M3 40 010 6 

010 7 

P0G40 

60 E4 



STA- 

$E4 



H840Q1Q7 

0109 

P0041 

E0E9 



LOQ- 

$E9 

AOOR OF EXTENDLn CORE TABLE 

♦^MSOS 

4. 0M84001C9 

QUO 

P0Q42 

E2 09 



LDQ- 

9,0 

REQXT 

AODR OF RCTV IN MONI 

'^^MSOS 

4 . OM84 0 011 c 

0111 

P0043 

CO B9 



LDA- 



M84Q 0 111 

0112 

POG^A 

5203 



STA- 

3,0 



M84Q0 112 

0113 

P0045 

6205 



STA- 

5 , 0 



M84D0113 

0114 

P0046 

52C7 



STA- 

7,Q 



H84C0114 

0115 

PG047 

620B 



STA- 

11, Q 



M84Q0115 

0116 

PQ048 

620D 



STA- 

15, Q 



H840U 116 

0117 

P0G49 

COEA 



LDA- 

OISP 



M34uQ117 

0118 

P0 0 4A 

6400 

X 


STA 

IPl 

SET PROTECT FAULT RETURN TO 

DISPATCHER 

M840 0 118 


'=0048 

7FFF 

X 







0119 

POG 4 C 

C400 

X 


LDA 

INPTV4 

RESET CONTROL INPUT DEVICE 

^♦MSOS 

4 . QM840ail9 


P004D 

7FFF 

X 






4. GM8400120 

G12 0 

P004E 

6CEA 



STA^ 

(IJPP ) 


-^MSOS 

0121 

P004F 

08 44 



CLR 

A 



M84u 0121 

012 2 

P 0 0 5 0 

5400 

X 


RTJ 

RELFLE - 



M3400122 


P00 51 

7FFF 

X 








0124 


^EOF 

PROCESSOR 

-^MSOS 

4 . 

GM840 0124 

G125 

•V- 

»EOF 

WILL WRITE ONE END OF FILE 

♦^MSOS 

4 . 

0M8430125 

0126 


TP 

THE STANDARD BINARY OUTPU T DECICE 

^^MSOS 

4 * 

0MB40C126 


0128 

P0u52 

0 8 22 

WEOF 

TRA 

a 




^^MSOS 

4 • 

OM84a0128 

0129 

P0Q53 

E2 02 


LDQ- 

2,0 

INPUT 

BUFFER 

ADDRESS 

»^MSOS 

4. 

CM343 0129 

0130 

PO u 5 4 

C202 


LDA- 

2,0 




’^^MSOS 

Hr • 

0M8400130 

0131 

PO 055 
P0 0 5b 

09u 0 


INA 

0 




^’^MSOS 

H * 

uM840 Q131 

y 1 3 2 

U 1 G 1 


SAZ 

1 




^s^-MSOS 

4 • 

OM84Q0132 

0133 

P005? 

1809 


JMP^ 

GETLD 

NOT A 

CONTROL 

STATEMENT 

^^MSOS 

4. 

0M34Qul33 

0134 

PGQ58 

COFA 


LDA- 

SFA 




*»MSOS 

*4 • 

OM84D0134 

0135 

P0G59 

6 8 0 5 


STA^ 

REQ + 3 




’^^MSOS 

• 

GM34Q0135 

G135 

P005A 

54 F 4 


RTJ- 

($F4) 




^^MSOS 

4 • 

0M843Q13b 

0137 

PU05B 

IDOQ 

RED 

NUM 

$ 13 0 0 




*^^MSOS 

4 • 

0M3PQG137 

0138 

P0 05C 

0 0 06 


ADC 

COMP-REQ 




-^HSOS 

4 • 

GM843 0138 


DATE! Oi/27/99 

DAT = 00 0 0 { C ) 

Qi 

o 
o 
o 
— ^ 

C') 

o 

o 

‘‘W'' 





JPSTV4 


PAGE 

o 

0139 

PQ050 

UOGO 

NUM 

u ,0 ,S20 



P005E 

Ofl QO 


o 


P005F 

20Q0 



014 0 

PGObu 

14EA 

JMP- 

(SEA ) 


0141 

P0061 

18AA COMP 

JMP> 

RETRF3 


0142 



END 

o 







PG'i = 

0062 

( 98) C 

OM = 0000 ( 

o 







o 


M343G139 


O 

M840014C O 

M8400141 

H34G0142 

o 

n 

O 

o 

^ r-', 

V,/ 

■ O 

© 

. o 

■ o 
o 
o 
o 
r^} 


JPSTV4 


5 


date: 01/27/99 


E a U I \/ 


DEF . LINE 

■} ‘j C 0 
Dull 
0012 


PAGE 


A L E N C E S 


NAME VALUE REFERENCED AT LINE NUMBER 

I OOFF (000255) 0031, 0033, 0078 

DISP OOEA (QG0234) 3117 

REQXT uOB9 (000185) 0111 


JPSTV^ 


PAGE 


6 


DATE: 01/27/99 


o 


( 1 


I ) 


o 

S Y M B 0 

L S 






: O 









C") 

DEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 




0 Q 0 6 


QCOO 

0 0 0 5 






0 023 

JPST 

000 8 

0025, 

0 041, 

Cu42, 0 0 -*3, 0u44-, 

0045, 0046, 0047 



0027 

^ETRF3 

OGOC 

0 0 55 » 

0 06 3, 

0G72t Go 8*+5 

0141 

n 


0 0 29 

GETMOD 

QOOE 

0 0 85 





0 0 34 

INDEX 

OOlit 

00 29 , 

0 032 





0 G35 

COMDEV 

0015 

0 0 61 





o 

0 036 

F2 

0016 

0 018 




o 

0041 

TAB 

0017 

0 0 25 





0 0 5 4 

BPLOAD 

uOlE 

0 0 41 






0 0 61 

TYPEIN 

Qu21 

0 0 42 





o 

Q C 70 

3T0INP 

0b2 4 

0 0 43 





u C 7 b 

5ETREC 

0028 

0 0 45 





0 0 85 

GETLO 

00 31 

0 0 82 , 

0133 





a L91 

RESUME 

0 033 

3 0 46 






0096 

lUPP 

00 39 

0 062 , 

0 071 , 

012 0 


■ O 


0103 

SGNOFF 

003A 

0 044 





0128 

WEOF 

0 0 52 

0G47 






0137 

REQ 

005B 

0135 , 

013 8 




o 

0141 

COMP 

0 0 61 

0138 




: O 

o 








' O 

0 








o 


o 

: O 

o 

: O 

o 

: O 

o 

O 

o 

O 

f 





JPSTV4 


C> 


C) 


PAGE 


date: 01/27/99 


e;.' 


0 

E X T E R 

N A L S 




n 

0£F .LINE 

NAME 

VALUE 

referenced AT LINE NUMBER 

O 


U U 0 7 

iNPTV-t 

004D 

3 119 



DO 0 8 

TRN VEC 

00 06 

0 0 21 



0 0 0 8 

lUP 

0 039 

0C96 


's_-i 

0008 

JOBIND 

003C 

010^ 



j J G 5 

LOADIN 

003 E 

0094, 0105 



00 0 9 

IPl 

004B 

0 118 



0 C 09 

RELFLE 

0051 

0 122 



Du L9 

FILE2 

0016 

0 0 35 



Q 0 0 9 

JBPROE 

0010 

0 0 30 



0013 

NIB 

Ou 0 4 

0 0 20 

• o 


I 


Li 


o 

o 

0) 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 



o 


o 


JPSTVa 


PftGE 


3 


DATE: 01/27/99 


ALPHABETICAL SO^T OF SYMBOLS^-^ 


BPLOAD 0054 COMDEV j 035 COMP 0141 0 IS P QGll F2 G056 

IMDEX 0034 INPTV4 0007 IPl 3009 lUP 0008 lUPP 0096 

xli REQXT Q012 RESUME 0091 

TAB .-'^00^1 ^R-MyEC 00 08 TYPEIM 0 061 V4JPV4 0006 WEOF 0128 


■^1 QOGl ERRORS/ \ 

’ / 


r\ 

O 

o 

o 


o 

o 


o 


o 

o 

(''“■'I 


FILE2 

GOOD 

GETLD 

0 0 85 

GET MOD 

0 C29 

I 

LOGO 

c: 

J8PROE 

0 00 9 

JOBINO 

0008 

JPST 

0023 

LOADIN 

0008 


RETRF3 

G027 

3ETREC 

00 76 

SGNOFF 

0103 

5TDINP 

007 0 



C) 

C) 

(""l 

S..'' 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

r-1 


i ) 


o 


00 0 1 
Oj 0 2 
00 0 3 
013^ 


N AMEVi* 


* 


PAGE 


DATE: 01/27/99 


NAM NAMEV*+ DECK- ID MBs MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, lA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY- 


lluMBSOGGOi 
M850DQ02 
M853 0.33 
M3 5 3 3 j 0 4 


o 


o 


o 

o 


0 0 0 6 

0 0 0 3 
00 0 9 

0011 

0012 

0013 

0014 
0 015 
0016 
QQ17 
03 18 

0j19 

0u20 

0.21 

0Q22 

0023 
002:. 
0 3 2 5 


4-^ 


V- 


» V- 


p 0 Q L e 
POOOl 
P0GQ2 
P0GG3 

P00C4 
PO 0 u 5 
P0 0G& 
P00u7 
P0 0 08 
P000 9 
P 0 0 u A 


0 0 23 
0012 
C8FE 
640 G 
7FFF 
1804 
0 0 22 
0 0 01 

0001 
OOGl 
OAOfl 
68F8 
6800 
OOED 


NV4 






NAMEV4-0UTPUTS JOB 

NAME 

IN BLOCK 


-ON STANOARO 

LIST 

DEVICE 

ENT 

NV4 



EXT 

FILE3 



EXT 

SYSIO,3YSMON, 

SYSDAY 

,SYSYER 

EXT 

AYERTO, AMONTO 

, ADAYTO,TRNVEC 

EQU 

ONE3IT ($23) 



EQU 

NZERO (B12) 



NUM 

$C8FE 

PICK 

UP FILE3 

STA 

FILE3 



JMP^ 

NAMJOB 



EQU 

ZER0($22) 




M850 G 006 

^^MSOS 4.0M8500008 
=^»MSOS 4.0M85QQ0C9 


ADDRESS 


»^MSOS 

*^"MSOS 

^‘■^■MSOS 4. 


»»MSOS 

^^MSOS 


4. OM3500J11 
4 . OM350 0 012 
M850 0 013 
1^^M850 0 014 
M850 0 015 
M8500016 
4. 0M850 0017 
4.0M8500018 


NAMJ08 


BZ3 

BZS 

ENA 

STA» 

STA 


SPACTR 

CHKLEG (1),ADRJ0B{1) 


SPACTR 

THIRT 


^COUNTER 
COUNTER OF 


^^MSOS 4.GM8500019 
s^^MSOS 4. OM35G 0020 
»’M30S 4.0M8500 j21 
^^MSOS 4.UM35C0022 

^^MSOS 4.GM3500023 
OF NO. OF DOU^”-MSOS 4.0M850Q024 
BITS SHIFTED^^MSOS 



0 u 2 c 

p a 0 0 B 

68 00 



STA 

FLAG! 



0 


POQOC 

0 ODC 







8027 

POOuD 

0AC8 



ENA 8 




00 28 

POOOE 

68 00 



STA 

OUTSTR 





POOOF 

0 ODC 








0029 

POOiO 

C40 0 

X 


LOA 

TRNVEC 





PQOll 

7FFF 

X 






0 3 3 0 

P0012 

090F 



INA 

15 

ADDRESS OF 


0u31 

P 0 0 1 3 

68F2 



STA^ 

AORJOB 



\ ! 

0.32 

P0014 

OCOF 



ENQ 

15 




03 35 

P0G15 

C6QG 

X 

MOVIO 

LDA + 

SY3ID,Q 

MOVE 

SYSTEM 



PQ016 

7FFF 

X 






Q u 3 -+ 

P0G17 

oAOO 



STA 

OUTBFB+7,Q 

INTO 

BUFFER 

0 


P0018 

0159 






00 35 

PO 019 

CDFE 



INQ 

-1 




0 J 3 b 

POOIA 

0 1 71 



SQM 

MOVDAT 




00 3 7 

POOIB 

18F9 



JMP* 

MOVIQ 



.***s 

0038 

POOIC 

COCO 

X 

MOV DAT 

LDA 

=X3YSM3N 





POOIO 

7FFF 

X 







0 3 3 9 

PQOIE 

68 GO 



STA 

OUTBFC+1 

MOVE 

SYSTEM 



PQOIF 

0 1 63 







0 

00 40 

P0 020 

COOO 

X 


LOA 

= XSYSYER 

INTO 

BUFFER 



P00 21 

7FFF 

X 






0341 

PQ 022 

68 0 0 



STA 

OJTBFC+4 




JOB NAME IF ANY 


ID 


»»HSOS 

-s^^MSOS 

^^MSOS 

^^MSOS 

^^MSOS 

’^‘^MSOS 


4 . 

4 

4 

4 


o 


POO 23 0162 


0M350 0 025 

OM3 50 0 025 

0M35Q 0 027 
0M3500G28 

0MS50G029 

UM350 0 030 
0M850Q 031 
M8530032 
MB50 0 033 

M850 0 034 

M8500035 
M350 0 036 
M85QQ037 
M850 0 038 

M850 0 039 

M850 0 O 4 O 

M8 50 0 0 41 


O 


O 

O 

n 

O 


r-', 

V./ 


O 

O 

o 

o 

o 

o 

o 


f \ 


r i 



M850Q042 

M8530Q43 


O 


M8 5 d 0 0 4 4 
H353Q045 

M830 0 046 

4.1»^-M85Q 0047 

M850 0 048 

**WSOS 4,1»^M8500049 

s^'^MSOS 4.0M650 0 050 
»^HSOS 4. 0M850U051 
M85 j y 052 

»^MSOS 4.0M35u0u53 
M859 0 Q54 

^^HSOS 1 ^^H85u 0 0 5 5 

M 8 5 9 0 0 5 6 

I,X =^-^MSOS 4.0M353 0057 


^^MSOS 1-.UM850 U058 
^f^HSOS 4. 0M35D 0 059 
■*^-^HSOS 4. UM85 0 Q060 
«-^HSOS 4.0M8500 Q61 

»^MSOS 4. 0M85U0062 
^^HSOS 4.uMa5DQu63 
“s^^MSOS ^.0H85Q 0 06i* 
, ^^HSOS 0M85000b5 

^^MSOS 4.GH853u0So 
^^HSOS 4.0Ma50GQ67 
M8500068 

M85j 0 069 

,ItX M8500G70 


o 

o 

o 

r'\ 

(3 

P! 

o 

(3 

O 

W 

o 

o 

o 


c 


NAMEVit 


PAGE 


3 


DATE: Gl/27/99 



r ■) 



0070 

P0057 

0 0 07 









P0C58 

GOOD 







Q 

00 70 

PG059 

18FB 







007L 

PO 05A 

0 0 09 









PO Q5n 

OOEF 








0 0 71 

P0Q5C 

14EA 


JMP- (SEA) 



**MSOS 

4.0 M3 500071 

O ' 

GC 72 

P005D 

D8A6 

LOOP 

RAO^ 

SPACTR 

*IMCREASE DOUBLE 

space**msos 

4. 0M8500072 

00 7 3 

P005E 

C8A5 

LOA^ 

5PACTR 


**MSOS 

4. OM3500073 
4. OMSSaO 074 


00 7 -t 

P 0 G 5 F 

9025 


SUB- B25 

FOUR * 8 LINES DOWN FROM TOP OF FORM 

**MS0S 


00 75 

P006G 

0101 


SAZ 

STOSPA 


**MSOS 

4. OH8500075 


0G76 

P0G61 

13F1 


JH P»^ 

FORM 


**MSOS 

4. 0M6530076 

w 

uZ77 

PG062 

68A1 

S TO SPA 

STA- 

SPACTR 


**MSOS 

4. OM85Q0077 


00 78 

P00b3 

60FF 


STA- I 



**MSGS 

H. flM3500078 


00 79 

PO 0 64 

58GQ 


RTJ 

REL 

PICK JP address OF 

TABL**MSOS 

4. QHS500Q79 

o 


PG065 

0125 






M353u380 

0 -j 5 ‘J 

PD066 

E89F 

START 

LDQ» 

ADRJOB 




0 j31 

P G 0 67 

C622 


LDA- 

(ZERO) ,Q 



M85Q 0081 


0 0 3 2 

PG068 

0 8 42 


CLR 

Q 


**MSOS 

4. aH8500082 

Q 

00 B 3 

PO 069 

0FE8 


LLS 

8 

SHIFT UPPER CHAR TO A 

**MSOS 

4 . GM35 3 0 083 

Oj B i* 

P 0 0 5 A 

689A 


STA^ 

GHKLEG 

*STOR£ LOWER CHAR 

**HSOS 

4. 0M3500084 


0 0 3 5 

POGdB 

5807 


RTJ»- 

STWOAD 


**MSCS 

4 . 0M853 0085 


Q u 3 b 

PC u 6C 

C898 


LOA^ 

CHKLEG 

*LOWE'R CHAR. OF WORD **MSOS 

4. 0M8500086 


00 3 7 

PO o&n 

0 8 42 


CLR 

Q 



MS500087 

'w-' 

00 88 

PflOoE 

QFE8 


LLS 

8 



M8500Q88 


0 3 39 

POQcF 

58 03 


RTJ^ 

STWOAD 

STORE ADDRESS OF WORD **MSOS 

4. 0M35Q0Q89 


GO 90 

P00 7Q 

D895 


RA 

ADRJOB 


**MSOS 

M85 3 0 09 0 


0091 

P0071 

18F4 


JMP* 

START 


4. OM85QG091 


0 0 9 2 

POO 72 

QBOO 

STWOAD 

NOP 

0 

STORE ADDRESS OF WORD 

**HSOS 

4.GM350Q092 


0 3 93 

P0073 

G 814 


TRQ 

A 



M8500Q93 


03 9- 

PQQ74 

OOCF 


INQ 

-$30 



M35Q0a94 


03 9 5 

P0Q75 

0176 


SQM 

NOTLEG-*-! 

SKIP IF LOW LIMIT 

ILL 

M853 0095 

■J 

0 3 9 b 

P0 07o 

0DF5 


INQ 

-10 



M8 5 3 0 0 9 6 


0097 

PQI377 

0177 


SOM 

LEGAL!-*-! 

SKIP IF NUMERIC 


M853 0 097 


00 9.3 

P0 678 

QDF8 


INQ 

-7 



M35 j 0 098 


0399 

PO G79 

D172 


SQM 

NOTLEG-*-! 

SKIP IF MIDDLE LIMIT 

M853 0 099 

'■V 

0100 

P0Q7A 

QDE5 


INQ 

-SIA 



H353 010 0 


0101 

P0Q7B 

G172 


SQM 

LEGAL2-*-! 

SKIP IF ALPHA 


M350Q101 


0102 

P 0 07C 

0A2C 

NQTLEG 

ENA 

$20 



M3500i02 

O 

010 3 

PO 070 

ocoo 


ENQ 

0 

INDEX TO SPACE 


M85001U3 

0 1 U H 

POO 7E 

ODIA 

LEGAL2 

INQ 

$1A 

INDEX TO ALPHA 


M3500104 


aiD 5 

PD07F 

QDOA 

LEGAL 1 

INQ 

$A 

INDEX TO NUMBR 


M85D01Q5 


0 i j o 

p 0 0 8 u 

69 09 


STA* 

ASOII, I 



M853 0 10 6 

o 

013 7 

P0Q81 

OF A3 


QLS 

3 

X8 


M35D 0107 

G1D8 

P0082 

F35F 


ADQ* 

AB3TAD 



M85Q0i08 


010 9 

PQD83 

495F 


STQ* 

WORD, I 

WORD 


N850 0109 


a lie 

pooa*- 

DOFF 


RAO- I 



**MSOS 

4 . QM85Q 0 110 


0111 

P 0 0 8 5 

CO FF 


LDA- 

I 



M85QQ111 


0112 

P0086 

90 44 


SUB- S 44 

SIX * SIX 

WORD ADDRESS 

**MSOS 

4. 0M850Gil2 


0113 

P0Q87 

01G7 


SAZ 

STBLKS 

YES - ALL SIX ARE 

STORE**MSOS 

0M8500113 


u 1 1 -t 

PGG 88 

1 CE9 


JMP* 

( STWOAD) 

NO - PICK UP NEXT 

WORD **M30S 

4. OM850 0114 

0 

0115 

PQ089 

0 0 06 

ASCII 

BZS ASGIK 

6 ) 



H3530115 

0116 

^ 0 0 8F 

5800 

STBLKS 

RTJ SETBL 




M35a0ll6 



P0090 

00 84 








O 


O 


Q 

O 

O 

o 

o 

C) 

o 

o 

o 

0 

o 

o 

o 

o 

o 


NAMEV4 


PAGE 4 


date: Oi/27/99 


0117 PD091 OAOO 

0118 P0Q92 60FF 

0119 PG093 E94F 

0120 P009^ C854 

0121 P0095 9024 

0122 P0Q96 0112 

0123 P0G97 aOOl 

012- P0Q98 H-94A 

0125 P0099 C622 

0126 PQQ9A AOIA 
Q127 P009B GFC8 

0128 P0Q9C 0822 

0129 P009D GAOQ 
P009E 0216 

013C Pu0 9F 68 4-0 

0131 POOAO C9E8 

0132 POOAl 0822 

0133 PCOAZ B030 

013- PDGA3 6827 
0135 POOAh 0FC8 
0135 PQ0A5 6809 
G13? PQ0A6 AOIA 

0138 P00A7 0834 

0139 P00A8 6831 

0140 P0GA9 C336 

0141 PQQAA 0131 

0142 PQOAB 1809 

0143 PQOAC E83F 
Q144 POuAD GOOD 

POOAE 5820 

0145 POGAF 6A00 
POOBu 0096 

0146 POOBl OAOl 

0147 P00B2 682E 

0148 P00B3 C82C 

0149 PGQB4 OFCl 

0150 P00B5 682A 

0151 PGQB6 DS34 

0152 P00B7 180B 

0153 PQ0B8 C830 

0154 PflOB9 9023 

0155 POO BA Gill 

0156 POO SB 133E 

0157 POQBC DOFF 

0158 PGOEO GOFF 

0159 POQBE 9044 
OIdG POQBF 0111 

0161 POOCe 185F 

0162 POOCi 18D1 

0163 P00G2 0131 

0164 P00G3 1309 

0165 P00C4 E827 

0166 P00C5 C81B 


DEGOD 

DECODE 


LOAD! 

PKUP 


ENA 
STA- r 


LDQ^ 


WORD, I 

LDA^^ 


FLAGl 

SUB- 

S24 

TWO 

SAN 


LOAOl 

INQ 


1 

STQ-’^ 


WORD, I 

A- (ZERO) 

, Q 

ANO- 

SIA 

$FF00 

ALS 


8 

TRA 


a 

LDA 


COOELjQ 

STA^*^ 


TEMPBF 


-^MSOS 

'‘^MSOS 

a=ADDRES3 OF CODING FOR LET^^MSOS 

^♦MSOS 


SHOULD Q BE INCREASED 

INC ADR TO PICK 
NEXT WORD 

A = CONTENTS OF ADDRESS 
^ PICK UP FIRST CODE 

a= NUMBER OF CODE 
CODE IN A 


UP 


=^^MSOS 

^^4HSOS 

»^*M30S 

»^MSOS 

’^^MSOS 

^^’^MSOS 

»^MSOS 

^^HSOS 

^^•HSOS 


LDA^ 

ASCII , I 


TRA 

Q 


EOR- 

ONEBIT+13 

20XX 

STA^ 

BLKX4-1 


ALS 

3 


STA*f 

INSX+2 


AND- 

NZERO+3 

$FF-3 0 

AAQ 

A 


STA^ 

DJ358+1 

XXXX 


SUBST 


LDA^ 


TEMP3F 



SAN 


INSX 


JHP=^ 


IMSBLK 

INSX 

LOQ^ 


OUTCTR 

LDA 


=N$5820 


STA 


OUTBUF ,Q 


ENA 


1 


STA4 


XSET 


LDA^ 


TEMPBF 

INSB.K 

ALS 


1 


STA^ 


TEMPBF 


R^O* 

THIRT 


JMP^ 


S J3STI 

WDGNT 

LDA^ 


FLAGl 


SUB- 

$23 

ONE 


SAN 


INCR 


JHP^ 


DECl 

INCR 

RAO- 

I 



LDA- 

I 



SUB- 

$ ,4 

SIX ^ 


TEMPBF CONTAINS CODE ’^^HSOS 

CHECK BIT 15 FOR A 1 »»MSOS 

NOT SET LEAVE BLANK »^MSOS 

BIT 15 SET STORE A X«^^MSOS 

AND A BLANK IN THE BUFF^^MSOS 

^^MSOS 

^^MSOS 

^ SET FLAG TO INSERT X^^HSOS 

^^HSOS 

SHIFT TO CHECK FOR BIT »^MSOS 

^^^MSOS 

^INCREASE COUNTER OF B^^MSOS 

^ ^'MSOS 

^CHECK IF IN LOWER PART OF WO^^MSOS 

^ SO S 

IN UPPER PORTION OF WOR^^MSOS 


CONTINUE 


SIX WORDS 


BLANKS 

SUB3TI 

INX 


SAN 

JMP^ 

JHP«- 

SAM 

JHP» 

LDQ-'^ 

LOA-^ 


XSET 


BLANKS 

OUTELK 

DECODE 

INX 

INRLKI 

OUTCTR 


YES - OUTPUT BLANKS 
NO - PICK UP CODE 
BIT 15 SET - INSERT AN 1 

KEEP BLANK ----- 

^Q=POSITION IN OUTPUT »-«^MSOS 
^ CHECK IF X SET IN UPPER ^^^HSOS 


»^MSOS 

'^^MSOS 

»^MSOS 

^^MSOS 

»^MSOS 

«^^MSOS 
»^MSOS 
■«- + MSOS 


0M350U117 
4. OM3500118 
4. GM3500119 
4. 0M85DG 120 
4. OM8500121 
4. QM8500122 
4.0M35Q0123 
4. OM8500124 
M8500125 
4. 0M85GQ126 
4. 0M85B0127 
4. QM85Q 0128 
GM35u0129 

4. DM350D130 
H35DQ131 
M85D0132 
M8 5 0 0 1 3 3 
M850G134 
M850 Q13 5 
M85G0136 
M350 013 7 
M850D138 
M3530139 
4. 0M85GU140 
4. 088500141 
4. OM86D0142 
4 • 0M85 0 0 143 
4« QH85GQ1-4 

4. 0M853 0145 

4. 0M35DQ146 
4. UM353Q147 
4. 0M3500148 
4. 0M8500149 
4. GM85001pQ 
4. 0M85Q 0151 
4. 0H8500152 
4. OM8500153 
4«CM85 00154 
BH850Q155 
4. 0M35u015d 
4. 0M350 0 15 7 
4. GH853 0 15 8 
4. 0H8500159 
4. OM8500160 
4 »uM3500161 
4. 0M850Q 152 
4. 0H85Q0163 
GM 8500164 
4.GM8500165 
4. 0M8500166 




NAME 

V4 


PAGE 5 


DATE: 01/27/99 



0167 

PO 0C6 

9025 


SUB- 

S23 ONE 


PART OF WORD 

’’MS OS 

4, 

0168 

P0CC7 

0111 


SAN 

BLKX 


NO-STORE A BLANK AND A ”MSOS 

4. 

0169 

P00C8 

1810 


JMP- 

DUB58 


YES - STORE 2 X'S 

”MSOS 

4 « 

017 0 

P0GC9 

cooo 

BLKX 

LDA 

=NS2058 


”MSOS 

-f • 


POOCA 

20 58 








0171 

PQOCB 

6A7B 


STA» 

OUTBUF , 

-Q 


”MSOS 

4 « 

0172 

POOCC 

C813 

INBL<I 

LOA^ 

TEMPBF 



”MSOS 

4 • 

017 3 

POOCD 

OF Cl 


ALS 

1 


CHECK IF BIT 15 SET ”MSOS 

4* 

017m- 

PO OLE 

6 811 


STA’^ 

TEMPBF 



”MSOS 

H • 

0175 

POoCF 

D81C 


RAO* 

OUTCT R 


INC COUNTER OF WORDS USED IN 

BUFFE”MSOS 

4^ 

0176 

PQODO 

D81A 


RAO’ 

THIRT 


INCREASE COUNTER 

”MSOS 

4 « 

0177 

PQODl 

C819 


LOA’ 

THIRT 



”MSOS 

4 • 

0178 

P0002 

9027 


SUB- 

$27 $10 


16 BITS SHIFTED 

”MSOS 

H * 

0179 

PG003 

u 118 


SAN 

LOOPl 



”MSOS 

4 • 

0180 

PQ0D4 

680C 


STA’ XSET 





OlSl 

POODS 

6815 


SFA’ 

THIRT 

’CLEAR COUNTER OF BITS SHIFTED 

”MSOS 

"t ♦ 

0182 

POGDd 

58 54 


RTJ’ SIXBLK 

YES- OUTPUT TWO BLANKS 



013 3 

PO u D7 

18E0 


JMP’ 

WDCNT 



”HSOS 

4« 

0 1 8 

POODS 

CGGO 

DUB58 

LDA 

=N$5358 


”HSOS 

4 • 


P00D9 

5858 








olB5 

POOOA 

6 A 6C 


SJA* 

OUTBJF,Q 



”MSOS 

• 

0136 

PO ODB 

18F0 


JMP’ 

IN3LKI 



”MSOS 

4 « 

0187 

POuDC 

0 AOD 

LOOPl 

ENA 

C 



”MSOS 

4 • 

0188 

PQODD 

6803 


STA’ 

XSET 


CLEAR FLAG 

”MSOS 

4 • 

0139 

POODE 

18CA 


JMP’ 

SUBST 



”MSOS 

4. 

019 0 

PQ QDF 

0 0 01 


BZS 

TEMPBF (1) 



”MSOS 

4 • 

0191 

PO Q E G 

0 0 01 


8ZS 

XSETd ) 



”MSOS 

4 • 

0192 

POQEi 

li 0 0 1 


DZS 

ABSTAO il ) 

,W0RD(5) , FLAGl (1) 




PU0E2 

00 06 









P0UE8 

0 0 01 








0193 

P00E9 

0 0 01 


BZS LINCTR(l) 





019^r 

POOEA 

0 0 0 1 


BZS 

THIRT (1 ) , 

OUTCTR(l) 

”MSOS 

4 • 


POQEB 

0 0 01 








019 5 

POQEC 

u A G G 

DEC031 

ENA 

0 



”HSOS 

4 • 

0196 

POOED 

68FA 


STA’ FLAGl 





0197 

PGOEE 

60FF 


STA- 

I 



”MSOS 

4 . 

019 8 

PQQEF 

69F2 

DEI 

LDQ’ 

WORD, I 



”MSOS 

4 • 

0199 

POOFG 

C8F7 


LDA’ 

FLAGl 



”MSOS 

4 • 

020 0 

POOFl 

90 24 


SUfl- 

$24 TWO 


SHOULD Q. BE INCREASED 

”MSOS 

4. 

0201 

PG0F2 

ulll 


SAN 

DEO 



”MSOS 

4. 

020 2 

POOF3 

ODOl 


INQ 

1 



”MSOS 

4 • 

0203 

PQGFh 

DA 01 

DEC 

ENA 

1 


SET FLAG FOR 

”MSOS 

4. 

0 2 0 4 

POOF 5 

68F2 


STA’ 

FLAGl 


LOWER PORTION OF WORD ”MSOS 

4, 

0 2 C 5 

POOFd 

C622 

LOAD 

LDA- CZERO),Q 

PICK UP CODE IN LOWER 



02C6 

30QF7 

AOOA 


AND- 

$A $FF 


PART OF WORD 

”MSOS 

4 • 

(j2'J7 

POOFS 

18A3 


JHP’ 

PKJP 



’ ’MSOS 

4. 

0 20 8 

PO QF9 

0 AOQ 

DECl 

ENA 

0 



”MSOS 

4 * 

0209 

POOFA 

68ED 


STA’ 

FLAGl 


CLEAR FLAG 

”MSOS 

4 . 

0210 

P00F8 

DOFF 


RAO- 

I 



’’MSOS 

4 . 

0211 

POOFG 

COFF 


LDA- 

I 



’’MSOS 

4 . 

0212 

POOFD 

90 -.4 


SUB- 

$44 SIX 



’’MSOS 

4 * 

0213 

POCFE 

0111 


SAN 

PKNXCH 


NO - PICK UP NEXT 

CHAR”MSOS 

'*t * 

021-r 

PQOFF 

1802 


JMP’ 

OUTBKl 


YES - OUTPUT LINE 

OF C”MSOS 



OM8500167 
0M85i30168 
0H850 0159 
OM850ul70 

0M8500171 
0M85uQi72 
0M8500173 
0M35J0174 
aM8500i75 
0M8500176 
0M8500177 
QH8500178 
QM850Q179 
M8500180 
GM8500181 
M353 0 182 
0M850G183 
uH85 0 0 i8<+ 

QM35Q 018 9 
OM350018& 
GM3530187 
flM85Q0188 
0M85 00189 
0H8500190 
0M85G0191 
M35G0192 


M85C0193 

0H850Q194 

OM3 50 .] 19? 

MS sC 0 19 6 
0M850 0197 
OM85D0198 
0M35G0199 
OM350020D 
OM85002Q1 
OM35 0 020 2 
QM85Q0203 
QM38Q 0204 

M3500205 
0M3500206 
GM850 Q2Q 7 
OM350 0208 
OM8500209 
OM850 0 210 
QM8500211 
GM8500212 
GM8500213 
GM850Q214 


L-' 


NAMEV4 PAGE & OATE: 01/27/99 

c: 



0215 

POIQO 

18EE 

PKNXGH 

JM P^ 


DEI 


»^MSOS 

4 . 0MS5Q0215 



0216 



0UTB<1 

FWRITE 

bfb» 

0Bi-3UTeKl-1^0UT8UF-0UTaKi-i,6 8, A ,, ,I,X 

»^MSOS 

4.0M85uQ216 



0216 

PulGl 

54F4 










0216 

POlu 2 

ODGO 










0 216 

P0103 

0 0 07 











P0104 

0 0 0 0 









o 

0216 

PQ1G5 

18FB 








o 

0216 

PO 106 

0 0 44 










PG 107 

0 0 44 










0217 

P01G8 

14EA 


JMP- 


(SEA) 


’^^MSOS 

4. 0M8500217 


o 

0216 

Pfli09 

58GB 

OBI 

RTJ^ 

SETBL 


CLEAR OUTPUT BUFFER 

»^HSOS 

4. 0M353Q218 

: O 

0219 

PUIOA 

D8DE 


RAO^ 

LINCTR ^ 

INCREASE LINE COUNTER 

-^MSOS 

^.0M8500219 


0220 

POlOB 

C8DD 


LOA* 


LINCTR 


’•^MSOS 

4. DM85C022C 



0221 

POIOC 

9027 


SUB- 


S27 16 LINES OF CODE PRINTED 


M85GG221 


f' '^l 

0222 

POIOD 

0112 


SAN 


JMDEG 


^^MSOS 

H.OMaBOOPEZ 

o 


C22 3 

P U 1 0 E 

680A 


STA* 


LINCTR 

CLEAR LINE COUNTER 

»^MSOS 

4. 0M850 0223 


022t* 

POlOF 

1826 


JMP- EJEGT 



»»MSOS 

4.0M85Q0224 



0225 

POllD 

OA02 

JHQEG 

ENA 


2 



M8500225 


O 

0226 

POlll 

6806 


STA^ 


FLAGl 

SET FLAG TO INCREASE 

Q»^MSOS 

4. GN8500226 

o 


0227 

P0112 

1800 


JHP 


0 EC 0 D 



MS5j 0 22 7 



P0113 

FF70 










022 8 

P0114 

0 6 0 0 

SETEL 

NOP 


0 

ROUTINE TO SET BLANKS IN 

BU^^MSOS 

4.0M85&0228 



'0229 

P0115 

0AG8 


EM A 


8 


’^^MSOS 

4. GM3500229 

o 


025 0 

P0116 

68D4 


STA^ 


OUTCTR 

SET LEFT HAND t*iARGlN 

^‘^HSOS 

4.0M85a 0 23C 


0251 

Pull? 

GOOD 


LDA 


=N52D2C 


»»MSOS 

4. QM85l1 0231 




POiia 

20 20 









’ 1 

023 2 

P0119 

G C 


ENQ 


67 


^^^MSOS 

4. QM85G 0232 

: O 

' j 

023 5 
023 A 

POllA 

6A2C 

8LAN< 

STA^ 


OUTBUF ,Q 

STORE BLANKS IN 134 

CHA^^MSOS 

4. OH8500233 


PO 11 B 

GOFE 


INQ 


-1 

DECREASE MODIFIER 

^^MS'OS 

4. DM35Q 0234 



fl 2 3 *3 

POllC 

01 71 


SQM 


RET-^-1 


’^MSOS 

4. QM8500235 



0236 

PO ilD 

18FC 


JMP^ 


BLANK 

LOOP UNTIL BLANKS IN ALL 

^^MSOS 

4. 0M35G 0 23 6 

^ r) 

1 

023 7 

POllE 

1CF5 

RET 

JHP^ 


(SETBL) 


4^MSOS 

4.11M850 0 237 

o' 


023 3 



OUTB':.K 

FWRITE 

S F3, 0 B-OUT BLK-1, OUTBUF -OUT BLK-1, 68,A, , ,I 

,X »^MSOS 

4.0M350Q238 



023 8 

POUF 

54F4 










0238 

PO 120 

00 0 0 










u 2 3 8 

P0121 

0 0 07 











PO 122 

GOOD 










0238 

P0123 

18FB 










023 8 

P0124 

0 0 44 








: O 



P0125 

0 0 26 









023 9 

P0126 

14EA 


JMP- 


(SEA) 


^^MSOS 

4*0 M 8500239 



0240 

P0127 

58EC 

OB 

RTJ^ 

SETBL 


CLEAR OUTPUT BUFFER 

4»MSOS 

4.0M85Q024Q 


o 

0241 

P0128 

08CO 


RAO» 

LINCTR ♦ 

INCREASE LIME COUNTER 

»4MS0S 

4. OM8500241 

0 

0242 

P0129 

18C2 


JMP^ 


DEGOOl 



M850 0242 


0243 

P012A 

GBOG 

SIXBLK 

NOP 


0 


»^-^MSOS 

4.QM85Q0243 



0 2 44 

P012B 

E8BF 


LDQ» 


DUTCTR 


5^^MSOS 

4«0M850Q244 



0245 

PG12C 

CO 00 


LDA 


= N$2u2Q 


»^MSOS 

4. QM35D 0245 

0 


P012D 

202 0 





,Q STORE BLANKS OUTPUT 


4. 0MS50Q246 


0 2 4 6 

P012E 

6A18 


STA^ 

OUTBUF 

BUF^^^MSOS 



024 7 

PG12F 

083B 


RAQ» 

DUTCTR 

^^MSOS 

4. OH850Q 247 


O 

0 2 48 

PQ13Q 

1CF9 


JMPv 


(SIXBLK) 


^^^MSOS 

4.0M85G0248 

' o 

0249 

P0131 

u B 0 0 

ABSTAB 

NOP 


0 


^^HSOS 

4. 0M35QG249 



0 2 5 0 

P0132 

C8FE 


LOA^ 


ABSTAB 


^^MSOS 

-t. 0M850 Q 250 



O 





I 


NAMEV4 


PAGE 


7 


DATE! 01/27/99 


025 1 

P0133 

68AD 

STA» 

0252 

P0134 

1C 56 

JHP*’^ (RED 

0 2 5 3 

P0135 

58DE EJECT 

RT 

SETBL 

0 2 5 4 


E JECTl 

FWRITE $FB, 

G25t 

P013 6 

54F4 



Q 2 5-r 

P0137 

ODOO 



025- 

P0138 

C007 




P0139 

OQOQ 



025 4 

P013A 

18FB 



02 54 

P013B 

0 0 09 




P013C 

0 u OD 


(SEA) 

0 2 5 5 

POISD 

14EA 

JMP- 

0 2 5 o 

P013E 

OCOE BACKUP 

ENQ 

14 

0 25 7 

PQ13F 

G400 X 

LQA 

J8PR0E 


P0140 

7FFF X 


JBPROE 

0258 



EXT 

025 9 

P0141 

50FF 

STA- 

I 

0 2 6 G 

P0142 

0 AOl 

ENA 

1 

0261 

P 0 14 3 

14FF 

JMP- 

(I) 

0262 

P0144 

0C20 TOPA 

NUM 

SC20 

0 2 6 3 

POi'+S 

tiD20 SPACE 

NUM 

SO20 

0264 

P 0 1 4 B 

2031 OUTBJF 

ALF 

24, 170 


ABSTAD 


SET BUFFER BLANK 


»^HSOS 4.0M8500251 
^^MSOS 4.GH35G0252 
M85DG253 
M35 00254 


^^HSOS 4. GM850 0255 
^^HSOS 4.0M8500256 
»-»MSOS 4,OM8500257 


«f^MSOS 

^-^MSOS 

♦^MSOS 

“^^MSOS 

»»HSOS 

'■>^^HSOS 


4.0M850G258 
4. 0M8500259 
4. 0M85Q 0260 
4. 0M850 0251 
4»0M8 500252 
4. 0H850 0253 
N8 5 0 0 26 4 


PQ147 
PO 148 
PG149 
P014A 
P014B 
P014C 
P014O 
P014E 
P014F 
P0150 
PC151 
PQ152 
P0153 
POISh 
P 0 1 5 5 
P 0 1 5 6 
PG157 
P0158 
PQlr>9 
P015A 
P015B 
P015C 
P015D 
POISE 
P015F 
POi&O 
Pul61 
P0162 
P0163 
P0164 
P0165 
P0166 


3730 
30 20 
40 41 
5353 
2053 
544F 
52 41 
4745 
20 4F 
5 0 45 
oZ 41 
54 49 
4E4/" 
20 53 
5953 
5445 
40 2 0 
5645 
5 2 5 3 
494F 

4E20 
352E 
3G2G 
2020 
2044 
-rl54 
4520 
4F46 
2 0 52 
554E 
3A2 0 
40 4D 


OUTB^A ALF 12, DATE OF RUN! MN/DO/YY 


M85Q Q 265 





NAMEy 

4 

page 8 date: 01/27/99 


O 


P0167 

2F-4A 







P0168 

9<+2F 




/"''i 

o 

G2oo 

P0169 

POl6a 

6959 

2020 

OUTOFB 

ALF 23, SYSTEM ID: 

M350 0 25 6 




P016B 

2053 







P016C 

5953 




' o 

Q 


POi&D 

5445 





POlbE 

4D20 







P016F 

4944 







P017G 

3A20 




T"' 

o 


PC171 

20 20 






P0172 

2020 







P0173 

2020 







P0i7-4 

2G2Q 




■ 

l'"' \ 


P0175 

2020 






P0i75 

20 20 







P0177 

2020 







P0178 

2020 




i'^\ 



PG179 

2 0 20 







P017A 

2020 







P 0 1 7 e 

20 20 







P017C 

2020 





0 


P017O 

20 20 






P017E 

20 20 







PG17F 

2C20 





o 

0 2 5 7 

P018Q 

PG181 

2020 

2028 

OUTBFC 

ALF 9, CMM/OD/YY) 

M3500257 

o 

P0182 

4040 







P 0 1 8 3 

2Fvh 







POISh 

442F 




o 

o 


P0185 

59 59 





P G 1 8 6 

2920 







P018 7 

2020 







PG188 

2020 




C' 

. \ 1 

o 

0 2 68 
0 2 59 
Q27l 

P0189 
P018A 
PO 18B 
Pai8C 

2020 
QBOO 
5 8 A5 
1300 

REL 

HQ 

NOP_^ 0 

NUM^'^SiSflO, BG0Q3,$Q3G3,$-303,$D3u3,$U3Q3,$Q,$132B 

»^MSOS 4.0M3500268 
^^MSOS 4.UM3500259 
M35G 0270 

0 

PC18D 

0 0 03 




\ J 


P018E 

03 03 







PO 18F 

G3D3 







P019C 

0303 




; O 



P 0 19 1 

0 3 03 




■J 


P0192 

a OOQ 






G271 

P0193 

P0194 

13 2B 
0 40 F 

Hi 

NUM $04QF, $1011, $05U4,$G404,SC*^u-»»$C4tj4,$0, $0028 

H85QG271 

C' 

o 


P0195 

Ifl 11 






P0196 

0504 







PG197 

0404 







PGi98 

0404 




c 

o 


PQ199 

0 4 0 4 





Pui9A 

0 0 0 0 







P019B 

0028 






o 


o 


o 


N AHEV'^ 


PAGE 


9 


date: Ql/27/99 



Q27? P019C 
P0i9D 


POICD 

PQICE 

POiCF 

POIDO 

POlOl 


NUM $ 13 $0 0 03, $0608 , $u 9 C4,$0A0B,S0Dai»$C,$002B 


NUM $1300 , S0G03, $1414,$0E13,$QE14,$14u3,$0 ,$132B 


NUM $03 0 3 , £ 0 30 3 , $ 0 3 Q 3 , $ 0 , $ 0 0 1 4 , $ 141 4 , $ 1^1 4 ^ $1 42 B 


NUM $G,£0 001 ,B010 1,$G200,$GOl4,il-+0 3,$U,$13 2B 


NUM $130 0 , $3 00 3 , $0101,3020 0 , $0 0 03 , $1 3 03, $Q,$132B 


NUM $0, $00 0 3,$140 6,$Q70 8,$C9Q4,$0A0B, $CBOB,$0 82B 


NUM $ 13 00 , $000 3, $0 30 3, $0013, $0003, $0303, $0, $132 6 



M8500272 


C-' 

O 

o 

M85Q0273 

, o 
o 

M85Q0274 

O 

o 

M8500275 

O 

■ O 

M850Q276 

, o 
' o 

M35Q0277 

O 

■ O 

H850Q278 

• O 

O 


o 


NAMEVt 


PAGE 10 


date: 01/27/99 



o 

o 

o 

o 


o 

o 

o 

o 

Q 

i'~) 

o 


P0102 GOOD 
P01D3 132B 

0279 P01D4 1300 H9 
P01D5 0003 
P01D6 0303 
PQ1D7 OflOO 
P01D8 0E14 
P01D9 1403 
POIDA 0000 
POlOB 132B 

0201 PGIOC 1300 TA 
POIDD 0003 
POIDE 03 03 
PulOF 0000 
POIEj 0003 
POIEI 0303 
P01E2 0303 
P01E3 G32B 

0231 PDIE^ 0200 T8 
FG1E5 0003 
P 0 IE c 0 3 03 
P01E7 0002 
P01E8 0003 
P01E9 0303 
POIEA 0000 
POIEB 022B 

023 2 PQIEC 1300 TC 
PQIED 0003 
POIEE 0101 
POIEF 0101 
POIFO 0101 
POIFI 0103 
P01F2 QOCQ 
PC IF 3 13 2B 

0233 P01F4 0200 TO 
P01F5 0003 
PG1F6 0303 
P01F7 0303 
P01F8 0303 
P01F9 0303 
POIFA OOuO 
POIFB 0228 

0 2 3-* POIFC 0 0 0 0 TE 
PGIFD 0001 
POIFE 0101 
PQIFF 0202 
P0200 0201 
P02G1 QlGl 
P02G2 OOGO 
PQ2u3 0028 

0285 P02UH 0000 TF 
P0205 0001 
P02C6 0101 
P0207 0202 


NUM S139aiSG0Q3»$G3 0 3,$G»$0El4,Sl-+0 3,$G,$132B 


NUM S 1303»BO0li3»$G3G3 j$jOuG j$uGu3»$Ij303»$G303>$0328 


NUM $020u,BGuC3,$03G3,$0Gu2,i;G003,$03:-3,$u,$G228 


NUM $ 1300, BG003, $0101, $01 u 1,30101, $01 03, SO, $1328 


NUM S02GO,SOuu3,$':303,$C3j3,$0 303,$u3 03,$0,$0 22B 


NUM $0,1, $0101, $0202, $0 201, $0101,0, $0028 


NUM 0,1, $9101, $3 2 02, $0201, $01 01, $3101, $0126 


M8500279 


M35Q 0 280 


M85J 0 281 


M850 0 282 


M8500283 


M853 0284 


M853 0285 


O 

O 

r'.. 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



NAHEV4 


PAGE 11 


DATE! 01/27/99 


P0208 

P02G9 

P02DA 

POEuB 

P02CC 

P02GD 

P020E 

PD2GF 

PG 210 

PG211 

P0212 

P0213 

PG 214 

PO 215 

PO 216 

P0217 

P0218 

PQ219 

P021A 

P0218 

P021G 

PQ21D 

P021E 

P021F 

P022Q 

P0221 

PG222 

P0223 

PQ224 

P0225 

P0226 

P0227 

PQ228 

P0229 

P022A 

P022B 

P022C 

P022D 

PQ22E 

PQ22F 

P0230 

P0231 

P0232 

P0233 

P0234 

P3235 

P0236 

P0237 

PQ238 

PD239 

P0 23A 

PO 23B 

P023C 

PQ23D 


0 201 
0101 
OlQl 
012B 
1300 
0 0 03 
0101 
0101 
1212 
0 303 
0 0 0 0 
1328 
0303 
0303 
0 303 
OOuO 
0003 
0 3 03 
0 3 03 
0323 
00 00 
QG 04 
0404 
0^04 
0404 
0404 
GOOD 
0 0 2B 
1414 
1414 
1414 
1414 
1414 
1403 

0 0 0 c 

132B 
0303 
1517 
1829 
IBIA 
1B29 
1817 
1503 
032B 
OlQl 
0 101 
0 101 
0 101 
0101 
OlGl 
0 0 0 0 
0 Q2B 
u 31D 
lElF 


NUM $130Gi3G003,S0101,$0101,$1212,$G3G3.$0,$132B 


NUH 30303,20503, $0303, SO, $00 03, SG3C3,$0 305, S032B 


NUM $Q,$000 4,$Q4G4,$0 40-T,$Q404,$G4G4,$a,$tj028 


NUM $1414, $1414, $1414,$ lul 4, $141 4, $14 Q 3, $0, $132 8 


NUM $0303, $1517, $1829, $lBiA, $1829, $18 17, $1503, $D32B 


NUM $ 0101, $ 0 101, $G1G1, $0101, $0101, $01 ul,$0,$0 02 B 


M35 0 0 28 6 


H8500287 


M8500288 


H350 0289 


M350 0 290 


H350Q291 


NUM $0310 ,$lElF,$20 21,S2203,$03u3,$0 3G3,$G303 ,$032B 


M8500292 


NAME\/4 


PAGE 12 


date: 01/27/99 


o 

o 

o 

o 

o 

o 

C') 

C' 

u 

o 

o 

o 

o 


0295 


0294 


0295 


Q29b 


029 7 


0298 


P023E 2021 
P023F 2203 
P024U 0303 
P0241 D3G3 
P0242 0303 
P0243 0328 
P0244 0303 
P0245 0323 
POE-rb 2425 
P0247 2621 
P02^8 2716 
P0249 122A 
P024A 0303 
P024B Q32B 
P024C 1300 
P024D 002A 
P02‘*E 1216 
P024F 2721 
PQ250 2625 
P0251 2423 
P0252 0000 
P0253 132B 

P0 2p-r 0 2 0 0 

P0255 CG03 
PO 256 03 03 
P0257 0000 
P0258 0201 
P0259 ClOl 
PG25A 0101 
P025B 012B 
P025C 1300 
P0250 0003 
P025E 0303 
P025F 0303 
P02&G 0303 
P0251 2127 
P0262 GOOD 
PQ263 1314 
PO 264 02G0 
P0265 0003 
P0266 0303 
P0267 OQuG 
P0268 0220 
P0269 2918 
P026A 1715 
P026B 032B 
P026C 1300 
P026D 0003 
P026E 0101 
P026F 0200 
Pu27C 0E14 
P0271 1403 
P0272 0030 
P0273 132B 


NUM $03 03,S0 323,324 25 ,$2621 t$2716,S12 2A,$G3 03 ,$0 328 


NUM $1330iS002A»$1216»32/2l»$2625»i2423»SG»$132B 


NUM $G20 0 ,S 00 0 3,$Q3j3,S0OGl , $ 0 2 01 , $ 0 1 Cl , $ Olu 1 , $0 12B 


NUM $ 1300 go 03, $G3G3 ,$0303 ,Su3Q3,$2127,$Q, $1314 


NUM $ 0200, $G003,$i.303,$wQuG, $0220, £29 18,$ 1715, $0 32 B 


NUM $13QO,$jQ03,$u101,$02GO,$QE1t,$14u3,$u,$132B 


M350a295 


M86G 0 29h 


Ma500295 


M85Q029& 


M85 3 Q 29 7 


M353 0 298 


o 

o 

o 

o 

o 

C) 

C) 

o 

o 

o 

o 

o 

o 

o 



NAMEV4 


date: 01/27/99 


0299 


0 3 0 0 


0301 


G3D2 


03 0 3 


0 3 3 - 


03 C& 


PAGE 13 


P0274 

0 0 0 0 

TT 

NUM 

SO 1 0 0 04» $040 4^$04!34 »$04l 4 j$ u4Q4j$0-i-2B 

M8530299 

P0275 

0 0 04 





P0276 

0404 





P0 277 

0 404 





PO 278 

0404 





PO 279 

0 404 





P027A 

0404 





PQ27B 
P0 27C 

042B 
03 03 

TU 

NUM 

$0303,BG3u3,$Q3G3,$G3G3,$u3u3,$03u3,$G,S132B 

M8500300 

P027D 

0303 





P027E 

03 03 





P027F 

0 3 03 





PO 280 

0 3 0 3 





P0281 

Q303 





P0262 

GOOD 





P0283 

P0284 

132B 
0 3 03 

TV 

MUM 

$Q303,S0303,$0303,$Q3G3,$03G3,$1C28,$192C,$042B 

H853 0 301 

P0285 

0 303 





P0286 

0303 





PG237 

03 03 





P0288 

0303 





P0289 

1C28 





P028A 

192C 





P028E 

P028C 

Q 42B 
0 305 

TW 

NUM 

SQ3Q3, BQ 30 3, £03 03,$0 3G3, $2221,$20 1F,$1E1D,$032B 

M850 b 302 

PO 280 

0 3 03 





P028E 

03 03 





P0 28F 

03 03 





P0290 

2221 





P0291 

201F 





P0292 

lElD 





P0293 

P0294 

032B 

0303 

TX 

NUM 

$O303,BG31C,$ 2819, S2Cij4 ,$ 2C19 ,$2 8iC,$0303 ,$0320 

M353G303 

P0295 

P0296 

PQ297 

031C 

2819 

2CG4 





P0298 

2C19 





P0299 

231C 





PG29A 

03 03 





pozga 

P029C 

032B 

0303 

TY 

NUM 

$0303, BC31C,$ 2819, $2CG~t,$u4G4,$C40-t, $0404, $0428 

M35j 0 30 4 

PO 290 

031C 





PG29E 

28 19 





P029F 

2CQ4 





P02AG 

04 04 





P02A1 

0 404 





PO 2A2 

0404 





P02A3 

P02A4 

042B 

OOGO 

TZ 

NUM 

$ 0 ,$Q 0 0 6,$070 8,$OgO-T,*GAG8,$OCi]D,$0,$0028 

M853Q305 

PO 2A5 

0 0 06 





P02A6 

0708 





P02A7 

0904 





PD2A8 

0 AOB 





P02A9 

DCOD 






G 3 0 5 

P02AA 

P02AP 

P02AC 

NAMEV4 

GuOO 
00 2B 

2S2B SP 

NUM 

PAGE 
32323 , 

14 OATES 01/27/99 

$2B28t$282B,$2B2B,$2B2B,$2B2B,$2B2B,$202B 

M850Q3Q6 

030 7 

P02AD 

P02AE 

PD2AF 

PQ2HQ 

P02B1 

PG2B2 

P02B3 

PQ2B4 

2B2B 

2B2B 

282B 

2B2B 

2B2B 

2B2B 

2B2B 

FFF8 GOOEL 

NUM 

$FFF8 

$00 

M850 0 30 7 

030 8 

PC2B5 

EO DO 

NUM 

SEOOQ 

$D1 

M350 0 30 8 

033 9 

P02B6 

FFFO 

NUM 

SFFFO 

$02 

MS5 j 0 30 9 

0310 

P02B7 

E038 

NUM 

SE0 38 

$03 

M8 5 0 0 3 1 0 

u311 

P02B8 

0 7 00 

NUM 

307 3 0 

$04 

M8 50 0 311 

0312 

P02B9 

7FQ0 

NUM 

$7FD0 

, $05 

M 8 5 0 0 312 

u313 

PG2BA 

0 3 70 

NUM 

$ 0 0 7 0 

$06 

M85!l 0 31 3 

0 3 1 -+ 

PO 2BB 

OOEQ 

NUM 

Sl-OEO 

$07 

M35C 0 314 

0 315 

PG2BC 

OIGD 

NUM 

$0130 

$08 

M8 5 0 0 31 5 

0316 

P02BD 

0 380 

NUM 

$0330 

$09 

M 8500 316 

0317 

P028E 

0 E 0 0 

NUM 

SOEOO 

$GA 

M85G 0 31 7 

0318 

P02BF 

IGOO 

NUM 

SlCuO 

$08 

M35 D u 31 8 

0319 

P02GQ 

3800 

NUM 

$3300 

$0C 

M353 3 319 

0320 

Pu2Cl 

70 00 

NUM 

$70 0 0 

$CD 

M85 0 0 32 0 

0 3 21 

P02C2 

7FF8 

NUH 

$7FF8 

$0E 

M850 Q 321 

0322 

PO 2C3 

OFGO 

NUM 

SOFOQ 

$DF 

M85 0 0 32 2 

05 23 

P02C^ 

IFQ 0 

NUM 

$ IF 3 0 

$10 

M850 0 323 

0324 

P02C5 

3F00 

MUM 

$3FQ0 

$11 

M8 5 0 0 32 4 

0323 

PQ2C6 

E0F8 

NUM 

$EQF8 

$12 

M35 00325 

032b 

P02C 7 

7FFQ 

NUM 

$7FF0 

$13 

H85u 0326 

03 2 7 

PG2C8 

0 038 

NUM 

$0 0 38 

$14 

M85 0 0 32 7 

0528 

P02C9 

EQ 70 

MUM 

$E070 

$15 

M8 5 0 0 32 8 

03 2 9 

P02CA 

E1F8 

NUM 

$E1F8 

$16 

MSB j 0 32 9 

03 3 0 

PD2CB 

EOEO 

NUM 

$E0E0 

$17 

M853 0330 

0331 

P02CC 

EICO 

NUM 

SEIGO 

$18 

M85 3 0 331 

0332 

P02G9 

IDGO 

NUM 

$1330 

$19 

M85 3 0 33 2 

0 333 

P02GE 

FEOG 

NUM 

$FEi3 0 

$1A 

M350 0 333 

0 3 3 4 

P02CF 

FFGQ 

NUH 

$FF0G 

$1B 

M8 5 0 0 33 4 

0 33 3 

P0 2Du 

70 70 

NUM 

$70 70 

$1C 

M 8 5 0 0 3 3 5 

0336 

P02D1 

FO 78 

NUM 

$F078 

$10 

M850 0336 

033 7 

PC2D2 

F8F8 

NUM 

$F3F8 

$1E 

M85j G 337 

Q 33 « 

P02D3 

FDF8 

. NUM 

$FDF8 

$1F 

MSB 0 0 33 6 

0339 

PQ2D4 

EFB8 

NUM 

$EFB8 

. $20 

M853 0 339 

0340 

P02D5 

E738 

NUM 

$F738 

$21 

M850 0340 

0341 

P D 2 0 6 

E238 

NUM 

$F238 

$22 

M85G 0 341 

0342 

P02D7 

FQ 38 

NUM 

$F058 

$23 ,, 

M853 0 342 

0343 

PQ2D8 

F838 

NUM 

$F838 

$24 

M350 0 343 

0 3 4 H 

P02D9 

FC38 

. NUH 

$FG 3 3 

$25 

M850 0 344 

0 3 4 5 

P02DA 

EE38 

. NUM 

$EE38 

$26 

M8500345 

3 34o 

P02DB 

E3B8 

NUM 

$E3B8 

$27 

MS 50034b 

0 34 7 

P020G 

38E0 

NUM 

$38 EO 

$28 

M85 j 0 347 

0348 

P02DD 

E38G 

NUM 

$E380 

$29 

M850 0 346 

0 3 49 

P02DE 

E078 

NUM 

SEQ78 

S2A 

M850 0 349 


NAHEV 


PAGE 15 


date: 01/27/99 


C.)' 


0 3 5 0 

0351 

0352 
03 53 

P02DF 

po2e:^ 

P02E1 

0 0 0 0 
0F60 
E7 00 

NUM 

NUM 

NUM 

END 

SOQOO 

$DFB0 

$E700 


$28 

$2C 

$20 


P3M = 

02E2 

{ 73d) 

3 0M = 

0 0 0 0 { 

0 ) 

OAT = 0000 { 

0 ) 


M850 0350 
M853 0351 
M35Q0352 
M8 5 00353 


o 

o 


■•J 


C) 

o 

o 

o 

o 


o 

o 

o 




Q 


o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

r) 


NAMEy4 =AGE 16 OATi£: 01/27/99 

EQUIVALENCES 


DE^.LINE 

NAME 

VALUE 


RE-ERENCED AT 

LINE NUMBER 

0 00 0 

I 

UGFF 

( 0 0 u 235 ) 

0078» 0110, 

Jill, 0113, 0 15 7 , 0 15 8, 0197, 0 210, 0211 , 0259, GZbi 

0 G 1 5 

QNEBIT 

0 023 

(000035) 

0133 


Q G 1 6 

NZERO 

0012 

(000018) 

0137 


0 0 20 

ZERO 

0022 

( 000034) 

0031, 0125, 

0205 



NAMEV4 

PAGE 17 


DATE: 

: Y M D 0 

L S 





DEF. LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 

0 011 

NV4 

0 0 0 c 

OQll 



0 U21 

3PACTR 

3 U 0 4 

0 024 , 

0072, 

0373, 0077 

0022 

3HKLEG 

00 0 5 

0 0 84 , 

0 086 


0 022 

ADRJOO 

00 0 6 

0 031 , 

0 080, 

0090 

0 0 23 

NAMJOB 

Ou 0 7 

0019 



0 033 

MOVID 

QG15 

0 0 37 



0 0 36 

MOVOAT 

QOIC 

0036 



0 C5 7 

RUN 

0 0 3E 

0 0 5 7 , 

0 057 


3 0 59 

HEADXX 

0 0 4 o 

0 0 57 



0061 

ZERXX 

0048 

0 064 



0G69 

FORM 

0053 

0 0 67 , 

0 076 


0 070 

FOR Ml 

0055 

00 70 , 

0G70 


0072 

LOOP 

0Q5D 

0 0 70 



0 077 

3TOSPA 

0062 

QO 75 



0 080 

START 

0066 

GG91 



0 092 

3TWDAO 

0072 

3 0 85 , 

0089, 

0114 

3102 

NOTLEG 

0Q7C 

0 0 95 , 

0Q99 


OICL 

LEGAL2 

007E 

0101 



0 10 5 

LEGAL 1 

007F 

Q 097 



0115 

ASCII 

00 89 

0106, 

0131 


3116 

STBLKS 

008F 

3 113 



0117 

OECOO 

0091 

0227 



0 119 

DECODE 

0093 

0162 



0125 

LOAOl 

0099 

0 122 



<3128 

PKUP 

00 9C 

3 2 0 7 



0 140 

SUBST 

OOA9 

0 189 



0143 

IMSX 

OOAC 

0136, 

0141 


0149 

INSBLK 

0 Q B 4 

3142 



0153 

WOCNT 

u G B 8 

0 183 



015 7 

I NCR 

Q08C 

0155 



0162 

BLANKS 

OOCi 

0 160 



0163 

SU8STI 

00C2 

0 152 



3165 

INX 

00C4 

0163 



0 170 

BLKX 

u0C9 

3134, 

0168 


0172 

I NBLKI 

OOCC 

0164, 

018 6 


0x84 

0UB58 

00D8 

3139, 

016 9 


318 7 

LOOPl 

OOOC 

0179 



0 190 

TEMPBF 

OOOF 

0130, 

0 U > 

0148, 0150, 

0191 

XSET 

OOEO 

3 147, 

0166, 

Q18Q, 0188 

0192 

ABSTAD 

OOEl 

3 103, 

0 251 


0192 

WORD 

U0E2 

0109, 

0119, 

u12h, 0198 


01/27/99 


0172, 0174 










1 't 

V..' 

r'l 


NAME 

\Ih 

PAGE 18 


DATE; 

01/27/99 



3 192 

FLAGl 

u0E8 

0 0 26» 

0 12 0 , 

0153, 0196, 

0199, 0204, 

0209, 0226 


D193 

LINCTR 

00E9 

0 219, 

0220, 

0223, 0241 


o 

0194 

THIRT 

OOEA 

0 U 2 5 , 

0151, 

0176, 0177, 

0 181 

0 2 47 ■ , O 


0194 

3UTCTR 

OOEB 

0C28, 

0183» 

0165, 0175, 

0230, 0244, 


S195 

DECOOl 

OOEC 

0 242 





0 198 

Dtl 

OOEF 

3215 





o 

0 20 3 

DEC 

QQFh 

3 201 




o 

0 20 5 

LOAD 

00F6 






0 208 

DECl 

00F9 

0156 






0215 

PKNXCH 

010 0 

0 213 





O ' 

0216 

3UTBK1 

0101 

3 214, 

0216, 

3 216 




0 218 

OBI 

0109 

3216 


o 


0 225 

JMOEC 

0110 

0222 





0228 

3ETBL 

0114 

0 569 , 

0116, 

0218, 0237, 

0210, 0253 


o 

0 233 

BLANK 

OllA 

3 236 




0 237 

RET 

UllE 

0 235 




o 


0238 

OUTBLK 

QllF 

0 161 , 

0238, 

0238 




0 2 40 

38 

012 7 

0 238 





o 

0 243 

SIXBLK 

Q12A 

0 182 , 

0 248 



' ■ c* 

0 249 

A8STA8 

0131 

3 250 , 

0269 




0253 

EJECT 

0135 

0224 






0 2 54 

EJECTl 

013 6 

3 2 54, 

0254 

0254 




C''\ 

0 256 

BACKUP 

ai3E 

C Q 6 8 , 



, 


0 2 62 

TOPA 

014 4 

0254 




' u 


0 26 3 

SPACE 

01h5 

00 70 






0 26^ 

3UTBUF 

0146 

3 0 57 , 

Q U61 , 

j145, 0171, 

0185, 0216, 

0233, 0238, 0246 

O' 

0 265 

3UTBFA 

015E 

0 G 48 , 

0 052 , 

0054, 0056 

■ o 

026 6 

0UT8F8 

016A 

0 034 




0 26 7 

OJTBFC 

Giai 

u u 3 9 , 

0 041, 

0045, 0046 



0268 

REL 

Q18A 

3 0 79 , 

Q 252 





0 270 

HO 

018C 




. Q 


0 271 

HI 

0194 






0 2 72 

H2 

019C 






0273 

H3 

01A4 






; 

0 2 74 

H4 

OlAC 





; O 


0 2 7 5 

H5 

01B4 






0 2 7 6 

H6 

OIBC 







027 7 

H7 

Q1C4 






o 

0278 

H8 

OICC 





o 


0279 

H9 

OIOh 






0 280 

TA 

OlDC 







0 281 

TB 

01£4 






O 

0 282 

TC 

GlEC 





O 

0283 

TD 

Q1F4 






0 284 

TE 

OlFC 






0 265 

TF 

020 4 







0 2 8 6 

TG 

020C 






'-U 

0 28 7 

TH 

0214 





o 


0 288 

TI 

Q21G 






0 289 

TJ 

0224 






O 

Q 29 0 

TK 

022C 





r\ 

C 291 

TL 

0234 






0 292 

TH 

023C 





o 








O 

o 








O 




— 

- - — 



. _ 

. 

. - 

— — ... . . - . .... 



NAMEV4 

PAGE i9 

DATE: 01/27/99 

0293 

TN 

0 2 4 4 



0 294 

TO 

024C 



0 2 95 

TP 

0254 



0296 

TQ 

025C 



0 29 7 

TR 

0264 



0298 

TS 

026C 



0 299 

TT 

0274 



0 300 

ru 

027C 



D 3C1 

TV 

0234 



0 30 2 

TW 

028C 



0503 

TX 

0294 



0 30 ^* 

TY 

029C 



0 3 0 5 

TZ 

02A4 



3 3 0 6 

3P 

02AC 



0 30 7 

COOEL 

02B4 

0129 



NAMEV4 PAGE 20 DATE: 01/27/99 

O 


Q EXTERNALS 


RE'ERENGED AT LINE NUMBER 

0 018 
0 0 33 
0 0 38 
0 0 43 
0 0 L 0 
0055 
0 0 47 
0 0 49 

0029, 0065 
0257 


o 


o 


<D 


O 


o 


o 


o 


o 


o 


DEF. LINE 

NAME 

VALUE 

00 12 

FILE3 

00 02 

0013 

3YSID 

0016 

0013 

3YSM0N 

0010 

0 015 

3YSDAY 

002 7 

0013 

SYSYER 

0021 

0Q14 

AYFRTO 

003B 

0 014 

AMONTO 

002E 

0014 

AOAYTO 

0032 

0014 

TRN VEC 

004E 

0 253 

JBPROE 

0140 


o 

o 

c 

o 

v_.' 

C~) 

,r-', 

G 

o 

C' 

o 

o 

c 

o 

o 

o 


NAMEV- 


=AGE 21 


DATE: 01/27/99 


o 

o 

o 


A L 

P H A 

B E T I 

GAL 

SORT 

ABSTA3 

0249 

AOSTAD 

0 192 

ADAYT3 

B-AMKS 

0162 

BLKX 

2 170 

CHKLES 

0E30DE 

0119 

DUB58 

0 184 

EJECT 

HI 

0 271 

H2 

0 272 

H3 

HEADXX 

0 G 5 9 

I 

0 uQD 

INBLKI 

L E 3 A L 1 

010 5 

LEGAL2 

0 104 

LINCTR 

NA'i JOB 

0023 

NOTLEG 

0102 

NVh 

OJTPFC 

0267 

OUTBKl 

3216 

OUTBLK 

RJX 

0 C 57 

SETBL 

0228 

SIXB.K 

STWDAD 

0 092 

SUB3T 

0 140 

suBsn 

T3 

02S2 

TD 

0283 

TE 

TJ 

0239 

TK 

0 290 

TL 

TR 

0297 

TRNVEC 

0014 

TS 

TZ 

0305 

WDCNT 

0153 

WORJ 


0 F 

S Y M B 

0 L S 



0014 

ADR JOB 

0022 

Ai'IONTO 

0014 

0 0 22 

COOEL 

030 7 

DEI 

0198 

0253 

EJECTl 

0254 

FILES 

0012 

0 2 73 

H4 

027-r 

H5 

0275 

0149 

0 172 

INCR 

0157 

INS3LK 

0193' 

LOAD 

0205 

LOADl 

0125 

0 011 

NZERO 

0 Q 16 

OB 

0240 

0233 

OUTBUF 

0 264 

OUTCTR 

0194 

0 2 43 

SP 

0 30 6 

SPACE 

0263 

0163 

SYSDAY 

0013 

SYSID 

0013 

028h 

TEMPBF 

019 0 

TF 

0 23 5 

0 291 

TM 

0292 

TN 

0293 

0298 

TT 

0299 

TU 

030 0 

0192 

XSET 

0191 

ZERO 

0020 


o 

D 

0 

o 

o 

o 

o 

o 



ASCII 

Oil 5 

AYERTO 

0014 

BACKJP 

0 25 6 

BLANK 

0233 

(J 

DEC 

0203 

DECl ' 

0 20 8 

DECOD 

0117 

DECOOl 

0195 


FLAGl 

0192 

FORH 

QQ59 

FORM! 

0070 

HO 

0270 


H6 

0276 

H7 

0 277 

H8 

0 278 

H9 

0279 

O 

I NSX 

0143 

INX 

0165 

JBPROE 

0258 

JMDEC 

0225 

LOOP 

0 072 

LOOPl 

0187 

MOV DAT 

0038 

MOVID 

0G33 


OBI 

0218 

ONEBIT 

0015 

OUTBF'A 

0 265 

OUTBFB 

0266 


PKNXCH 

0215 

PKUP 

0128 

REL 

0 26 8 

RET 

023? 

n 

SPACTR 

0021 

START 

0080 

STBLKS 

0116 

3TOSPA 

0077 

SYSMON 

0013 

SYSYER 

0013 

TA 

0 28 0 

TB 

0281 


TG 

0286 

TH 

0287 

THIRT 

0194 

TI 

0288 


TO 

0294 

TOPA 

0252 

TP 

0 29 5 

TQ 

0296 


TV 

ZERXX 

0 301 
0061 

TW 

0 3 0 2 

TX 

0 30 3 

TY 

0304 





o 

o 


o 

o 

o 

o 

o 

n 

X,,.' 


00 0 1 

Dooa 

GO 03 
G ] 3 H 


OQOb 
00 0 7 
GO 08 
03 0 9 


Dull 

0012 

C313 

DQ15 
0016 
0 017 
0018 

0019 

0020 
0 0 21 
GQ22 
0 3 23 
0 3 2 4 


00 25 
0 3 2 6 
00 27 
0028 
OG 29 
00 3G 

003 1 
0 3 32 

00 3 3 
0 G 3 4 
0 3 3 5 
0 3 3 6 
00 37 
Ou38 
0 3 39 

00 40 

0041 

OG 43 
00 4^. 
0 0 4 5 
03 46 


RESTOR 


PAGE 1 


date: Cl/27/99 


* 


NAM RESTOR 


DECK-ID M86 MSOS 5.0 


MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS OIVISION,^LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUHMARY-114^^’^^'^’-’^^- 
M360 0 002 
M86C'3uG3 
MB6G 0 U 0 V 


¥ 


RESTORE A LOGICAL UNIT THAT WAS PREVIOUSLY DOWNED »^MSOS 4.0M860pOb 
170 0 HASS STORAGE OPERATING SYSTEM VERSION 4.1 M§|?2u07 
SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA 

COPYRIGHT CONTROL DATA CORPORATION 1973 M860GUG9 


* 

V- 

V- 


THIS ROUTINE INFORMS THE 1700 OPERATING SYSTEM THAT 
ACTION HAS BEEN TAKEN TO RESTORE THE DEVICE TO AN 
OPERABLE STATE AND IT IS NOW READY FOR I/O. 


MSdGOOII 

M3600012 

M86jQ013 


OOEF 
G020 
0 0 02 
Q023 
0 033 
0 0 0 5 

pQQOG C8FE RSTR 
POOOl 4S1E 
PQ002 EOEF 
P 0 0 0 3 Q 1 56 
POOG 4 4400 X 
P0Q05 7FFF X 
POGOb 6C52 
Pu0u7 E400 X 
P00Q8 7FFF X 
P0QG9 1602 
PGOOA E815 GOGO 

PuQCB 4814 GOGOL 

POCDC ODDI 

POODD 40FF 
POGDE 5800 
PQOOF u093 
POliiO G161 
POOH 183B 


ENT 

EXT 

EXT 

EXT 


EXT 

EXT 

EXT 

EQU 

EQU 

EQU 


RSTR 

MIB,HI3X 

LOGl 

JBPROE 

MISJF 

FILE2 

LOGl A 

PRLVL (B £F) 

RPCP($20) 

LPHSK(B2) ,0NEBIT($23) ,ZR0BIT(S33) 


H860 0 015 
M 8 b j 0 0 1 3 
M8600017 
M8600Q18 
M36G 0019 
M86i002Q 
M8&30021 
M8 5 C 0 0 2 2 
M86Q0023 

M860QU24 


EQU 

ELU{5) 

NUM 

BC8FE 

3TQ^ 

SAVEPT 

LDQ- 

PRLVL 

SQN 

GDG3 

STQ 

MIB 


ENTRY POINT 
SAVE Q 

CHECK PRIORITY LEVEL 
NOT ZERO - BEING RUN AS 
CLEAR MIB FLAG 


M86ib025 
M86G0 026 
H860 0027 
M36G0028 

STAND ALONE PROG M863 G029 

M86QaQ30 


STA^ (F2) 
LDQ MI3UF 


PICK UP JOBENT MIPBUF ADDRESS 


M8600G31 

M86G0032 


JMP^ 

LDQ^ 

STQ^ 

INQ 

STQ- 

RTJ 


GOGOL 

SAVEPT 

SAVEPT 

i 

I 

ASCHEX 


MAKE Q POINT TO STATEMENT BUFFER 


SAVE POINTER TO INPUT BUFFER 
INCREMENT POINTER TU BYPASS ^R 
FIRST WORD OF BUFFER 
PASS POINTER TO ASCHEX 
GET THE LU NO 


IN 


M8600033 
M8&0 0 03 4 

114^4259*^ 

1 14^ 4259'^’^ 

M86 3 D u 4 0 


SQP RsrRi--“-i 
JMP^ ERJ04 


PRINT J04 ILLEGAL CHARACTER 


M860004i 

M8b00042 


PG012 

EC44 

RSTRl LDQ- 

(Li) 

PG013 

0104 

3AZ 

ERR 

PC014 

0 8 52 

TCQ 

Q 

P0015 

G832 

AAQ 

Q 


M8baOQ44 
M86Q 0 045 
M8&00046 
M86 J U 04? 


RESTOR 


P^GE 


OATEJ 01/27/99 


(J 

o 

o 

o 


'0 

r'l 

O 

o 

o 

o 

o 


00 47 

P0016 

OOFE 


INQ 

0 0 48 

PG017 

0 171 


SQM 

00 49 

POulB 

1834 

ERR 

JMP- 

00 5 0 

PO 019 

0 8 22 


TRA 

0051 

POCIA 

4800 


STQ 


PGOIB 

a 0 84 



00 52 

POOlC 

40FF 


STQ- 

0053 

POOlO 

0 5 0 0 


IIN 

0 05 4 

POQIE 

183C 


JMP'*'- 

00 56 



3f. 

THIS 

0 0 5 8 

POOIF 

GOOD 

SAVEPT 

ADC 

0^59 

P0020 

E8FE 

RSTR2 

L DQ-^ 

0 3 5s: 

P0021 

C201 


LDA- 

D 0 6 1 

P0Q22 

A 0 09 


ANO- 

00 62 

P0023 

eoco 


EOR 


P 0 0 2 4 

20 0 0 



0 3 53 

P0025 

E2 02 


LDQ- 

0 0 0 

PO 026 

0171 


S QM 

00 55 

P0Q27 

0FE8 


LLS 

00 56 

PQ028 

68 IE 

STORE 

STA^ 

0 0 5 7 

P0029 

54F4 

WRITE 

RT J- 

0 D 5 8 

P0Q2A 

0D2O 

PARM 

ADC 

00 5 9 

PO 02B 

00 QO 


ADC 

0 0 70 

PU02C 

GOOD 


ADC 

00 71 

P002D 

18FG 


ADC 

03 7 2 

PG 02E 

00 08 

QUANT 

ADC 

0 3 7 3 

P002F 

00 lA 


ADC 

0 3 7 4 

poasG 

L8FB 

LOP2 

LO A^ 

0 0 7 5 

P0G31 

0101 


SAZ 

0 J 76 

P0032 

18FD 


JMP^^ 

00 7 7 

PQ033 

C8F9 


LDA» 

0078 

P0034 

0121 


SAP 

00 7 9 

PQ035 

18F3 


JMP^ 

QD8 0 



jf. ^ ^ ^ 

^ ^ ^ ^ ^ ' 

GOBI 

P0036 

COEF 


LOA- 

0CS2 

P0037 

0106 


SAZ 

0C83 

P0 038 

0 8 44 


CLR 

03 3 4 

P0039 

6 4 0 Q 

X 

STA 


PG03A 

7FFF 

X 


0 3 3 5 




RELE 

0 0 35 

P003B 

54F4 



003 5 

P003C 

1901 



033 5 

P0030 

FFC3 



GO 3 7 

P&Q3E 

OCOE 

RF3A 

ENQ 

0 J S 8 

PG03F 

C4G0 

X 

LOA 


PC040 

7FFF 

X 


u J 3 9 

PJ04i 

60 FF 


STA- 


-1 

1 

ERJ04 

Q 

SAVEI 


SAVE LU NUMBER 


INHIBIT INTERRUPTS 
GO TO XI 




H86D0 U48 
M86jQ 049 
M860Q05Q 
M8600 J51 
M86QQ052 

M863 0 053 
M8630 G54 
,l'f-^M8 600055 


THIS SECTION OUTPUT LU NO RESTORcD, CLEAR MIBX, RELEASt CORE M860u057 


=X$20G0 


STORE 

8 

LU3UF 

CJ"4) 

SDOu+R^CP 

0 

0 

$13FC 

NUM 

8U- -PARM 


RESTORE POINTER TO INPUT BUFFER 

PICK OFF FIRST CHARACTER 
ADD SPACE CHARACTER TO LSB 

IF SECOND CHAR, CHECK FOR FF 


FORMAT WRITE - LU XX RESTORED 


WAIT ON THREAD 
CHECK FOR ERROR 


RF3A 

MIBX 


CHECK LEVEL 
NOT Z£R, DO 


RELEASE CORE 


CLEAR MIBX FLAG 


(RSTR-’^+l) , 1,1 


14 

JB^ROE 


INDEX TO RF3 ROUTINE IN JOB PRO 
SET UP INOIR ADDRESS 

FOR RETURN 


M86Q 0 05 9 
M86U0060 
M360u 051 
M86000&2 
M8600053 

MS 6 u 0 0 6 4 
M36 j 0 065 
M 8 6 0 0 0 6 6 
M860 0 067 
M3dJ 0 068 
M86: 0069 
M863007Q 
M36Q U 071 
M860 0 072 
Ma6Q0Q73 
M3&G 0 07 4 
M3b0 Q 075 
M363 0 075 
M8600077 
M86GQ 078 
M36G 0 079 
M860DU8Q 
M8600081 
M 8600082 
M3600083 
M860 0084 
H86Q 0085 

M8600 086 


M8600088 
^^MSOS -.OM8600Q89 

^^MSOS 4, 0M36Ci0 090 


O 

o 

C) 

o 

n 


V ; 


Q 

O 

u 

Q 

O 

O 

O 

Q 


o 


RESTOR 


PAGE 


3 


DATE: ul/27/99 


Qj30P0042QA[ii ENA i 

0091 P0Q43 14FF JMP- (I) 


INDEX TO SCHEDULE JOBPRO 
RETURN TO JO BENT 


^»HSOS 1 
»*MSOS i 


. uNSoOQ j 91 
. QM360u092 




RESTOR 


PAGE 4 


DATE: 01/27/99 


03 9 3 

PO 04-4 

2 0 4C 


BUF 

ALF 

2, LU 



M860 0 094 


P0045 

55 2 0 








ij j 9 -r 

PC046 

2020 


LUBU- 

ALF 5 

RESTORED 



H86u 0 0 9 5 


P0047 

20 52 









POO 48 

4 5 5 3 









P0049 

54 4F 









P004A 

5245 








G39y 

PQ04B 

4400 



NUM 

$4400 

CR 


M8&00 096 

0.96 


0 0 08 



EQU 

NU9 t^-BUF) 



M8630097 

0 3 97 

PQQ4C 

GOOD 


ERJ04 

LDA 

= AJP 



»^H30S 4.0M86Q0Q98 


PQ04D 

4A 5 0 








0393 

PQQ-rE 

68F5 



STA» 

BUF 

STORE 

JQ4 MESSAGE IN BUFFER 

M860Q 099 

0j99 

P004F 

COCO 



LDA 

= A04 



»^MSOS 4.QM860010G 


PQ050 

3034 








CIO 0 

P0051 

D A fJ C O 

6800 
P c c o 



3TA 

BUF + 1 



M86G0i01 

QiOl 

r J U t? c 

P0053 

r r r c 
0 A 02 



ENA 

2 

MODIFY 

LENGTH IN PARAMETER LIST 

M86Qul02 

013 2 

PO 0 54 

68D9 



5TA^ 

QUANT 



M860Q1Q3 

0103 

POD55 

1803 



JMP- 

WRITE 



M3600104 

0 1 0 H 

Pfl05b 

7FFF 

X 

LI 

ADC 

LOGl 



M86U010 5 

0 1 0 7 

PG057 

7FFF 

X 

LIA 

AOC 

L031 A 



M8630106 

UlO 6 

P0058 

7FFF 

X 

F2 

ADC 

FILE2 



' M66301Q7 

010 7 

PQ059 

0 0 00 


PDTI 

NUM 

0 



M8600108 

0109 

P005A 

CDFB 


XI 

LDA^ 

(LI) , I 

RESET 

LU DOWN BIT 

M860Q11Q 

0110 

P00 5B 

AO 40 



AND- 

ZR03IT-I-13 



M3&00111 

0111 

P005C 

A03F 



AND- 

ZROBIT4-12 

CLEAR 

MESSAGE FLAG BIT 

M8600112 

0112 

POO 60 

6 D F 8 



STA-^^ 

(LI) , I 



M86GG113 

0114 







UPDATE 

ALL TYPE 1 BITS 

M860Q115 

0116 




«■ 


I = 

INDEX 

FOR LU NO BEING CHECKED 

MS6Quil7 

Oil” 






J = 

COUNT 

OF NO OF PUTS THAT ARE SHARE 

BY LU I M8630118 

Oils 






Q = 

INDEX 

FOR SEARCH OF LOGIA TABLE 

M863G119 

0123 

P0 05E 

CCF7 



LDA^ 

(LI) 



M86G0121 

0121 

PQ05F 

60FF 


T6 

STA- 

I 



M8bCD122 

0122 

P0060 

COF5 



LOA^ 

(LI) , I 



M860 0123 

0123 

PQ061 

0FC2 



ALS 

2 



M8600124 

0124 

P00d2 

0121 



SAP 

T0-'‘-l 

IF LU 

IS DOWN 

Mab30125 

0125 

P0Q63 

18 2D 



JMP» 

T9 

GO TO 

T9 

M8600126 

0126 

P0064 

OAOG 


TO 

ENA 

0 



M86G0127 

012 7 

P0065 

683C 



STA» 

J 

RESET 

P.D.T COUNT 

M3600128 

0128 

P0066 

CDFO 



LDA^ 

(LIA) 



H363Q129 

0129 




if. 





M8600130 

0130 









N8&0Q131 

0131 


0 0 22 



EQU 

ZER0($22) 



M8600132 

ai32 


0 03B 



EQU 

HFEFF (S3B) 



H8600133 

0133 




if 





, ■ • M8600134 

Q134 

POO 67 

EDEF 



LOQ^ 

(LIA) tl 

ADR 

: OF PDT 

- M36i30135 

013 5 

P0068 

C622 



LDA- 

( Z E R 0 ) 1 Q 

FIRST WORD OF POT 

M8600136 




RESTOR 


=>AGE 5 

date: 01/27/99 


0136 

P0069 

A03B 


AND- 

HFEf^F 

CLEAR MESSAGE FLAG BIT 

M860 0137 

013 7 

PQ06A 

6622 


STA- 

(ZERO) ,Q 


M3&a0138 

0136 

PO D6B 

0 8 14 


TRQ 

A 


M860Q139 

Q139 

P0 06C 

ECE9 


LDQ^ 

(Li) 


M360 0 140 

0140 







M860Q141 

Q141 

P0060 

68EB 


STA^^ 

PDTI 

P.O.T. ADR OF LU I 

MS60 0142 

0142 

P0G6E 

4832 

T6 

STQ^ 

QSAV 


M8600143 

0143 

PQ06F 

CCE6 

T2 

LOA^ 

(LI) 

INITIALIZE LUCNT TO MAX LU 

M36u 0144 

0141- 

P007D 

680E 


3TA^^ 

LUCNT 


M8600145 

0145 

P0Q71 

CEE4 


LDA^ 

(LI) ,Q 


M36QQ146 

014 6 

P0Q72 

0FC2 


ALS 

2 


H86] 0 147 

014 7 

PQ073 

012B 


SAP 

T1---1 


M36a0i48 

0148 

P0074 

0 F 42 


ARS 

2 


M86Q0149 

014 9 

P 0075 

AO QC 


AND- 

LP^SK+IQ 


M86u0150 

Q 1 p 0 

POO 76 

a iOC 


SAZ 

T4-*-l 

LU Q IS DOWN AND HAS NO ALT 

M86Qfli51 

0151 

P0077 

0 822 


TRA 

Q 


M8b0 0 152 

0152 

P0078 

C8 06 


LOA^ 

LUDNT 


H86G 0153 

015 3 

P0 079 

0 9FE 


IMA 

-1 


M8&00154 

015 V 

PQ07A 

68 04 


STA^ 

LUC^T 


MSbOOiSS 

0 i 3 5 

P0078 

0131 


SAM 

1 


M36Q 015b 

0 1 5 o 

P007C 

18F2 


JMP^‘ 

T2 


M860Q157 

015 7 

P007D 

1806 


JMP^^ 

l4 


H3600158 

015 8 

P007E 

0 0 0 0 

LUCNF 

NUM 

0 


M8630159 

0159 

P007F 

CE07 

T1 

LDA» 

(LiA),Q 

PDT OF LU Q OR ITS ALT LU 

M36Q 0 150 

015 0 

POO 80 

9803 


SUB^ 

PDTI 

PDT OF LU I 

M86Q0161 

0161 

P0Q81 

0111 


SAN 

T4-»-l 


M8600162 

0162 

P0082 

ORIF 


RAO^ 

J 

ADD ONE TO J IF POTS MATCH 

M8600163 

016 3 

P0 0 83 

E810 

T4 

LDQ^ 

QSAV 


M86Q0154 

Q 1 0 ij. 

P 0 0 8 4 

ODFE 


INQ 

-1 


H8600155 

0165 

P0 085 

Q141 


saz 

T5-»-i 

END OF SEARCH FOR LU I 

M8600166 

Ol&D 

PQ066 

18E7 


JMP4 

T6 


M8600167 

016 7 

P0Q87 

E8 1A 

15 

LDQ» 

J 


M863 0158 

0158 

P0 088 

ODFD 


INQ 

-2 


M8600159 

016 9 

PGQ89 

0500 


IIN 

0 


M3bDG170 

017 0 

P008A 

CDCB 


LOA* 

(LI) ,I 


M86Q0171 

0171 

P008B 

AO 41 


AND- 

ZRDBITf 14 

CLEAR BIT l4 OF LOGl FOR LU I 

M3bu 0172 

0172 

P0&8C 

0171 


SQM 

T7-^-l 


M860G173 

0173 

P0080 

BO 31 


EOR« 

ONEBIT+14 

SET BIT l4, LU I IS TYPE 1 

M3600174 

0174 

PQ 08E 

60 C 7 

17 

STA + 

(LI) , I 


MB600175 

0175 

P008F 

0 400 


EIN 

0 


M863 0 17 6 

0176 

P0Q90 

CQFF 

T9 

LDA- 

I 


' H86DQ177 

017 7 

P0091 

09FE 


INA 

-1 


MS 60 0 17 8 

0176 

P0Q92 

0101 


SAZ 

TIQ 

END OF SUBPROGRAM 

M863Q179 

0179 

P0093 

18CB 


JMP» 

T8 


M86U0180 

D180 

P0094 

E80B 

TIO 

LDQ^ 

SAVEI 

LU NUMBER 

M8600181 

0131 

P0u95 

EECl 


LDQ'^ 

( LIA) ,Q 

PHYSTB ADDRESS 

M86u0i82 

0182 

P0096 

C205 


LDA- 

ELU,Q 

CHECK IF PHYSTB BUSY 

M860Q183 

0183 

PG097 

0116 


SAN 

BUSY 


■ M3&JG184 

0184 

P0C98 

C3 0 7 


LDA^ 

SAVEI 


H860Q185 

0135 

P0G99 

5 2 0 5 


STA- 

£LJ,Q 

SET PHYSTB BUSY 

M86Q0186 

0186 

P009A 

4803 


STQ» 

PDTADR 


M8630187 

0187 

P009B 

5 4 F4 


RTJ- 

($F4) 

SCHEDULE THE DRIVER 

M8600188 

0186 

P009C 

20 00 


NUM 

$20 0 0 


M860ai89 


RESTOR 


PAGE 


o 


OATES 01/27/99 


0139 P0090 QOOQ 
Q19Q P009E 1881 

0191 PU09F gouo 

0192 POOAO GOOD 

0193 PGOAl OOGO 


PDTADR ADC 0 
BUSY JMP» RSTR2 
SAVEI NUM 0 
QSAV NUM 0 
J NUM 0 


M860 0 190 
M86Q0191 
M86G0192 
M3600193 
M8630194 


019 7 



^ THIS 

IS A 

DECIMAL A! 

0199 

P0CA2 

U8Q0 

ASCHEX 

NOP 

0 

020 C 

Pfl GA3 

u AGO 


ENA 

0 

0201 

PQ0A4 

6820 


ST A^ 

TEMPI 

0202 

P00A5 

6820 


STA^ 

LEFTF 

020 3 



♦ 



Q20-+ 






Q2D5 

PD0A6 

E OFF 

NEXT 

LDQ- 

I 

02C6 



•¥■ 



020 7 

POO A7 

E622 


LDQ- 

(E22 ) , Q 

02 08 

PG0A8 

C82A 


LDA^ 

LEFTF 

02 0 9 

P00A9 

0102 


SAZ 

INCWD-*-! 

0210 

POOAA 

0F28 


QRS 

8 

0211 

POGAB 

1802 


JMP^ 

SHCHAR 

0212 

POOAC 

DOFF 

INCWD 

RAO- 

I 

0213 

PO OAD 

0 8 44 

SHCHAR 

CLR 

A 

0214 

POGAE 

UF68 


LRS 

8 

0215 

PQ OAF 

QFC8 


ALS 

a 

0216 

POGBO 

D8 22 


TRA 

Q 

0217 

POGBl 

C821 


LOA^ 

LEFTF 

u218 

PG0B2 

BO 23 


EOP- 

OMEBIT 

U219 

P0QB3 

d81F 


STA^ 

LEFTF 

G22Q 



=f- 



0221 

PQ0e4 

0 814 


TRQ 

A 

0222 

P 0 0 B 5 

BD OA 


EOR- 

$A 

02?3 

PD086 

01 IE 


SAN 

CHECK-*- 

0224 

PC 0B7 

0 AGO 

OVER 

ENA 

G 

0 22 5 

poiioa 

E819 


LOQ^ 

TEMPI 

022 6 

P0 0B9 

0FE8 


LLS 

8 

0227 

PC OBA 

OlQl 


SAZ 

OK-*-l 

022 8 

POOBB 

18QF 


JMP’^ 

ERRl 

02 29 

POOBC 

QFE4 

OK 

LLS 

4 

0 23 0 

POOBO 

0FA4 


QLS 

4 

0231 

P Q 0 BE 

4813 


STO^ 

TEMPI 

0? 32 

POOBF 

0102 


SAZ 

2 

0233 

PLOCO 

20 0 0 


MUI 

= M5A 


FOOCl 

OOOA 




0234 

PQ0C2 

83CF 


ADD* 

TEMPI 

0 2 3 5 

P00C3 

ocoo 


ENQ 

U 

0236 

POOCH 

ICDD 


JMP* 

(ASCHEX ) 


SET TEMP LOG. TO ZERO 

INITIALIZE LEFTF TO SIGNIFY THAT 1ST 
CHAR IS PICKED UP FROM RIGHT HALF OF 
WORD (COMMA IS LEFT CHARACTER) 

4 CAROS DELETED 

LOAD LEFT CHAR INDICATOR ^ 

IS CHAR FROM RIGHT HALF OF WORD 
LEFT CHARACTER 

SKIP INCREMENT OF WORD COUNT 
INCREASE WORD COUNT BY ONE ^ ^ 

SHIFT CHAR TO RIGHT 8 BITS OF A 

A AND Q CONTAINS CHARACTER^^ 

CHANGE VALUE OF LEFTF (SET=0 FOR^ ^ 
CHAR RETRIEVAL FROM RIGHT HALF OF 
WORO,=l FOR CHAR RETRIEVAL FROM LEFT 
HALF OF WORD) 

CHECK FOR $FF 

DECIMAL HEX HUMBER 

CHECK FOR OVER TWO CHARACTERS. 

COMPUTE HEX NUMBER 


A CONTAINS HEX NUMBER 
Q - NO ERROR. 

RETURN 


M8600198 

M86DG2G0 
M86QQ 201 
, M86G0202 

11 4^42 5 

M86u0203 

M860 0208 
1 14^ 425 g 4f 

1 14^ 42 5 

M86SU 210 
114 ^ 4259 *®‘**’^^^* 

114-4259’^ 

M8600215 
M36Q Q 216 
M35Qu217 

1 1 4^ 42 5 9^ *^ ^ *^ * *■ *" ^ 

M860G221 
M8630222 
M8600223 
H8530224 
M86a0 22 5 
M86 30226 
M36Q0227 
M863Q228 
MS600229 
H86Q0230 
M860Q231 
M86J 0232 
M86Q0233 

M8600234 

M86D0235 

M35Q0236 



o 


M863 0238 
M8630239 
M86u 0 240 
M363 0241 
M8600242 
M86D0243 
M360 0244 
M860 0 245 
M360 0246 
M860024?' 
M8600248 
M8600249 
M860 0 250 

114 ^ 4259 ^^^^*^^^ 

H86G0251 


O 

O 

o 

o 

o 

o 

o 

j' \ 

r'] 

■>w- 

o 

o 

o 

o 


o 

c 

o 


RESTOR 


PAGE 


8 


OATES 01/27/99 


o 


o 


C) 


o 


o 


Q U T V 

A L E N 

G E S 

DEF . LINE 

NlAME 

VALUE 

Q ooe 

I 

GOFF 

0 0 22 

3RLVL 

OOEF 

0 0 23 

RPCP 

0020 

0 02 4 

LPMSK 

00 0 2 

C 02 <4 

DNE BIT 

0023 

0 0 2 4 

ZROBIT 

0033 

0C2B 

ELU 

000 5 

0 0 9 c> 

NUH 

00 0 3 

Q131 

ZERO 

0022 

0132 

HFEFF 

0 03B 


RE'ERENCED AT 


C 0 0 0 255 ) 

0 038, 

G052, 

(000239) 

3 0 28 , 

0Q81 

(0UG032) 

0 0 68 


( 0G0Q02) 

0 0 61, 

01h9 

(000035) 

0173, 

0218 

(000051) 

0 110 , 

0111, 

(000005) 

2 182, 

0 185 

(000008) 

0072 


(000034) 

G135 , 

0137 

(000059) 

0135 



LINE NUMBER 

GtG89> 0u91» ul2i5 D176» 
0171 


G2 G5 


0212 


O 


O 

O 


O 


O 

o 

o 




o 

o 

o 

o 






O 


C' 


O 

o 

o 


f ^ 




o 


1 


RESTOR 

O 


r"‘ 

S Y H B 0 

L S 


o 

DEF. LINE 

NAME 

ADDRESS 

0015 

RSTR 

GOOD 


0034 

SOGO 

00 0 A 

o 

00 35 

GOGOl 

Ou Q B 

OC 43 

RSTRl 

ERR 

0012 


0 0 49 

G018 


0 0 58 

3AVEPT 

OOIF 


0 0 59 

RSTR2 

uG20 


0 0 6 6 

STORE 

0028 


0 0 6 7 

WRITE 

0029 


0 066 

FARM 

002A 

0 

0 0 72 

3UANT 

Q02E 

GC 7 4 

L0P2 

00 30 


0 38 7 

RF3A 

003E 


0 0 93 

3UF 

0 0 4-4 

o 

0 0 9 4 

LU3UF 

0 0 4 6 

00 97 

ERJ04 

004C 


0104 

LI 

0056 


0105 

LIA 

0Q57 


0 10 5 

F2 

0058 


010 7 

PDTI 

0059 


0 109 

XI 

O05A 


0121 

T8 

0Q5F 

o 

0126 

TO 

OOdh 

0 142 

To 

0Q6E 


0 143 

T2 

Q06F 


0158 

LUCNT 

0G7E 


0159 

T1 

0 0 7F 


0163 

T4 

00 83 


016 7 

T5 

00 87 


0174 

T7 

008E 


0 176 

T9 

0090 


0 180 

TIG 

0 0 9 4 


0189 

PDTADR 

0090 


G 19b 

BUSY 

009E 


0 191 

SA VEI 

009F 


0192 

asA V 

00 AO 


0193 

J 

OGAl 


0199 

ASCHEX 

0QA2 

0 

0 205 

NEXT 

0 0 A 6 

0212 

INCWD 

OOAC 


0213 

3HCHAR 

OOAD 


n 


O 


P4GE 9 OATES Oi/27/99 


referenc 

£U AT 

LINE NUMBER 

0 015, 
0 0 29 
0 0 33 
0 u 40 
0 0 44 

0 085 

0035, 0059 

0 0 27 , 
3 190 
0 0 64 

0 03 4, 

0 0 79 , 

0103 


00 73 , 
0102 
0 0 76 
0 0 82 

D 07 4, 

0077 

0 0 73 , 
0 0 66 

0 096, 

0098, GIGO 

OQ 41, 

0049 


0 0 43 , 

0109, 

0112, 0120, 

3 123, 
3 0 31 

0134, 

0159, 0181 

0141 , 
0054 
0179 
0124 
0166 
0155 

GloO 


014^, 

0147 

0152, 

0154 

015 0, 
0165 
0 172 
0 125 
0173 
0186 
0 133 

0157, 

0161 

0 0 51 , 

i3 18 u , 

0184 

3 142, 

0163 


0127, 

0162, 

0167 

0 0 39, 
0 249 
0209 
0211 

0236, 

02-+4 


o 


o 

■ o 

' ’v.-' 

■ o 

C) 

/’ 

o 

0i43'> 01.*tP» G17u» 0174 

( ’’i 

o 

■ o 
o 

. O 

o 

o 

o 

o 



RESTOR 

^AGE 10 



date: 

01/27/99 

D 224 

OVER 

oOB7 






0229 

OK 

ODBC 

0227 





0238 

CHECK 

00C5 

0223 





0243 

ERRl 

OOGA 

0223 , 

0 240 




0245 

CKl 

OOCC 

0 2 42 





0 250 

TEMPI 

uODl 

0201, 

0225, 

0231, 

0234, 

0245, 0248 

3 251 

LEFTF 

0002 

0 2 02, 

02GS, 

0217, 

0219 



RESTOR 


=AGE li 


DATE 


01 / 27/99 




. E X T E R 

M A L S 



■ O 

o 

OEF^LINE 

NAME 

VALUE 

REEERENGED AT LINE NUMBER 

O 


0C16 

MI3 

GOO 5 

0030 



Q 016 

MI8X 

003A 

0 084 


o 

u 1 r 

LOGl 

0 056 

3 104 

o 

0 018 

JBPROE 

0040 

0083 


00 19 

MIBUF 

00 08 

0032 



Q0 2G 

FILE2 

0 058 

0106 


o 

DO 21 

LOGIA 

0057 

0 105 

; O 

0 





r'i 


o 

0 

o 


; G 
C 
■ O 



O 

O 

O 

O 

o 


i t 


o 

o 

o 

o 

o 


I I 


o 

a L 

R ESTOR 

P H A B E T I 

CAL 

3AG 

SORT 

E 12 
0 F 

S Y M B 

DATE} 01/27/99 
0 L S 

o 

A 3 j H £- X 

0 199 

BUF 

0 G93 

BUSY 

Q 190 

CHECK 

0238 

CKl 

0245 


-7 

010 6 

FILES 

0 0 20 

GOGO 

QG 34 

GOGOl 

0035 

HFEFF 

0132 


lI 

G 10 4 

LiA 

3 105 

LEFT- 

g 251 

LOGl 

0017 

LOGIA 

0 0 21 

o 

3 

G 0 1 6 

MIBUF 

0 019 

MI BX 

0 015 

NEXT 

0205 

HUM 

0 09 6 

P3TADR 

0189 

POTI 

01D7 

PRLVL 

0 0 22 

asAv 

0192 

QUANT 

007 2 


RS TR2 

0 059 

SAVEI 

0191 

SAVEPT 

0 058 

SHCHAR 

0213 

STORE 

G 06 b 

o 

T4 

ZERO 

Qlo3 

0131 

T5 

ZROBIT 

01&7 
0 024 

T6 

0142 

T7 

0174 

T8 

0121 


o 

o 


o 

o 

n 

O 

o 

n 

D 


O 


ELU 

0025 

ERJ04 

0097 

ERR 

0049 

ERRl 

0243 

I 

0 00 0 

INCWD 

C212 

J 

0193 

JBPROE 

0 018 

L0P2 

0 07 4 

LPMSK. 

0 3 2 4 

LUBUF 

0 39 4 

LUCNT 

0158 

OK 

0229 

0NE8IT 

DQ24 

OVER 

0224 

FARM 

0 068 

RF3A 

0 087 

RPCP 

0023 

RSTR 

0015 

RSTRl 

0 043 

TQ 

012 6 

T1 

015 9 

Tlu 

0 18 0 

T2 

0 I 43 

T9 

0176 

TEMPI 

0 250 

WRITE 

0G67 

XI 

0109 


o 

o 

o 

o 

o 

o 

l''^' 

‘v.-- 

o 

o 

o 



o 


SUMMARY-110H87UU 001 
M87Q00Q2 
M8700au3 
M 8 7 j 0 0 0 *+ 


M370 0 006 

M870 0 00 8 
H873D009 
M870iiQ10 
H370 0 011 

M87J0Q13 


M8700Q15 
M3700016 
H870 0 01 7 
M37U0018 
M370 0 019 
H87U0Q20 
M870 0 021 

M8700023 
M870Q024 
M3700025 
M873 0 026 
M3700027 


M8700029 

M870Q030 

M37G0031 

M37ju032 

M37G0033 

H873003U 
M8700 056 

M8700037 
H87D0 038 


C' 

o 

o 

C) 

o 

o 

C' 

o 

© 

o 


M870G039 
M870 0 OhD 
M87Q0 041 
M87uOQ42 
M870QQ43 
H873 0 044 


O 

O 


H3700046 
M870 0 047 
MS7Q00V8 
M8700 049 


O 




RCOVER 


PAGE 2 


date: Oi/27/99 



H370 0 Q5Q 
M37Q0l)51 
M87j Gup2 
H8700a53 

M370005A 
M37QQ055 
M37Q0056 
H37DU 057 
M87GG 058 
M3700059 
H37G00&U 
M37G 0 051 
M37GG052 
M3700Q53 
M8730054 
M3 7 3 u 0 o 5 
M87Q0056 

M37 j 0 06 7 
M87000d8 

M87C0069 

M37G0070 

M37G0071 

M87D0072 

M370 0 073 
M873 0 Q7i^ 
M8700075 
M87G 0 076 
M870 0 07 7 
M37aGa7S 
M8700U79 
M3730080 
M370 0 081 
M87Q 0 082 
M3730083 
H870 0 084 
M87u 0 085 
M37S 0 086 
M37Q 0 087 
M370Q 088 
M3700089 
M370 0090 
M870Gd91 
H87Q 0092 
M87 0U 093 

M37u 0 094 
M3700095 
M370 0 096 


RCOVER 


PAGE 


3 


date: 01/27/99 



M8730U97 

M870UG98 

M3700 099 
M373 QiOO 
M37Q0101 

M87001Q2 

M87QU103 

M873010U 


M37Qul0b 
M8730107 
M37301D8 
M87001Q9 
M87Q0110 
M8700ill 
M87001i2 
M87 30113 
M870 Q114 

M3700115 
H870G11 6 
H3700117 
M8700118 


M8700120 

M8700121 

M87GC122 

M8700124 

M8700126 
H37C0127 
H87Q Q128 
H87ii0129 
M87Q 0130 
M3700131 
M87Q0132 
M37D 0135 
M370C13 h 

M37Q0135 
M87G013b 
M37 j 0137 
M8700138 
M870 0139 


o 

o 

o 

o 

V-'' 

O 

r-) 

o 

o 

C) 

o 

o 

o 

o 

o 

o 


M8700141 


RCOVER 


PAGE 


'4 


DATE; 01/27/99 


01 4A 


^jy: >/. if.;f. ^ 3f. if, jf ^ if. jf. 3fig.:f. if.jf. 


PC0C3 

PDGC4 

P00C5 

POOC6 

POOC7 

P0QC8 

PC0C9 

poecA 

PO OCB 
POOCC 
POOCD 
POOCE 


POOCF 

POODu 

POODl 

P00D2 

P00D3 

POuDA 

POODS 

P00D6 

PU0D7 

PQQD8 

P00D9 

POOOA 
POGDB 
POODC 
POODD 
PO OOE 
PUOOF 
PQOEG 
POGEl 
PCGE2 


OBuO 
EOFF 
0F61 
EA9C 
0131 
0F28 
0 8 44 
OF 68 
0FC8 
0 822 
DOFF 
1CF4 


OBOO 
OAOO 
0C04 
6A47 
0 DFE 
0 1 71 
18FC 
6841 
6841 
GA02 
60FF 

58E8 
BO OA 
0 106 
90 00 
0 0D3 
0108 
5814 
5825 
18F7 


P00E3 C834 
P00E4 09FA 
POOE5 0131 
P00E5 1818 
PQ0E7 1CE7 


P0 0E8 
P00E9 
POOEA 
P0QE8 
PQOEG 
POOEO 
POOFE 


D830 
C8 2F 
09F9 
0131 
1315 
C82A 
09FA 


NOP 0 
LDQ- I 
LRS 1 
LOQ^ IBJF,9 
SAM 1 
QRS 8 
CLR A 
LRS 8 
ALS 8 
TRA Q 
RAO- I 
JMP’f (GET) 




SIFT 


NOP 

ENA 

ENQ 

SIA^ 

INO 

SQM 

JMP» 

STA* 

STA^ 

ENA 

STA- 

RTJ-*^ 

EOR- 

SAZ 

SUB 

SAZ 

RTJ^ 

RTJ^ 

JMP^ 

LDA^ 

INA 

SAM 

JMP- 

JMP» 


COMMA RAO^ 
LDA^- 
INA 
SAM 
JMP--'- 
LDA^ 
INA 


OVER 


0 

0 

4 

BU- ,Q 

-1 

1 

SFT 

COUNT 

WGOUNr 

2 
I 

GET 

$A 

OVER-^-1 

=N$D3 

COMMA-^-1 

CHECK 

STORE 

GO 

COUNT 

-5 

1 

ERRl 

(SIFT) 

WCOUNT 

WCOUNT 

-5 

1 

ERRl 

COUNT 


LEFT OR WRITE CHAR. COUNT. 
GET BUFFER WORD. 

LEFT CHARACTER 


A AND Q CONTAINS CHARACTER 
INCREASE I CHARACTER COUNTER 




ENTRY 


ZERO OUT 5 WORD BUFFER 


ZERO OUT WORD CHAR. COUNTER 
ZERO OUT WORD COUNT, 

SET CHARACTER COUNTER 
TO TWO. 


CHECK FOR SFF 
CHECK FOR COMMA 


GET NEXT CHARACTER. 


ALL INPUT STORED IN BUF 

INCREASE WORD COUNT 

CHECK FOR MORE THAN 5 WORDS 


CHECK FOR MORE THAM 4 CHAR. 


M870Q144 


M87 j 0146 
M87Q01 h7 
M873 0148 
M370 0149 
M8700150 
M3700151 
M3 70 015 2 
M8700153 
M37j0154 
M8730155 
M37j 0156 
M8700157 

M8700159 


O 

o 

r’’i 

O 


M37Q0161 
H8700162 
M3700163 
M373 0 164 
M37S0155 
M8700166 
M8 70 016 7 
H87Q0168 
M870Qlo9 
M8700170 
M3700171 


M8700173 

• o 

H3700174 

H870Q175 


M870Q176 


M8700177 

. O 

H87C0178 


M87QQ179 


M870 0180 

o 

H87QQ182 


M87Q0183 


M87Q0184 


M3700185 

■ U 

M870 0186 


M673 0 188 


M870 0189 

o 

M8730 190 


M370 0191 


M870 0 19 2 

: O 

M8730i93 

M8700194 



O 


RCOVER 


PAGE 


o 


DATE! 01/27/99 


o 


o 

c 

n 


D 

O 

© 

© 


o 

o 


o 




0195 

POOEF 

0131 


SAM 

1 

0196 

POOFO 

1811 


JMP- 

ERRl 

0197 

PODFl 

OAOO 


ENA 

0 

0198 

P00F2 

6825 


STA- 

COUNT 

0199 

P00F3 

18E6 


JMP» 

GO 

0201 

POOF 4 

OBOQ 

CHECK 

NOP 

0 

0 2 0 2 

POOFS 

QDCF 


INQ 

“$ 3 0 

0 20 3 

POOFS 

0 814 


TRQ 

A 

020-4 

P00F7 

0161 


SQP 

1 

0 2 3 5 

PO0F8 

18Q9 


JMP*^ 

ERRl 

020 6 

P0QF9 

0DF5 


IND 

-10 

02 0 7 

POOFA 

0179 


SQM 

CKl-^- 1 

02 3 8 

POQFB 

Q9F8 


INA 

-7 

02 0 9 

PO OFC 

CD F8 


INQ, 

-7 

0210 

POOFO 

0 161 


SQP 

1 

0211 

POQFE 

18 03 


JMP-^ 

ERRl 

0212 

PO OFF 

0OF9 


INQ 

- 6 

0213 

PQIOO 

0172 


SQM 

CllA 

0214 

PGIGI 

18 0 0 

ERRl 

JMP 

ERR 


PG102 

FF2F 



HEXN 

0215 

P01G3 

081G 

CllA 

RAO^ 

0216 

POlO 4 

681A 

CKl 

STA^ 

TEMP 

0217 

P01C5 

ICEE 


JMF» 

(CHECK ) 

0219 

POlO 6 

0 BOD 

STORE 

NOP 

0 

022C 

POID 7 

E811 


LDQ^ 

WCOUMT 

0221 

P01G8 

ODFB 


INQ 

-4 

0222 

PO 109 

0153 


SQN 

STRl 

0 2 2 3 

POlO A 

C815 


LQ^* 

HEXN 

0224 

PGICB 

QlGl 


SAZ 

1 

0225 

POIOC 

18F4 


BMP’- 

ERRl 

0 22 6 

PO 10 0 

GO 04 

STRl 

INQ 

4 

022 7 

POIGE 

CA DB 


LD A^ 

BJF,Q 

0228 

POIGF 

OFCh 


ALS 

4 

0229 

POllG 

AQ16 


AND- 

$15 

0 23 0 

PGlli 

B8 GO 


EOR^ 

TEMP 

0231 

P0112 

6AQ7 


STA» 

BUF,Q 

0232 

P0113 

DSG4 


RAO^ 

COUNT 

0235 

0234 

poll 4 
PU115 

OAOO 

680A 


ENA 

STA^ 

0 

HEXN 

0236 

PC116 

ICEF 


JMP^ 

(STORE ) 

023 7 

P0117 

GOOD 

COUNT 

NUM 

$0 00 0 

0?38 

PO 118 

GOOQ 

WCQUNT 

NUM 

$0 0 0 0 

0239 

PO 119 

0 0 05 

auF 

BZS 

BU F ( 5 ) 

0240 

POllE 

0 0 00 

TEMP 

NUM 

$ 0 0 0 0 

0241 

PO IIF 

U 0 b 0 

hexn 

NUM 

0 


READ NEXT CHARACTER 

CHECK FOR UNDER $30 
CHECK OVER $39 
CHECK OVER $40 
CHECK UNDER 47 

STORE HEX DIGIT IN TEHP 
GET WORD COUNT 


HEX LU NUHBER 

GET WORD BUFFER 
SHIFT OVER 4 

ado hex digit 

INCREASE WORD COUNT 


RETURN 


char, count 

WORD count 

5 WORD HEX BUFFER OF INPUT DATA 
TEMP. STORAGE OF HEX NUMBER. 


024; 




0245 

0246 


* ENTER with BINARY NUMBER IN A 


M870 0195 
M873 0196 
M873Q197 
M8700198 
M87QQ199 


M87Q02G1 
' M8700202 

M87D0203 
M87002Q4 
M870 0205 
M3700206 
M370 0 20 7 
M87'j 0203 
Mb7a02C9 
M8700210 
M87Q0211 
H8700212 
M870Q213 
M8700214 

M87U0215 
M370 0 216 
M870u217 

M3700219 
H870022U 
M8700221 
M8700222 
M3 7 0 0 22 3 
M87G0224 
M870 0 22 5 
M873 0 22 6 
4.UM373 Q227 
M87G0226 
M8730229 
M873 0 230 
M37DG231 
M8700232 
M8730233 
M87Q 0234 
M370Q235 

MS700237 
M8700238 
M87C0239 
■ M873024D 

M8700241 

M37B 0 243 

M3700245 
M873 0 245 


O 


O 




O 


o 

o 

‘O 


G 


© 

O 

o 

o 

o 


o 


|"‘3 



RCOVER 


PAGE 


6 


DATE: 01/27/99 


02 4 7 

0248 

0249 POiZO JBQO 

0250 P012i 6818 

0251 P0122 GC03 

0252 P0123 A006 

0253 P0124 09F5 

0254 P0125 0131 

0255 P0126 0907 

0256 P0127 093A 

0257 P0128 6A0D 

0258 P0 129 0 1 45 

0259 Pfll2A DOPE 

0260 P012B C80E 
0251 P012C 0F44 
0262 P012D 680C 
0253 P012E 18F4 
0264 P012F 0FC8 
0255 P0130 8806 
0266 PQ13i E806 
0257 P0132 0FA8 
0268 P0133 F805 
0259 P0134 ICEB 

0270 P0135 0000 

0271 PQ136 COQQ 

0272 P0137 OaOO 

0273 P0138 0000 

0274 P0139 0000 

027 6 
0 2 7 8 
0280 


^ EXIT 

WITH ASCII 

CODE IN A 

* 



BIASCI 

NOP 

0 


STA^ 

WRD 


ENQ 

3 

RPT 

ANG- 

6 


INA 

-$A 


SAM 

LTIQ 


INA 

7 

LTIO 

INA 

$3A 


STA^^ 

W4,Q 


SQZ 

DONE 


INQ 

-1 


LDA^ 

WRD 


ARS 

H- 


STA^ 

WRO 


JMP^ 

RPT 

DONE 

ALS 

8 


AOD’^ 

W3 


LDQ» 

W2 


QLS 

8 


ADGP 

W1 


JMP^ 

( BIASCI) 

W4 

NUH 

0 

W3 

NUM 

G 

W2 

NUM 

0 

W1 

NUM 

0 

WRD 

NUM 

0 


AND Q 

CONVERT LOWER 4 SITS TO ASCII 

CHARACTER OR NUMBER 

IS A NUMBER 

STORE CONVERTED WORD 


» STORE SPACES IN IBUF 




0 23 2 

PO 13A 

OBOG 

SP 

NOP 

0 

0283 

P013B 

COOO 


LOA 

=N$202C 


P015C 

2020 



57 

0 2 84 

PO 130 

0C39 


ENQ 

023 5 

P013E 

6AC0 

SPl 

3TA 

IBUF,Q 


PG13F 

FF23 




028 6 

P0140 

OOFE 


INQ 

-1 

0287 

PQ141 

0171 


SQM 

1 

0288 

PQ142 

16FB 


JMP^' 

SPl 

0239 

P0143 

1CF6 



(SP) 

0290 




END 



PGM= 0144 { 324 ) COM = 0000 ( Q) DAT = OOCG t Q> 


M87QQ247 
M373 0248 
M87G0249 
■ ' H8700250 

^^MSOS 4.0H870Q251 
MSOS 4.0M370Q252 
*^MSOS 4.0M870Q253 
MSOS 4.0M87Q0254 
MSOS 4.0M37Q0255 
MSOS 4. 0M3700256 
MSOS t.0M8700257 
MSOS 4.0H37Q0258 
MSOS 4 . UM87Q0259 
MSOS 4, CM3 70 0 25 0 
MSOS 4.0M37002bl 
MSOS 4.0M370Q262 
MSOS n.0Ma700263 
MSOS 4. 0M37Q 0264 
MSOS 4,aM8700265 
MSOS 4.QH37D0266 
MSOS 4.0M3700267 
MSGS 4.0M87Q0268 
MSOS 4. QM8700269 
MSOS 4.QH370C270 
MSOS 4.GM870G271 
MSOS 4.0M870D272 
MSOS 4.0M87Q0273 
^^MSOS 4.GM3700274 

M87Q0276 

M87j 0278 

M37 00280 

M8700282 
M87G 0283 

M870G284 

M87QG285 

H873 0 28b 
M87Q0287 
M87Q0288 
M87QQ289 
M370C290 


R COVER 


p;\GE 


7 


DATES 01/27/99 


DEF.LINE -^AME 
0 C C 0 I 

o 

o 

C 

O 

O 

o 

o 

o 

o 

o 


VALUE REFERENCED AT LINE NUMBER 

uuFF (000255) 0147, 0 15 6, 0171 


o 


o 


/■' 









'"‘"A 



RCOVER 

= AGE 8 



DATE: 

31/27/99 


o 









o 

c 

3 Y H BO 

L S 







o 

o 

DEF.LINE 

NIAME 

ADDRESS 

REFEREN 

CEO AT 

LINE 

NUMBER 


c..'- 


DOl 5 

RECOVR 

000 0 

0 0 15, 

0 05 0 , 

0 0 32 





0016 

I BUF 

0063 

0 0 JL 0 f 

0 032, 

0048, 

QQ57, 

0065, 0069, 0085, 0086, 0149, 0285 


C) 

Q016 

REG 

00 0 7 

0 016, 

0 099 






0016 

ERR 

0032 

0016, 

0214 




L- 


0017 

ABI8UF 

0 0 53 

0017, 

0 033 






0017 

BUF 

0119 

0017, 

0164, 

0227, 

0 231 




0 017 

3IASC I 

0 120 

0017, 

0269 






0018 

TER MIN 

0 0 4 4 

0018 , 

0040, 

0103 





0019 

GET 

00C3 

0019 , 

0157, 

0173 





0019 

SIFT 

OOCF 

0 019, 

0186 






0 0 20 

SP 

013A 

0 0 20 , 

0289 






0 ii 21 

LUNG 

0054 

0 0 21 , 

QG35 






00 48 

REG 1 

0312 

3 0 51 







0 0 5 4 

REC2 

0019 

0 058 






( 'l 

0 0 65 

REC3 

0 u 2 0 






o 


OG69 

REC4 

0026 

3 0 67 






0 0 8 5 

REG5 

D02C 

QQ71 







a lOG 

REC6 

003D 

00 90 







b 10 4 

REG7 

C Q 4 2 

0102 







0 110 

TERM 

0048 

310 7 







Cl 118 

TER Ml 

00 51 

3115 





■ 


0 120 

F3 

0052 

00 31, 

0111, 

0113 





312 7 

WR 

0 0 5 5 

Ou 41, 

0 092, 

0128, 

0131, 

0139 



0135 

HRl 

Q05E 

0 0 94 





• U 


015 7 

WR2 

0060 

0129, 

0132 






016 4 

3FT 

0002 

0157 






(?) 

0173 

50 

u 0 0 A 

3 180, 

0199 




r~\ 


0182 

OVER 

00E3 

0175 







0188 

GOHMA 

Q0E8 

0177 







0 20 1 

CHECK 

00F4 

3178, 

0217 






D 214 

ERRl 

ulO 1 

0185 , 

0192 , 

0196, 

0 2 05, 

0211, 0225 



3215 

Cll A 

G1Q3 

3 213 







0216 

CKl 

0104 

0 207 







0219 

STORE 

aiQ 6 

J 1 79 , 

0235 






0 226 

STRl 

ulOD 

0 222 







0 23 7 

COUNT 

0117 

0168 , 

0182, 

0193, 

a 198, 

0232 

■ U 


0258 

WCOUNT 

0118 

3163, 

Q188, 

0189, 

G 220 




0 2i-u 

TEMP 

OllE 

0 216, 

0 230 





T'’) 

0 241 

HEXN 

GllF 

0 0 98 , 

0215, 

3 223 , 

0234 


r\ 


0 252 

RPT 

0123 

0263 







025b 

LTiu 

0127 

0 254 






o 









■ o 

o 









o 




















1 1 

‘**..r*‘ 


— 



. 

, 

. 



... , _ .. 



R COVER 




9 


DATES 01/27/99 



o 

o 

o 


0264 

DONE 

012F 

0 270 

W4 

013 5 

C 271 

W3 

0136 

0 272 

W2 

013 7 

0273 

W1 

0138 

3 274 

WRD 

0139 

0285 

3P1 

Q13E 


0 2 58 
0 2 57 
0 265 


0266 


0 2 68 


0 2 5Q » 


Q 288 


0 260, 


0262 


o 


o 

o 

r''\ 

9 

O 

O 

O 

o 

o 

o 


o 

o 

o 

C) 

o 

r 

o 

o 

o 

o 

o 

o 

o 


o 


ROOMER 


PAGE 10 


DATE; 01/27/99 


: X T E R 

N A L S 


9EF. LINE 

NAME 

VALUE 

3 0 23 

OMPCOR 

002 5 

00 23 

NASDMP 

002B 

0 02 4 

OUTSEL 

0043 

0 02 5 

JKIN 

004D 

0 0 2 6 

FILES 

0052 

0Q27 

SWTCH 

00 09 


REFERENCED AT LINE NUMBER 

0 0 58 
0 0 72 
QIOh 
0 114 
3 120 
0 038 



RCOVER 


PAGE 

11 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

A3IBUF 

0017 

BIASCI 

0017 

BUF 

0017 

DOME 

0 25^ 

ERR 

0 016 

ERRi 

3214 

IBJF 

G Q1 6 

JKIN 

3 025 

LTIO 

0256 

REC2 

005 4 

REC3 

0 065 

REC4 

0 069 

SI- T 

0019 

SP 

0 020 

SPl 

0 285 

TER MIN 
WRD 

0018 

0274 

W1 

0273 

W2 

0 2 72 


DATE! 01/27/99 


S Y M 

B 0 L S 

lf.Sf.Sf. 




CllA 

0215 

CHECK 

0201 

CKl 

0 216 

F3 

0120 

files 

0026 

GET 

0019 

LUNO 

0021 

HASDMP 

0023 

OUTSEL 

0024 

REG 5 

0085 

REC6 

0100 

REC7 

0104 

STORE 

0219 

STRl 

0226 

SWTCH 

0027 

W3 

0 271 

W4 

0270 

WCOUNT 

0238 


COMMA 

0188 

COUNT 

0 23 7 

OMPCOR 

0023 

GO 

0173 

HEXN 

0241 

I 

0000 

OVER 

0182 

REC 

0 016 

RECl 

0048 

RECOVR 

0015 

RPT 

0 252 

SFT 

0164 

TEMP 

0240 

TERM 

0 110 

TERMl 

0118 

WR 

0L2 7 

WRl 

013 5 

WR2 

0137 



OUTSEL 


PftGE 


1 


date: 01/27/99 



SUMMARY- 11 0M360 0001 


H880 0 0 0 3 
M38QOOOH 
Maeo 0005 


M380 0 00 7 

M88G0009 

H8800011 
M8800 012 
M88Q u Q13 
HdSQOOm- 

M88GQ015 


M3B00018 
H38u u 019 
M880 0 020 

M880 0022 
M36G0023 
M88QQ024 
M8800025 
M880 0026 

M88Q0 027 
H88Q0028 
M86;0G29 
M363 0 030 
M88C003i 
H8800Q32 
MB8uG033 
M8800a34 
M88&0035 
M3800036 
M880 0 03/ 
M88JQQ38 
M880 0 039 
H88Q0 340 
M8603j4i 
M8800042 
M88000 h3 
M360 0 04h 
M8800045 
H8800046 
M8800 947 
M883 0 048 
M88D 0 049 


O 

O 

o 


o 

o 

Q 

o 

o 

o 

o 

o 

o 


OUTSEL 


PAGE 


2 


date: 01/27/99 



o 


M880 0 050 


M880Q051 


M3830052 

o 

M3830Q53 

M88DQQ54 


H8800055 


H88D 0 058 

; 

M8 80 0 0 5 7 


M38QU058 


M88G0059 

^ o 

H8600G50 

H8800uol 

o 

M88Q0082 

M88 00053 


MS80 0 0b4 


H88GQ065 

: O 

M8800G6& 

H38Q 0 087 


M3800068 

o 

M8800070 


M8800u7i 

o 

M3800072 


M88uu073 


M8800074 

o 

M880Q076 


M88Q0078 

; O 

M880Q079 

M8830080 


M38a0 081 


M880G082 

■ 

M8 80 008 3 


H88Q 0 084 


H8800G85 


M8800088 

o 

M88a0087 

M88DQ088 



o 


o 

o 


OUTSEL 


Pi\GE 


3 


date: 31/27/99 


(-■) E3UIVALENCES 


def.line name value 


REFERENCED AT LINE NUMBER 


uuFF (0QQ255) 0025, 0031, DC38, 0043, CC49 



OUrSEL 


°AGE 


4 


date: 01/27/99 


S Y M SOLS 


DEE. LINE 

NAME 

ADDRESS 

0018 

OUTSEL 

00 0 0 

0 026 

OUT 

000 4 

■J 0 31 

OVER 

uO 0 A 

0 03 5 

OK 

OOOE 

0 D 39 

OUTl 

0012 

0 0 49 

0UT2 

QOIC 

0 0 51 

0UT3 

OQIE 

0 0 60 

ER 

0028 

0 0 61 

OUT4 

U02A 

0 0 70 

HOLD 

003 5 

0071 

NUMB 

3036 

00 73 

LOG 

0039 

Q 074 

LU 

003A 

0 0 78 

SAVE 

Q03B 


RE-ERENCEO AT LINE NUMBER 


0018 
0D30 
0 028 
0033 
0 0 50 
0 0 45 
0 G 44 
0 034, 

005 5, 

0 065 

0 058 , 

0 059 


3 0 23 , 

0039, 

0341 

3 C 36, 

0 047, 

G048 

0 0 46 
00 52, 

0G57, 

0066 

0 0 29 , 

0 087 



0086 


OUTSEL 


DATE; Oi/27/99 


o 


PAGE 5 

O 


("■) 

E X T E R 

N A L S 



o o 

!. 1 

DEF .LINE 

NAME 

VALUE 

REFERENCED AT LINE NUMBER 


0Q19 

3ET 

00 0 5 

0 0 26 



00 19 

ERR 

u029 

0 0 60 


O' 

0019 

REC 

003 4 

0 0 68 

; O 

0019 

LUNO 

0 0 3 2 

0 067 


3 0 20 

LOGIA 

002B 

0056, 0061 


o 





C 

o 





Q 

o 





O 


o 

: O 

o 

' 0 

o 

■ 

o 

o 

. r') 

Q 

o 

o 

O 

O 

o 

O 


Q 


0UT3EL 


PAGE 


o 


DATE: 01/27/99 


o 


A L 

P H A 

B E T I 

CAL 

S 0 

ER 

0060 

ERR 

0019 

GET 

NJ^B 

0071 

OK 

0 035 

OUT 

REG 

0019 

SAVE 

0 078 



i'J 

o 

o 

o 

o 

o 

(D 

O 

Q 

O 


RT OF SYMBOLS 

0019 HOLD 0070 I 0000 

0026 OUTl 0039 0UT2 0GA9 


O 


LOG 0073 LOGIA 0020 

0UT3 0051 0UT4 0351 


LU 007A LUNO 0019 

OUTSEL 0018 OVER 0031 


o 

o 

o 

o 

o 

o 

o 

Q 

o 

o 

o 

r-’ 

o 


1 


o 

o 


OGOl 
Q002 
03 0 3 
00 0 ^ 


date: Qi/ar/gg 


NAH RDHoVi+ DECK-ID M89 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


00 0 6 
00 0 8 


» PROCESS ^0 STATEMENTS FOR RECOVERY PROGRAM 


o 

u 


0310 

0311 
0012 

001-4 


^ ^»-DHHHH,HHHH 

^ AT HEXADECIMA- ADDRESS HHHH AND TERMINATING AT 
* HEXADECIMAL ADDRESS HHHH. 


OG 16 

0017 

0018 
0019 


ENT OMPCOR 
ENT O'JMPC 
ENT COREL, WLOC, STOP 
EMT COMPE, ASKWR, B 



0 0 21 
0022 
00 23 

00 2 4 

0025 

0026 
00 2 7 


EXT SWTCH 

EXT^ REC,BJF.SP,LUNO 

EXT^ SIFT.ABIBUF 

EXT» 3IASCI 

EXT’f ERR 

EXT^ TERMIN 

EXT LOGIA 


o 

0j29 

POQOO 

5800 

X OMPCOR 

RTJ 

SIFT 

POODl 

7FFF 

X 


BUF 


00 3 0 

P000 2 

C800 

X 

LOA 



POO 0 3 

7FFF 

X 


START 

0 

0031 

P000 4 

6822 


ST A^ 

00 3 2 

PGQ05 

6825 


STA^ 

WLOC 


0 0 3 3 

P 0 0 Oo 

6828 


STA^ 

COREL 


0 3 3 4 

P0 007 

OCDl 


ENQ 

1 

'v 

003 5 

POOC 8 

CAOO 

X 

LDA 

BJF,Q 



P0G09 

0 0 03 

X 

STA^ 

STOP 


0036 

POOOA 

6810 



OQ 37 

^flOGB 

0112 


SAN 

2 

o 

DQ38 

POObC 

C81A 


LDA^^ 

START 

0039 

PG u GD 

681A 


STA^ 

STOP 


0 b 4 L. 

P 0 00 E 

OC 02 


ENQ 

2 


U J 4 1 

P 0 0 u F 

GAOe 

X 

LOA 

B’JF, Q 

f'D 


POQIO 

0 0 09 

X 




GO 42 

POQll 

0102 


SAZ 

2 


0043 

P0012 

18 DO 

X 

JMP 

ERR 

o 


Pu013 

7FFF 

X 



0045 

P0014 

C800 

X 

LDA 

A3IBUF 



P0015 

7FFF 

X 




FIND START AND STOP LOCATION. 


ASS. LOC. OF IBUF 


O 



SJMMARY-110M89QG001 
M8930002 
M893U0Q3 
M89D 0 00 4 


M89a00Q6 

M890U008 

M893 0 010 
MBBOUDli 
M890 0 012 

M89D001<- 


MS900015 
M3900017 
M890 0 015 
Ma9u U 019 

M89G0021 
M8930022 
M89Q 0 023 
M89Q0024 
M8900025 
M8900 026 
M8900027 

M89C 0 029 

M890 0030 

M8900031 
M8900032 
M89GUQ33 
M893 0034 
H8900 035 

M39j 0 036 
M8900037 
M39Q G 056 
M8930039 
M890 0 040 
M390DG41 

M3900042 

M8900043 


/ \ 

V 

o 

o 

o 

o 

o 

o 

o 

V,-' 

Q 

o 

C') 

o 

o 


o 




M893 004.5 


RDMPV4 


=*AGE 


2 


DATEi 01/27/99 



00 4 6 

P 0 0 1 6 

6800 



STA 

B 

o 


P0017 

00 81 





0 J ^8 

POfllfi 

6811 



STA^‘ 

C3HPE 


00 49 

POO 19 

0 AGO 



ENA 

0 


00 5 0 

POQIA 

581Q 



STA^ 

A5KWR 

o 

0 3 5 2 

POOlB 

C80C 



LDA's'- 

STOP 


0 j 53 

POO 1C 

E80C 



LDQ^ 

WLOS 


0 0 5 ^ 

POOID 

0131 



SAM 

BNKl 

o 

u u 5 5 

POOIE 

0173 



SQM 

RETURN 

0 0 5 6 

POOIF 

016-t 


BNKl 

SQP 

NOERR 


0 J 5 7 

P0G2G 

9808 



SUB^ 

WLOC 


00 58 

PO 021 

0122 



SAP 

2 


00 59 

P 0022 

1800 

X 

RETURN 

JMP 

REC 



P00 23 

7FFF 

X 



OUMPC 


00 50 

P002w 

5808 


NOERR 

RTJ^‘ 


0u5 1 

P0025 

18FC 



JMP* 

RETURN 


G G 5 o 

P0026 

7FFF 


START 

NUM 

$7FFF 


0 J 5 4 

^0 02 7 

7FFF 


STOP , 

HUM 

$7FFF 


0 0 5 5 

P0028 

7FFF 


WLOC 

NUM 

$7 FFF 


0 0 5 6 

P0029 

7FFF 


cohpe 

NUM 

S7FFF 


00 57 

P0Q2A 

0 0 00 


A3KWR 

NUM 

$0 00 0 


0 3 5 8 

Pu u2D 

0 0 G 0 


WORDS 

NUM 

$ u 0 0 D 


0059 

P002G 

GOCO 


LWOR3 . 

NUM 

$000 0 


0G70 

Pu0 2D 

Q 0 Q 0 


SAVE 

NUM 

$0 0 0 0 


00 71 

P0 02E 

7FFF 


COREL,- 

NUM 

$7FFF 


0 373 

PQu2F 

CBCQ 


DUMPS 

NOP 

0 


0 3 74 

P Q 0 3 0 

58 GO 

X 

DUMP 

RTJ 

SP 



PQ031 

7FFF 

X 





00 76 

P0Q32 

58 70 



RT J* 

SETC 

'D 

00 7 7 

P0Q33 

6 8 64 



STA* 

8-1 

03 7 8 

P0034 

OAOl 



ENA 

1 


0 0 79 

P0035 

60FF 



STA- 

I 


0C3 0 

POG36 

C8F1 



LDA* 

WLOC 


00 8 1 

P0037 

58 00 

X 


RTJ 

BiASCI 

; 

PQ038 

7FFF 

X 



(3) , I 


00 3 2 

P0039 

60 5F 



STA* 


03 83 

P003A 

DOFF 



RAO- 

I 

O 

3-* 

P0 03B 

^D5D 



STQ* 

(B) , I 

03 85 

P003C 

U A 06 



ENA 

5 


0Q85 

P003D 

60FF 



STA- 

I 

o 

00 3 8 

P003E 

C8 79 



LDA* 

ONL 

0 0 8 9 

PQ03F 

68EB 



STA* 

WDROC 


Q J 91 

P0G40 

CCED 


DUHPl 

LDA* 

(COREL) 


0 0 9 2 
0G93 

PQQi*l 

68EB 



STA* 

SAVE 

u 

PG042 

58 0 0 

X 


RTJ 

BIASCI 



P0Q43 

0 0 38 

X 





CHECK IF START LOCATION 


GREATER THAN STOP LOCATION. 
RETURN TO PROGRAM 


FIRST LOC. TO DUMP 
LAST LOC. TO DUMP 
CURRENT WORD DUMPING. 

WORD COMPARE CHECK FLAG 
LINE COMPARE CHECK FLAG. 

HORD COUNT 
LAST WORD 

LOC. OF CURRENT WORD DUMPING. 

STORE SPACES IN BUFFER 
STORE SPACES IN BUFFER. 


SET WORD LOCATION IN BUFFER. 


SET UP NEW BUFFER COUNT 


GET WORU TO DUMP 


o 


( 


^^MSOS L.0H89G0046 


c 



M890a048 

o 


M890 0 049 
M890 0 050 

M89Q 0 052 

: O 

**MSOS 

DM3900053 


**MSOS 

4. OM390a054 


**MSOS 

4. OM3900055 

o 

**MSOS 

4. GM8900056 


M89u 0 057 
M8900U58 
M8900059 

^ o 

**MSOS 

4. uM89D Q05C 



M8900J61 

M89uu053 

o 


M89uQ064 
M890 Q 065 



M89j0Q66 

r-k 


■ MS900057 



M8900068 

M89Q0069 

M890007U 

o 


H8900a71 



M890D073 
' M390uQ74 

■ o 

**MSOS 

4. GM890 0 Q76 



M8930077 

r') 


M39-JGQ78 



M8900379 

M893a08Q 

M890QQ81 

■ C:' 


M893u082 
M893 0 03 3 
M393 0 084 

C 


M39QG085 


**HSOS 

M3900086 
4. 0M39GG088 

o 


M393 0 089 


M39Q0091 
M3 93 a 092 

o 


M89C 0 093 


c 


(■' 




RDMPV4 


PAGE 3 

00 9^ 

PQ04'4 

6D 54 

STA^ 

(B) , I 

00 95 

P0Q45 

□ OFF 

RAO- 

I 

00 9 6 

POO 46 

4052 


(3 ) , I 

0097 

P0047 

DOFF 

RAO- 

I 

00 98 

P0048 

DOFF 

RAO- 

I 

0u99 

P0049 

C8DF 

LDA^ 

COMPE 

0100 

PQ04A 

0136 

SAM 

DUMP3-^-i 

0101 

PGo4B 

0 115 

SAN 

DUMP3--»-t 

0102 

P004C 

C80F 

LOA^^ 

LWORO 

0103 

P 0 0 hD 

BCEO 

EOR- 

(COREL ) 

0104 

P 0 04E 

01 02 

SAZ 

DU4P3- '^-1 

010 5 

P 0 0 4F 

0804 

SET 

A 

010 6 

P 0 0 5 0 

6808 

STA^ 

COMPE 

0103 

POuSl 

C806 OUHP3 

LDA^ 

WLOC 

013 9 

P0052 

0103 

SAZ 

INCRE 

0110 

PQ053 

5 8 65 

RTJ^ 

FFFECH 

0111 

PG 054 

5839 

RTJ^ 

PRINT 

0112 

P0055 

1CD9 

JMP*’- 

(OUMPC ) 

0113 

PU056 

D801 INCRE 

RAO^ 

WLOC 

0114 

P0057 

D8D6 

RAO^ 

COREL 

0115 

P0058 

0802 INCRC 

RAO^ 

W0R3C 

0116 

P0059 

C8CD CHBU-F 

LDA-'*^ 

STOP 

oil ? 

Pu05A 

0122 

SAP 

OUM^3A 

0118 

PQ053 

E8CC 

LDQ^ 

WLOC 

0119 

P005C 

0163 

SQP 

QUNP3B 

012 0 

P00 5D 

93CA DUMP3A 

SUB^ 

WLOC 

0121 

P0Q5E 

ul 21 

SAP 

1 

0 122 

P005F 

131C 

JMP’- 

DUMP7 

0123 

P0060 

C8CA DUMP3B 

LDA^^- 

WORDC 

0124 

P0061 

0121 

SAP 

OUMP4- "^-1 

0125 

PGQ62 

1800 

JMP*^ 

OUMPl 

u 1 2 7 

P0063 

C8C5 0UMP4 

LDA^ 

COMPE 

0128 

P0 064 

0107 

SAZ 

DUMPS- ^-1 

0129 

P0065 

5828 

RTJ’^ 

PRIN T 

0130 

PQ06fa 

C8C6 

LDA^ 

SAVE 

0131 

POOfaZ 

6 8C4 

STA^ 

LWORO 

0132 

P0068 

0 AOO 

ENA 

0 

0133 

P0069 

68C0 

STA^ 

ASKWR 

0134 

PQQ6A 

68BE 

STA4 

COMPE 

0135 

P0Q6B 

18C4 

JHP^ 

OJMP 

013o 

PC06C 

CSBD DUMP5 

LDA4 

ASKWR 

0137 

P006D 

0121 

SAP 

0UMP6- *-l 

0138 

POO 6E 

18C1 

JMP^ 

DUMP 

0139 

POObF 

5800 X OUMP6 

RTJ 

SP 


P007U 

00 31 X 



0140 

P0071 

CGOO 

LDA 

■=NS2A2 A 


P0072 

2A2A 



0l4l 

P0073 

DC 01 

ENQ 

1 

0142 

P0074 

6E24 

STA^ 

(B) , Q 

ul43 

P00 75 

ilA02 

ENA 

2 

u 1 4-4 

P00 76 

6821 

STA^ 

B-1 


DATE: Cl/27/99 

IS COHPE SET 

CHECK LAST WORD OF PREVIOUS 
BUFFER) 

NOT EQUAL 

CHECK FOR FFFE 
TERMINATE ON FFFE 

HAVE ALL WORDS BEEN SET IN BUFFERS 
CHECK IF 10 WORDS IN BUFFER 


GET NEXT LIME 
GET NEXT LINE 


M89e 0 094 
M89Q0 095 
M89u 0 095 
Ma9Qu097 
M89Q 0 098 
M890 Q 099 
M893 OiOb 
M390ai01 
M39D&102 
0 10 3 
M890Q104 
M390 0 10 5 
M89QQ106 

’f^HSO'S ^.CMB9G0108 
^^^MSOS H-.GMB90 0 1Q9 
^^MSOS 4.QM3900iiO 
^^MSOS 4. 0M8900111 
-^MSOS 4. 0M390flli2 
--MSOS 4.0M890Q113 
-'^^MSOS 4.0M890 0 11 4 
^^MSOS 0M8900115 
^♦MSOS 4. 0M39GQ11O 
^^MSOS 4.CM8900117 
•’f^MSOS H-. CM3900 118 
»^MSOS 4.0M890Q119 
^^MSOS 4. 0M590 0 120 
M89D0121 
H8900122 
^^MSOS 4. GM8900123 
M8930124 
M89Q0125 


M890Q127 
M3900123 
M89Q0129 
M890G 130 
M890Q131 
M8900132 
M8900133 
M39D 013h 
H890Q135 
M890013D 
M390 0 13 7 
H8900138 
M890 0139 

M890 0 140 


M890Q141 

M890D142 

M8900143 

M8930i44 




RDMPV^ 


O 



0145 

PG077 

5815 



RTJ^^' 


014 5 

Pfl078 

0 804 



SET 

'C' 

01t7 

Pu079 

68 BO 



STA’'^ 

0148 

P007A 

18B5 



JMP^ 


0150 

poQ/e 

C8AD 


OUHP7 

LOA^ 

•v>-^ 

0151 

P007C 

0104 



SAZ 

0152 

P0Q7D 

CO FF 



LDA- 


015 3 

PC 37E 

5819 



STA^ 


015 4 

P007F 

580F 





0 Ip 5 

PQQ8Q 

ICAE 



JHF^ 


015 6 

POO 81 

C8 A8 


DUMPS 

LDA^ 


015 7 

PO 082 

0139 



SAM 


0158 

P00 83 

5800 

X 


RTJ 



PO 084 

0 0 70 

X 



■w' 

0159 

P 0 0 8 5 

COOG 



LDA 



P 0 0 8 fD 

2A2A 





0150 

P00 87 

uCOl 



ENQ 


0151 

P0 088 

6E10 



STA- 


0152 

3 0 0 8 9 

0 AC2 



ENA 


0153 

P008A 

58GD 



STA^ 


0154 

P 0 0 8 f3 

5802 



RTJ^ 


0155 

P00 8C 

1CA2 


OUMP9 

JMP^ 


015 7 

POOSO 

0 BOG 


PRINT 

NOP 


0158 

P008E 

C8C0 

X 


LDA 



PQ08F 

7FFF 

X 


ADD- 


Q159 

P0090 

80 2F 




0170 

P0091 

6805 



STA^ 


’ 0171 

P0092 

5 4F4 



RT J- 

■~J 

0172 

P0093 

QCOO 



NUM 



PO u 9 

QOOO 





0173 

P0095 

Q QOQ 


TH 

NUM 



P0G96 

QQOG 



HUM 

w 

u 1 7 ^ 

P0 097 

0 0 24 




017 5 

P0098 

7FFF 


B 

NUM 


0176 

P0099 

C8F8 



LOA^ 

r"'i 

0177 

P0D9A 

0101 



SAZ 

0178 

P0G9B 

18FD 





0179 

P0Q9C 

C400 

X 


LDA 



P0D9D 

7FFF 

X 


SAM 

o 

0130 

PO 09E 

0132 



0131 

PD09F 

18 0 0 

X 


JMP 



POO AO 

7FFF 

X 




0182 

POQAl 

ICEB 



JHP» 

o 

0133 

PQQA2 

OBOO 


SETC 

NOP 

013^ 

POO A3 

E8 00 

X 


LDU 



PO 0A4 

0Q8F 

X 


Loa 


018 5 

P00A5 

E600 

X 


o 


P0DA6 

7FFF 

X 


LDA- 

013d 

PD0A7 

C208 




0137 

POD A8 

0 F4B 



ARS 


PAGE 4 

DATE: 01/27/99 

PRINT 

STORE OUP. LINE ^ 

A3KWR 

DUMP 

SET DUP. LINE SWITCH. 

CONPE 

DUMP8-^-l 

I 

B-1 

PRINT 

iOUMPS ) 

A3KNR 

DUMP9-^-l 

SP 


=N$2A2 A 

STORE DUP. LINE 

1 

(B) ,Q 
2 

B-1 
PRINT 
{DUMPS ) 

PRINT BUF 
RETURN TO PROGRAM 

0 

UNO 

SET UP LOGICAL UNIT 

$2F 

TH+1 

(5F4) 

$ocoo,$oooo 

WRITE BUFFER 

$0000,50000 

35 

$7FFF 

T’H 

1 

^-2 

SWTCH 

ABSOLUTE LOG. OF IBUF 
CHECK THREAD FOR COMPLETION 

IF SWTCH POSITIVE TERMINATE 

2 

TERN IN 


(PRINT? 

0 

LUND 


LOGIA , Q 



8,Q 

11 


M890014:> 

M89i)0l4& 

M8900147 

M8900148 

M890Q 150 
M390Q151 
M8900152 
M8900153 
M89D0154 
M89DQ155 
M89U0155 
M890 U15 7 
H8900158 

M8900159 

H890015G 
M890G Ifal 
H89Q 0 152 
M893 0163 
M89Q01&H 
H39001&5 


M8933167 
H893 0158 

M39Q 0159 
M890 0 170 
M89Q 0171 
H89U0172 

M89Q0173 

M390Q174 
M8900175 
M8900176 
M8930177 
M893 0178 
M3900179 

H890 0 180 
M89Q 0131 

M890Q182 
M89G0183 
M39D 0184 

M89Q0185 

M393 0 186 
M3900187 


o 


o 

o 

o 

o 

o 

o 


o 


o 

o 

o 

c 


o 




o 

o 

o 

o 

o 


c 


o 

M390 0 188 
M890 0189 
M890 0190 
M3900191 
H8900192 
M890D193 
M8900194 
M89uQ195 
M890 019& 

M3900197 

Msgooige 
H890 0199 
M890 0 20 0 
M39Q0 201 
M390G202 
*^MSOS 4. QM890D203 
^^MSOS 4.CM89DG2D4 
^^MSOS 4. 0M3900205 

’^^MSOS 4.0M390G206 
^^MSOS 4.QM89ilu20r 
♦^MSOS 4 . uM890 0208 
^^MSOS GM890 0209 
^^HSGS 4.0M8900210 
M890 0211 

n 


O 


O 


n 


O 


u 


O 


o 


o 

o 

o 

o 


RDMPVh 


3ftGE 6 


OATEi 01/27/99 



E Q U I V 

A L £ N C E S 

n 

OE'.LINE 

NAME 

VALUE 


GOOD 

I 

uOFF 1000255) 


u 


o 

*D 

O 

o 

' ; > 

o 

o 

o 

o 

o 


RE-ERENCED AT LINE NUMBER 

QC79, 0083t 0086, 0096, 0097, 0098, 


C‘ 

c 

o 

0152 

o 

: O 
O 

o 

■ l'~'\ 

1^'. 

: 

■ r-i 

O 
: O 
O 

o 

C' 


R0MPV4 


PAGE 


7 


date: 01/27/99 



o 

o 

o 

o 

0113, 0118, 0120 

C15G ^ 

0096, 0142, 01^,4, 0153, 0161, 0163 

Q 
O 
: O 
: O 

c 
o 
: O 
o 
o 
o 

r-\ 


RDMPV^ 


PAGE 


8 


DATE! 01/27/99 


o 


; X T E R 

N A L S 


DEF .LINE 

.MADE 

VALUE 

0G21 

SWTCH 

QD9D 

0 0 22 

REG 

0 0 23 

0 0 22 

BUF 

0010 

0 022 

SP 

003 4 

0 0 22 

LUNO 

00 A 4 

3C23 

SIFT 

0 0 0 1 

0 0 23 

ABIBUF 

0015 

0 0 2 4 

BI ASCI 

00 A3 

0 0 2 5 

ERR 

0013 

0 0 2 6 

TERMIN 

QOAO 

0 G27 

LOGIA 

QQA6 


REFEREN3 

ED AT 

LINE NUH8ER 

0 179 
0 0 59 
0 030 . 

0 03 5, 

0 041 

0 0 74. 

0139, 

0158 

0 163, 

0184 


0 029 
0 045 
0 0 81 , 

Q 093 



0 0 43 
0 131 
0 185 


O 


O 

o 

o 


RDMPV^ 9 DATE! 01/27/99 


^ ^ ^ ^ 

P H A 

B E T I 

CAL 

S 0 9 T 

0 F 

S Y M 8 

0 L S 



A3I OUF 

0023 

ASKWR 

0019 

B 

0 019 

BIASCI 

00 2 A 

BNKi 

0 056 

DM^COR 

0016 

ONL 

0 202 

DNW 

0 2 01 

DUMP 

Q 0 7 

DUMPl 

0091 

QJMP5 

013 6 

DUMPS 

0139 

DUMP? 

0 150 

DUMPS 

0156 

DUMP9 

0165 

IMDRC 

ull5 

INCRE 

0113 

LESTH.M 

0 208 

LOGIA 

0027 

LUNO 

0 022 

p?r NT 

0157 

REC 

3 0 22 

RETURN 

J 0 59 

SAVE 

0 0 7 i. 

SETC 

0183 

SWTCH 

0G21 

TER MIN 

0 025 

TH 

0 173 

WLOC 

Quid 

WORDC 

0 068 


o 

o 

o 

Q 

o 

o 

o 

o 

u 

o 


o 


BUF 

0022 

CHBUFF 

0116 

COMPE 

0 019 

COREL 

0018 

■ 

; O 

DUMP3 

0108 

DUMP3A 

0120 

0UMP3B 

0123 

DUMP4 

0127 


OUMPC 

0017 

ERR 

00 25 

FFFECH 

0204 

I 

0000 


LWORD 

0 069 

NOERR 

00 60 

PR 

■ 0196 

PRA 

3198 


SIFT 

0023 

SP 

03 22 

START 

0063 

STOP 

0D18 

■ u 


o 

o 

Q 


o 

o 

o 

0 

o 

o 

o 

o 

o 

c 


HASOMP 


PAGE 


1 


date; 01/27/99 


NAM MA3DHP DECK-IO M90 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
bMALL SYSTEMS DIVISION^ LA JOLLA» CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY-ilGM9D00001 
M9000u02 
M90D 0 00 3 
M900 0004 


POODQ 
POOOl 
PO u 0 2 
P0003 
P0Q04 
P00G5 
P0QG6 
P0Qu7 
P 0 0 0 6 
POO 09 

P 0 0 u A 
POQOB 
POOOC 
PQODD 
PDOCE 
POOQF 
POOlO 
PO Oil 
P2012 
P0013 
P0014 
P0015 
P0015 
P0017 
P0013 
P0019 
POOIA 


5800 
7FFF 
0CQ4 
CAOO 
7FFF 
6AQ0 
0 0 82 
ODFE 
0171 
18F9 


C8 0D 
0 0 81 
Q822 
09EF 
0137 
09EF 
Q134 
G9EF 
0131 
0DF9 
G0F9 
0OF9 
48 76 
C8G0 X 
7FFF X 
6800 X 
7FFF X 


P0018 C0C2 
POOlC E870 
POOID 0152 

POQIE 686E 
POOIF 130F 


^ DUMP MASS STORAGE FOR RECOVERY PROGRAM 

^ THIS ROUTINE DUMPS MASS STORAGE. 

ENT MASDMP 

EXT^ SIFT, REC. ERR 

EXT^ BIASCI ,BJF,LUNO 

pT^ QJMPC,D,ASKWR,COMPE, COREL 

EXT^ WLOC,STOP,A8IBUF 

EXT LOGIA 


X MASDMP RTJ SIFT 
X 



ENQ 

4 

MO 

LDA 

bjf,q 


STA 

S1,Q 


INQ 

-1 


SQM 

MDl-^-1 


JMP4 

MO 

MDl 

LDA 

N 


TRA 

Q 


INA 

“16 


SAM 

MO 11 


INA 

-16 


SAM 

MDlll 


INA 

- 15 


SAM 

MDilll 


INQ 

-6 

MDilll 

INQ 

“6 

MOili 

INQ 

-6 

MDll 

STQ^ 

N 


LDA 

A8I8UF 


STA 

B 


LOA- 

SC2 


LDQ^ 

N 


SQN 

M02-^-l 


STA^'‘ 

N 


JHP^ 

M04 


ENTRY 

STORE INPUTED PARAMETERS 


ABS LOG OF IBBUF 


CHECK IF PARAMETER N IS A MASS 
STORAGE DEVICE. 


NO N GIVER USE STANOAPsD LIS. UNIT 


M9oaoao6 

M900 0008 

M9CQ uulO 

»^MSOS A.i^^MgOOu 012 
M9Q00013 
M90D 0 014 
M9C3 0015 
M90G0016 

M9G00018 

M900 0 019 
M9000020 

M9000321 

M9QLi0022 
M90Gli02 3 
M900Q024 

M9G0 002 6 

M9QQ0027 
M9 09 0028 
M900U029 
M903 0 030 
M9000031 
M900 3 032 
M9Q0 0 0 33 
M900 0 034 
M90GQ035 
M9DQ 0 0 36 
M9Qua037 
M9000038 

M90G 0039 


M9000041 

M90Q0Q42 

M9000043 

M9GD0 045 
M900 0 046 



r"i 



HASDMP 


PAGE 2 

date: 01/27/99 




0 3 it 7 

P0020 

G 8 74 


MD2 

EAQ 

A 


M900Q047 

' L_! 


0043 

PQ021 

0 111 



SAN 

M03-^-l 


M90D0048 


O 

0049 

P0022 

18GC 



JMP-*^ 

MDh 

N EQUALS STANDARD LIB. UNIT 

M9Q3G049 

o 

0 J p 3 

P0Q23 

CC6A 


HD3 

LDA^ 

(LOG) 

M900 0050 


0051 

PODZh 

9368 




N 


M90 3 0051 



005 2 

PO 025 

0136 



SAM 

ERRl-^-1 

NO 

M90DQ052 


r-) 

D053 

P0026 

EE67 



LDQ^ 

(LOG ) , Q 


M9Gu0053 

' o 


0 0 5 “T 

P0Q27 

C208 



LDA- 

8,Q 

STORAGE DEVICE. 

M90JD054 


0 3 5 5 

P0C26 

0FC5 



ALS 

5 

CHECK GROUP GLASS CODE FOR HASS 

M9DG0055 



00 5 6 

P0029 

AO 05 



ANG- 

5 


M9030055 


o 

0 0 5 7 

P0Q2A 

09FD 



INA 

-2 

MASS CLASS CODE = 2 

M9 0 0 0 0 5 7 

o 

0 3 5 8 

PQ02e 

0102 



SAZ 

HD 4 

IF MASK - OK, NOT - GO TO ERROR 

M3CC 0 058 


0-359 

P002C 

1800 

X 

ERRl 

JMP 

ERR 


M90 j 0 (359 




P002D 

7FFF 

X 






o 

OjdI 

P0G2E 

C85A 


MD4 

LDA-^ 

SI 

V- 

M9CQfl061 

; O 


0 0 6 2 

P002F 

E85B 



LDQ^ 

S2 


M9 U -3 0 0 5 2 



0053 

P0C30 

0151 



SQN 

1 


M9000063 


r~^ 

005-t 

P0G31 

6859 



STA^‘ 

S2 

S2=G ,SET S2=Si ^ 

M9 0 3 0 0 6 4 



0-55 

P 0 D 3 2 

G8 57 



LDA^ 

W1 


M9030Q65 

1 


0 0 5 6 

PQ033 

0111 



SAN 

1 


M90D 0 066 



0067 

P00 3 4 

D855 



RAO^ 

W1 

W1=0, SET Wl=i ^ 

M90Q0057 



0058 

P 0 0 3 5 

E856 



LDQ^ 

W2 


M9000068 

■ o 


0069 

P0 036 

0152 



SQN 

2 

¥ 

M90Q0Q69 


00 7 0 

P0G37 

0C6G 



ENQ 

95 

SET W2=96 ID ZERO ^ 

M90Q0070 



0071 

P0038 

4853 



STQ» 

W2 


M9000071 


o 

0 0 7 2 

P0039 

C84F 



LDA^ 

SI 


M900 0 072 


0-373 

P003A 

9850 



SUB^ 

S2 


Mg0G0G73 

; 4,.' 



PO G3B 

0135 



SAM 

M05-^-l 

^»^^^M9DQ 0 074 



0 0 7 5 

P0 03C 

0113 



SAN 

ERCD-^-1 

ERROR--S1 GTR S2 

^M9030075 


O': , 

0076 

P003D 

C84E 



LOA» 

W2 

V- 

M9 0-3 0 076 

' O 

00 77 

P003E 

9 8 48 



SUR^ 

Wt 

S1=S2, SO ^ 

H9Q00Q77 


Q078 

P0 03F 

0121 



SAP 

M36-^-l 

CHECK Wl AND W2 ^ 

M9Qii 0 078 



0079 

P0u40 

18EB 


ERCD 

JMP^ 

ERRl 

ERROR Wl GTR W2 ^ 

M9000 079 



00 8 0 

P 0 G 4 1 

0 AOi 


M06 

ENA 

1 


M9000080 



00 8 1 

Pflij42 

6800 

X 


STA 

C3MPE 

SET SO FIRST LINE IS PRINTED. 

M9000081 




P00 43 

7FFF 

X 








0Q32 

PO 044 

OA 00 



ENA 

0 


M900QQ82 



0083 

P0045 

6800 

X 


STA 

AS<WR 


M9GD0 083 




PO 0 4b 

7FFF 

X 







0 0 3 4 

PQQ47 

C843 


MSD 

LOA^ 

S2 

CHECK IF LAST SECTOR 

M901J 0084 



003 5 

P0048 

9840 



SUB^ 

Si 


HI9CD00a5 


o 

QCS6 

P0049 

0114 



SAN 

MSDl-'^-l 


M9G00086 

: O 


GC37 

P 0 u H A 

C841 



LDA^ 

W2 

LAST SECTOR 

M90Q 0087 


00 88 

P004B 

5 80 0 

X 


STA 

STOP 


M90 0 0 08 8 




P004C 

7FFF 

X 






o 

OJ 39 

P004D 

18 0 6 



JMP^f- 

MSD3 


M90 3 0 089 


u 0 9 C 

P0 04E 

01 21 


MSDl 

SAP 

MSD2-^-l 

CHECK IF COMPLETED. 

M9Q3009G 

; L' 


0 3 9 1 

P G fl4F 

1317 



JMP^ 

OVER 


M9fl0009i 



0Q92 

P0G5Q 

DA 60 


MSD2 

ENA 

95 

NO. OF LAST WORD TO PRINT OF SECTOR. 

M9G30092 


o 

0093 

P0Q51 

68 00 

X 


STA 

STOP 


M9000a93 

o 


P0G52 

0 0 4C 

X 






0 0 9 - 

PG053 

C836 


MS03 

LDA^ 

Wi 

FIRST WORD TO PRINT OF SECTOR 

M9CD 0094 



(J 


o 



o 


M9G0009P 

M9 00 0 095 
M9G0 0 097 
M9000098 
H9C0QO99 
M9000103 
M9000101 
M900G1G2 

M9 C 0 0 1 0 3 
M9GQQ104 
M9000105 

M9D00iij6 
M90D 0107 
M9e00108 
M90Q0109 

M9000iil 


M9090113 
M90Q 0 li 4 
H90Q011 5 

H9C0ull6 
M9a0 0117 
M9000118 

M9flOull9 

M90G0120 

M9Q0Q121 

M9G0C122 

M900 0 123 
H9000124 
H9Q0 012 5 
M9Q00126 
M90ii 0127 
M9030128 
H900Q129 
H90Q 0130 
M9 00 0 131 


O 

O 

C) 

C' 

■V-.* 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


date: 01/27/99 


HASOHP 


=>AGE 4 


0132 

P0G86 

2020 


SNOl 

NUM 

$20 20 

0133 

P0Q87 

2020 


SN02 ■ 

NUM 

$20 20 

013 5 

P0G88 

QGOG 


SI 

NUM 

$000 0 

013b 

PO 089 

GOOD 


W1 

NUM 

$0 0 0 0 

013 7 

P008A 

GO 00 


S2 

NUM 

$0 0 0 0 

0138 

PO 38B 

00 0 0 


W2 

NUM 

$u j 0 0 

G139 

PQ08C 

0 0 00 


N 

NUM 

$0 0 0 0 

0140 

P00 8 D 

7FFF 

X 

LOG 

ADC 

LOGl A 

0142 

P 0 0 8 E 

OBOO 


GETFIL 

NOP 

0 

0143 

P008F 

C8F8 



LDA^ 

SI 

0144 

PO 09 0 

680B 



STA^ 

SN2 

0145 

P0091 

C8FA 



LDA^ 

N 

L> 1 46 

P0C92 

6805 



STA» 

LJ 

0147 

P0093 

5hF4 



RTJ- 

( $F4 ) 

0148 

PO 094 

09 00 



NUM 

$0900, $0 


PO 095 

00 00 





0149 

P0096 

DO 0 0 



NUM 

$0 

015 0 

P 0 0 9 7 

0 0 0 0 


LU 

NUM 

$0 00 0 

0151 

P0098 

00 60 



NUM 

9 5 

0152 

PO 099 

0010 



ADC 

MBUF-^+5 

0153 

PGG9A 

3000 


SNl 

NUM 

$0 000 

0154 

P009B 

Q 0 Q Q 


SN2 

NUM 

$0 0 0 0 

015 5 

P009C 

C8F9 



LOA^ 

LU-1 

015o 

P0U9D 

0101 



SAZ 

1 

015 7 

PO 39E 

18FD 



JMP'" 


0158 

PU09F 

C8F7 



LDA^ 

LU 

0159 

POOAO 

0131 



SAM 

1 

0160 

POO A1 

ICEG 



JMP^- 

(GETFIL) 

0161 

P00A2 

18 0 0 

X 


JMP 

REG 


P00A3 

u 0 67 

X 




0152 




¥ 



015 4 

PO 0A4 

u 0 60 


MBUF 

p q O 
W' >*J 4%i/ 

MBJF (96) 

0155 





END 


PG-1 = 

010-4 


260) COM = 0000 { 


STARTIMG SECTOR 

FIRST WORD OF STARTING SECTOR. 

LAST SECTOR 

LAST WORD OF LAST SECTOR. 
LOGICAL UNIT NO. 


GET HASS STORAGE SECTOR TO 8E 
OUTPUTED. 


OPERATION COMPLETED WITH ERROR 
TYPE RE 


DAT = 000 0 ( 0 ) 


’^^MSOS 4, 


M9 00 0132 
M900Q133 

M9C00135 
M90D 0136 
M9GG0137 
M9000138 
M9000139 
M900 U 14U 

H9Q0 0142 
M9000143 
M9 0 0 0 i 44 
M90 3 0 14 5 
M9G0 0 l4o 
M9000147 
M90Qai48 

M9000149 
M9COG150 
M9000151 
H9C00152 
M90Q0153 
M9a00154 
M9CQ01p5 
M9G0 0156 
H9GQ 0157 
M903 0158 
M900ai59 
M90001o0 
GH9u 0 0 151 

M9000162 


M9C0 016 4 
M 9 000165 



r) equivalences 

f, DEF.LINE 'JANE VALUE REFERENCED AT LINE NUMBER 

OOQC I OOFF (000255) 

o 

o 

C' 


o 

o 

o 

o 

o 

o 

r'\ 


O 

c 

o 

o 

o 

o 

0 

1 ’l 

c 

o 

o 

C- 

o 

o 

o 

o 

o 


MASDMP PAGE 5 DATE! 01/27/99 

SYMBOLS 


OEF.LINE 

MAME 

ADDRESS 

RE- EREN 

GED AT 

LINE 

NUMBER 



DulO 

MASDMP 

00 0 0 

0 0 10 






0 0 20 

HD 

00 0 3 

0 0 24 






0 0 26 

HOI 

000 A 

0 0 23 






0035 

HOllll 

0014 

0 0 33 






0 0 3 6 

MDlll 

uOlb 

0 031 






0 037 

MOll 

OCl 6 

0 029 






0047 

H02 

0020 

0 0 43 






0 0 50 

HD3 

0023 

0 0 48 






0 0 59 

ERRl 

002C 

0 0 52 , 

0 079 





0061 

HD4 

002E 

0 0 46, 

0 049, 

0 058 




0 0 79 

ERCD 

ODhO 

QC 75 






0 0 8 0 

MD6 

U 0 4l 

00 74 , 

0 078 





3 0 8 

MSO 

0047 

3 109 






009G 

MSDl 

004E 

0 086 






0Q92 

H3D2 

0050 

0 0 90 






0 09 4 

MSD3 

0053 

0 0 89 






Qlll 

OVER 

0066 

0 J 91 






0113 

SEGNO 

0068 

0103, 

Q 13 0 





0123 

TH 

0075 

0127 






0124 

LUl 

0076 

0120 






0131 

SNO 

G07D 

0126 






3132 

SNOl 

008 6 

0116 






0133 

SN02 

0087 

0117 






013 5 

SI 

0088 

0 0 21,. 

0 061, 

0G72, 

3085, 

0108 , 

0114, 0143 

0136 

Hi 

0 0 89 

0 0 65 , 

0 C 6 / , 

0077, 

0094, 

Q107 


G 13 7 

52 

008A 

0 u 6 2 , 

0 G 6 -r, 

u u 7 3 , 

0 0 84 



0138 

W2 

QG8B 

0 0 68 , 

0 071, 

0 0 76 , 

G D67 



0139 

N 

008C 

0026, 

003 7, 

0042, 

Q C* 4 5 , 

0051, 

0145 

u 1^0 

LOG 

0 0 80 

0 0 50, 

0 053 





3142 

GETFIL 

008F 

0104, 

Q 160 





0 150 

LU 

009 7 

0145, 

015 5, 

0158 




0153 

SNl 

009A 







3154 

SN2 

U09B 

0144 






0 i b 4 

M3U F 

UOA 4 

0099 , 

0152 






MASDHP 


PAGE 


7 


date: 01/27/99 


EXTERNALS 


D£“ . LINE 

NAME 

VALUE 

referen 

0012 

SIFT 

0 0 0 1 

3 018 

0012 

REG 

00 A3 

Jill, 

0 012 

ERR 

0020 

0 0 59 

0 013 

BIASCI 

006B 

3115 

0013 

BUF 

0 0 0 4 

0 0 20 

0C13 

LUNO 

006F 

3 118 

00 1h 

OUMPC 

0061 

3 105 

001 A 

B 

GOIA 

0 0 39 

0Q14 

ASKWR 

0 0 4 o 

0 0 83 

0014 

COM PE 

0043 

0 0 81 

001^ 

COREL 

0050 

0102 

0015 

HLOC 

005 5 

0 0 95 

0 0 15 

STOP 

00 52 

0 0 88 , 

0015 

ABIBUF 

OOIB 

0 0 38 

0 C lb 

LOGIA 

uG8D 

3 140 


ED AT LINE NUMBER 
0161 


0 09 3 


MASOMP 


DATE: 01/27/99 


([ 1 

P H A 

BET 

A3IBUF 

0015 

ASKWR 

E^9 

0312 

ERRl 

MA5DHP 

0010 

MBUF 

MD^ 

0 051 

MD6 

3 1 

0135 

S2 

STOP 

0G15 

TH 


PAGE 8 


CAL 

SORT 

0 F 

0014 

3 

0 014 

0 059 

GETFIL 

0142 

0164 

HO 

0 0 20 

0 0 80 

HSD 

0 0 84 

0137 

SEGNO 

3 113 

0123 

HI 

0136 


S Y H B 

0 L S 


BIASCI 

0013 

BUF 

I 

000 0 

LOG 

MOl 

0 0 26 

MDli 

MSOl 

0090 

HSD2 

S IFT 

0012 

SNi 

H2 

0133 

WLOC 


0013 

COMPE 

0014 

0140 

LOGIA 

0016 

003 7 

MDlli 

0036 

0092 

MSD3 

0094 

015 3 

SN2 

0154 

0015 




COREL 

0014 

DUMPC 

LU 

0150 

LUl 

MOllli 

00 35 

M02 

N 

0139 

OVER 

SNO 

0131 

SNOl 


0 014 

ERCD 

0 079 

012 4 

LUNO 

0 013 

0 047 

MD3 

0D50 

0111 

REG 

0012 

0132 

SN02 

0133 




SETBPl 


PAGE 


date: 01/27/99 


I I 


O 


o 


I ) 


o 

o 

o 


o 

o 

o 

Q 

o 


OGQl 
0 0 0 2 
00 0 3 
OOQh 
Q3Q5 
00 0 6 
0 3 0 7 
0 3 0 8 


V - 

* 


HAM 3ET8R1 . OECK-ID M91 HSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISIONt LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


^ THIS PROGRAM ADDS BREAKPOINTS TO THE LIST OF CURRENT ONES 
^ IT IGNORES DUPLICATES AND CHECKS FOR PROTtCT VIOLATIONS 
^ AS WELL AS FORMAT ERRORS. 

* 


U J 

OGIO 


OOOF 

NBTS 

EQU 

OGll 





0 3 12 

POOOQ 

GOOD 

SET 

NUH 

u J 13 

POOOl 

090C 


INA 

0 3 14 

PO0D2 

6QFF 


STA- 

03 15 

P0G03 

0 8 44 


CLR 

0 316 

P00 0 4 

C.8U0 


STA 


P0005 

G08D 



0017 

P0 006 

0AG2 


ENA 

0018 

P0QG7 

5800 


STA 


P C u 0 8 

G08C 



03 19 



4- 


0 3 2 0 

P0G09 

58 77 

SETl 

RTJ^ 

0021 

? 0 0 0 A 

Q9D3 


INA 

00 2 2 

POQOB 

0108 


SAZ 

Oj 2 3 

^OuOC 

090C 


INA 

00 2-4 

POflOD 

0105 


SAZ 

0025 

POOQE 

90 00 


SUB 


POOGF 

GOOF 



0 0 2 5 

POOlO 

G1Q2 


SAZ 

00 2 7 

PQOll 

0 A u 2 


ENA 

0023 

POulZ 

1128 


JMP- 

00 29 

P0Q13 

ICEC 

SET2 

JMP^ 

0 0 3 0 



4 


G j31 

P 0 U 1 4 

G8CG 

SET3 

LDA 


P 0 u i 5 

0 07F 



CQ32 

P0016 

6800 


STA 


P0G17 

0 0 85 



OJ 33 

P0018 

530 0 


RTJ 


PO 019 

0 0 84 



0 0 3 4 

POOIA 

6879 


STA^ 

0 3 3 5 

POGIB 

5865 


RTJ- 

0u36 

POGIC 

09D4 


INA 

Q ■] 3 7 

PQulD 

011-4 


SAN 

0038 

POOIE 

58 7F 


RTJ^ 

0 3 39 

POOIF 

8874 


ADD^ 

00 40 

P0020 

6873 


STA^ 

0041 

PQ021 

18 OC 


JHF^ 

03 42 

P0022 

09FE 

SET4 

INA 

0 0 43 

Py 023 

0108 


SAZ 

0 3 4 4 

PQQ24 

u9DC 


INA 

0045 

P0025 

0111 


SAN 

00 4 6 

P002o 

18 06 


JMP^ 

0 3 4 7 

P0027 

90 0 0 

TRYF- 

SUB 


PGQ28 

uODF 




NBTS (15 ) 
0 

12 


CHAR 


GET 

-S2C 

SET3-^-i 

$C 

SET2 
= N$DF 

SET2-»-l 

2 

AO, I 
(SET) 

WO IX 

FSTRT 

HEX 

BASE 

GET 

-$2B 

3ET4-^-i 

HEX 

BASE 

BASE 

SET 6 

-1 

3ET5-^-l 

$C 

TRYFF 
SET5 
= N|OF 


MAXIMUM NUMBER OF BREAKPOINTS 


INPUT BUFFER LOCATION 


GET OELIMITOR 

SKIP ON A COMMA 
IS IT A BLANK 

IS IT A FF 

SKIP ON STATEMENT END 

FORMAT ERROR - BACK TO CONTROL PROGRAM 
DONE - RETURN 


SAVE FIELD START LOCATION 


SAVE IT 

GET OELIMITOR 

SKIP IF NOT A PLUS 
CONVERT INCREMENT 

ADD TO BASE TO GET EFFECTIVE ADDRESS 


SKIP IF COMMA 
IS IT A BLANK 


IS IT A FF 


SUMMARY-lLOMOlOOuDl 
H9 ID GOO 2 
M91000G3 
M91G0G04 
M913 000 5 
M910 QOOb 
M9 13 0 0 0 ^- 
M910 0 0 0 8 
M91Q0009 
M9ia 0010 
M910Gjii 
M9iOOQ12 
M91Q 0013 
M9100Q14 
M91Q 0 015 
M9100016 


M9100017 

M910001B 

M910 0 019 
M9100020 
H9 1 G Li 2 1 
M9130022 
M9100023 
H910 0 Q2i. 
M910G025 

H9100G26 
M91Q0027 
M913 0 028 
M913 0 0 29 
M910 0G30 
M91G 0 031 

M913U032 

M91QbG33 

M91CU 334 
M91G 0 03 5 
M91GQ 036 
M910Q037 
M91G0 Q38 
M9100 039 
M9i-j 0 040 
M9i00 041 
M9i00042 
M9100Q43 
M91Q0Q44 
M910 0 04-5 
M910 0 0 46 
M910 0 047 




O 


n 


( ) 


O 


1 ; 


O 

O 

o 

o 

o 

o 

o 


C) 


r' \ 



SETBRl 


PAGE 2 

A j 

0 0 48 

PO 029 

0 102 


SAZ 

SET5---1 


0049 

P002A 

C872 


LDA^i^ 

F5TRT 

in 

0 0 5 0 
GO 51 

P 0028 

1128 

V- 

JMP- 

40»I 


0 J 52 

P0C2C 

5349 

SET5 

RTJ^ 

BACK 


0 053 

P0G2D 

5837 

SET 6 

RTJ^ 

PCHK 

O 

0 D 5 4- 

PQ02E 

CC65 


LDA^ 

(BASE) 

0 3 5 5 

P002F 

986C 


SUB^ 

T0F3 


0 0 56 

PQ030 

Gill 


SAN 

SET7-^--l 


0G57 

P0C31 

1807 


JMP^ 

SETl 

o 

0 0 5 8 

PCQ32 

EOFF 

SET7 

LDQ- 

I 

03 59 

P0033 

0D2B 


INGi 

43 


0 0 6 Q 

P003 ^ 

4861 


STQ^ 

NUM 


QOSl 

P0G35 

OCOE 


ENQ 

NBTS-1 

o 

0 Q 6 2 

P0 0 3& 

CE5F 

SET 8 

LDA-'*^ 

(NUM) , a 

0 3 53 

P0037 

0104 


SAZ 

SET lO-^-l 


0 J 6 4 

P0038 

QDFE 


INQ 

-1 


00 6 5 

P0039 

0161 


SQP 

SET9- ^-1 


0 0 5 6 

POU 3A 

180C 


JMP^ 

SET20 

, I 

0 3 6 7 

PD03B 

18FA 

SET9 

JMP^ 

SET3 


C068 

P003G 

C857 

SET 10 

LDA^ 

BASE 


0069 

P0 05D 

6E58 


STA^ 

(NUM) ,Q 

f **v 

0J7Q 

PO 03E 

C857 


LDA^ 

NUM 


0 3 7 1 

PC03F 

0910 


INA 

NBT5 + 1 


Qj72 

P 0 0 4 0 

08 55 


STA^ 

NUM 


03 73 

PflO-rl 

CC52 


LDA- 

( BASE) 

o 

0 j 7 ‘T 

POOLE 

6E53 


STA^‘ 

(NUM) ,Q 

0375 

P00 43 

casa 


LDA^ 

TQP3 


0 0 7 6 

POO 44 

bC4F 


STA^- 

(BASE) 

n 

0077 

00 r 8 

P0045 

13C3 


JMP^ 

SETl 

0 2 7 9 

PQ046 

5801 

SET20 

RTJ^ 

^ + 1 


DCS 0 

P0047 

0 0 00 


NUM 

0 


0331 

P 0 0 48 

C8FE 


LOA^ 

SET2Q+1 


03 82 

PO 049 

0913 


INA 

POD-SET20-1 


0083 

POOLA 

680A 


STA^ 

STRT 


0 3 3 4 

P004B 

0CF8 


ENQ 

-7 


0085 

P0Q4C 

C722 


LDA- 

($22) , B 

o 

0 3 86 
0*3 8 7 

PG040 

68 05 

* 

STA^ 

VEE 


0088 

P0 04E 

5 4 F 4 


RTJ- 

($F4) 


GQ39 

PG04F 

4CQ0 


NUM 

$4C0O,0 



P005D 

OOQQ 




n' 

C Q 9 0 

PG051 

OOQQ 

THUD 

NUM 

0 


0 091 

P0 052 

0 0 0 0 

VEE 

NUM 

0,0 



P0053 

0 0 0 0 




C) 

00 9 2 

P0 054 

0 0 0 0 

STRT 

NUM 

0 

0D93 







00 9 4 

P0055 

C8FB 

SET21 

LDA^ 

THUD 


0 3 9 5 

P 0 05 b 

0101 


SAZ 

S£T22-<^-l 

O 

0D9 6 

P0057 

18FD 


JMP^ 

SET21 

0097 

P0058 

C844 

SET22 

LDA^ 

FSTRT 


0098 

P0059 

1128 


JMP- 

40,1 


date: Ui/27/99 
SKIP ON STATEMENT END 

FORMAT ERROR - 8A0K TO CONTROL PROGRAM 

BACK UP SCAN BY 1 
PROTECT CHECK 

SKIP IF NOT A BREAKPOINT ALREADY 
IGNORE IT - CONTINUE 

ADDRESS OF BPL TABLE IN Q 

INDEX TO BPL 
GET A BPL CELL 
SKIP IF EMPTY FOUND 

SKIP IF MORE LOOKING NEEDED 
FULL - PRINT DIAGNOSTIC 

STORE BREAKPOINT ADDRESS IN BPL 
BASE ADDRESS OF INST TABLE 

USER INSTRUCTION STORED IN INST TABLE 

JUMP TO BREAKPOINT STORED IN USER PROGRAM 
CONTINUE 


STARTING LOCATION OF DIAGNOSTIC 

GET OUTPUT UNIT 
STORE FOR OUTPUT 

WRITE DIAGNOSTIC 


SKIP ON OUTPUT COMPLETE 
WAIT 


M91i Q 0A8 
M91Q0a49 
M9iJ 0 090 
H9100051 
M9i00a52 
M910Q 053 
M9 10 0 054 
M9100Q55 
M9100a5b 
M9i0GQ57 
M910 0 058 
M910 0 059 
M910 u 06 C 
H910 0 051 
M910 Q 062 
M91D0063 
M91Q 0 06 4 
M913 0 065 
M910 0066 
M91 j 0 0 67 
M9100068 
M910ii 069 
M9130J7Q 
M9100 071 
M9100072 
M9130073 
M9100074 
M910QQ75 
M910uQ76 
M91G0077 
M9100Q78 
M9100079 
M910 QU8G 
M9100 081 
M910 0 382 
M910 0 083 
M910 0 C8 a 
M910 0 Q3 5 
M91QQ 086 
M910Q 087 
M91CG088 
M913 0 089 

M910D090 

M9100091 

M91Q0092 
M91G0Q93 
M9100094 
M91G0095 
M91G 0 096 
M91G0 097 
M9100098 


c: 

C 

O 

o 

o 


C) 


o 

o 

o 

o 

o 

o 


o 



o 


SETBRl 


PAGE 


3 


gate: 01/27/99 


00 9 9 








M91UUQ99 

0 1 0 u 

POO 5A 

54 4F 

POO 

ALF 

10, TOO MANY BREAKPOINTS 

M9100 100 


P005B 

4F20 








P005C 

4041 








P005D 

^E59 








P 0 0 5 E 

20 42 








P005F 

52 a5 








P0060 

414B 








P0061 

5 OAF 








P0062 

4 9 4E 








POO 63 

54 53 







013 1 








M910Q1Q1 

0102 



^ THIS 

SUBROUTINE DHEC 

KS 

THE STORE ADDRESS TO DETECT POSSIBLE 

M910G102 

010 3 



PROTECT ERRORS 



M9 10 010 3 

010 A- 



¥• 





M91001Q 4 

0105 

P0064 

0 0 GO 

PCHK 

NUM 

0 



M910010 5 

OIQ 6 

P0065 

C82E 


LDA-’ 

BASE 



M91GG106 

010 7 

P0066 

ECF7 


LDQ- 

$F7 


CHECK ADDRESS FOR ABOVE START 

M913 u 10 7 

u 1 0 3 

P00d7 

09FE 


INA 

-1 


OF UNPROTECTED 

M910 010 8 

0139 

P0068 

5852 


RTJ’^ 

CMPV4 



M91Q 0109 

0110 

P0069 

0102 


SAZ 

PCHKl 


GREATER THAN START OF UNPROTECTED 

M91Q u 110 

0111 

PO 06A 

0900 


INA 

0 



M910 0111 

0112 

P0 06B 

0107 


SAZ 

PE 


NOT IN UNPROTECTED 

M910Q 112 

0113 

P0 0 6G 

C827 

PCHKl 

LOA-^ 

BASE 



M9 10 0 11 3 

oni- 

P0C6D 

E0F6 


LDO- 

$F6 


TEST FOR LESS THAN END OF UNPROTECTED 

M9 10 0114 

ons 

POObE 

584C 


RTJ» 

CMPV4 



M910 0 11 5 

G11& 

POO 6F 

0102 


SAZ 

PCHK2 


ADDRESS IS OK 

M91Q 0116 

0117 

P00 70 

090 0 


INA 

0 



M9 10 0 11 7 

0118 

PQ071 

Gill 


SAN 

PE 


ADDRESS NOT OK, PROTECT VIOLATION 

M91 j 0118 

0119 

P0G72 

ICFl 

PCHK2 

UMP- 

(PCHK) 



M910 0 11 9 

0120 

P0073 

G829 

PE 

LDA^ 

FSTRT 



H913G12G 

0121 

P0074 

1129 


JMP- 

41, I 


GO TO PROTECT ERROR TYPEOUT 

M9100121 

0122 








M91G0 122 

0123 



^ THE 

FOLLOWING BACKS 

UP 

THE STATEMENT SCAN BY ONE CHARACTER. 

M9100123 

0124 



* 





M9 10 012 4 

0125 

PO 075 

0 0 u G 

BACK 

NUM 

0 



M91C0125 

012 6 

PC07b 

C8 1C 


LDA^ 

CHAR 



M910 0126 

0127 

P0G77 

0 115 


SAN 

BACKl-*-! 


SKIP ON CHAR > RIGHT 

M91jQ127 

0128 

P00 78 

D81A 


RAO* 

CHAR 



M9100128 

0129 

PQQ79 

C81B 


LDA* 

woix 



M9 10 0 129 

0130 

P007A 

0 9FE 


INA 

-1 



M910 0 13 0 

0131 

POu?B 

68 19 


STA* 

WOIX 



M910 0131 

0132 

P0 0 7C 

1CF8 


JMP* 

( BACK) 



M910 0 132 

0133 

P0G7D 

0 8 44 

BACKl 

CLR 

A 



M91G 0 133 

013 a 

DQQ7E 

6814 


STA* 

CHAR 


SET CHAR TO LEFT 

M9100134 

0135 

POO 7F 

1CF5 


JMP* 

(BACK) 



M91 3 0 13 5 

013 6 



A 





M913 0 13 6 

013 7 



^ THIS 

SUBROUTINE UNPACKS 

ONE CHARACTER FROM THE INPUT BUFFER 

N910Q137 

013 8 



^ AND 

RETURNS IT IN A. 



M910 0 138 

0139 








M9100139 

0140 

PCQ80 

QOOQ 

GET 

NUM 

0 



M910 D 140 

0141 

P0081 

CD13 


LOA* 

(WDIX) , I 


GET CHARACTER WORD 

M91D 0141 

0142 

P0082 

E810 


LOQ* 

CHAR 


CHARACTER FLAG G=LEFT 1=RIGHT 

M9100142 


014 3 
0144 

Ul45 

0146 

0147 

0148 

0149 
Q15G 

0151 

0152 

0153 

0154 

015 5 
015 6 

0157 

0158 

0159 
fllbO 

0151 

0152 
015 3 
015 4 

015 5 
015 6 

0167 

0168 
0159 

0170 

0171 

0172 

0173 

0174 

017 5 

0176 

0177 
0173 
0179 

018 0 
0181 
0132 
0183 
QISh 

0185 

0186 

018 7 
0188 

0189 

0190 

0191 

0192 

0193 

0194 

019 5 


SETR91 


PAGE 


date: 01/27/99 


P0083 

0151 


SQN 

GETi-^-1 

P 0 G 

OFC3 


ALS 

8 

P 0 0 6 5 

AO OA 

GETl 

AND- 

$A 

P0G86 

0144 


SQZ 

GET2-^-l 

P0 08 7 

0 8 42 


CLR 

Q 

Pu083 

48 0 A 


STQ^ 

CHAR 

POQ 89 

D80B 


RAO^ 

WDIX 

P00 8A 

1CF5 


JMP^ 

(GET) 

P00 8B 

D8 07 

GET2 

RAO^ 

CHAR 

P00 8C 

E8 08 


LOQ*^ 

WDIX 

P008D 

ODDA 


INQ 

-37 

PQ06E 

0141 


SQZ 

OFLOW-»-l 

P0G8F 

ICFO 


JHP-'^ 

(GET) 

P 0 0 9 0 

OAOO 

OFLOW 

ENA 

0 

P0Q91 

1128 


JMP- 

40,1 

P0 092 

0 0 0 1 

CHAR 

BSS 

CHAR ( 1) 

P0093 

00 01 

BASE 

8SS 

BASE(l) 

PO 094 

0 0 01 

WDIX 

BSS 

WDIX( 1) 

PG G95 

00 06 

NUM 

BSS 

NUM (6 ) 

PQ u9R 

54F3 

T0F3 

RT J- 

($F3) 

PGD9C 

0 0 01 

FSTRT 

BSS 

FSTRT (1 ) 



^ THIS 

ROUTINE CONVERTS 

P0090 

GO CG 

HEX 

NUM 

0 

PO u9E 

08 44 


CLR 

A 

P009F 

68F5 


STA^ 

NUM 

POO AO 

0 AFA 


ENA 

-5 

POGAl 

68 F4 

Jf. 

STA^ 

NUM + 1 

P00A2 

58DD 

HEX3 

RTJ^ 

GET 

P0DA3 

09CF 


INA 

-$30 

PQuA4 

0 121 


SAP 

HEX4-^-1 

PG0A5 

1812 


JMP^ 

HEXIO 

P00A6 

0 8 22 

HEX4 

TRA 

Q 

POO AV 

OOF5 


INQ 

-$A 

P 0 0 A 6 

0175 


SQM 

HEX,05-«-l 

PO0A9 

09F8 


INA 

-7 

POOAA 

0 DF8 


INQ 

-7 

PO OAB 

C17B 


SQM 

HEXlQ-'^-l 

POOAC 

QDF9 


INQ 

-o 

POOAD 

0169 


SQP 

HEXlO-^-1 

POOAE 

E8E6 

HEX43 5 

LDQ’ 

NUM 

POOAF 

0FA4 


QLS 

4 

POOBO 

0874 


EAQ 

A 

POOBl 

68E3 


STA^ 

NUM 

P0GB2 

D8E3 


RAO'^ 

NUM + 1 

P00B3 

C8E2 


LDA^ 

NUM + 1 

p 00B4 

0111 


SAN 

HEX5-^- 1 

POO B5 

1128 


JMP- 

40,1 

POO B6 

18EB 

HEX5 

JMP^ 

HEX3 

P00B7 

58BD 

HEXIQ 

RTJ^ 

BACK 


SKIP ON RIGHT CHARACTER 

UNPACK IT 
SKIP ON LEFT 

UPDATE CHARACTER FLAG 
UPDATE WORD INDEX 
RETURN 

UPDATE CHARACTER FLAG 
TEST FOR BUFFER END 

SKIP ON INPUT BUFFER END 
RETURN 


- ERROR 


CHARACTER FLAG FOR UNPACKING 0=LEFT 
BASE OR EFFECTIVE ADDRESS 
INDEX TO CURRENT BUFFER WORD 
SCRATCH ^ ^ 

ENTRY SUBSTITUTED FOR USER INSTRUCTION 
FIELD START ONOEX 

A HEX (ASCII) FIELD TO BINARY. 


INITIALIZE CONVERTED VALU: 

INITIALIZE DIGIT COUNT 

GET A CHARACTER 
UNDER $30 CHECK 
SKIP ON NUMERIC - MAYBE 
not NUMERIC 

SKIP ON DIGIT C THRU 9 


SKIP IF NON-NUMERIC 
UNDER $47 CHECK 
SKIP IF NON-NUMERIC 
CONVERTED DIGIT IN A 


PACKED DIGIT IS STORED 


SKIP IP 4 OR LESS DIGITS 

FORMAT ERROR - BACK TO CONTROL PROGRAM 

CONTINUE 

BACK UP SCAN BY ONE 


M9130143 
M9 10 01 44 
M9100145 
M9100146 
M913 0147 
M91Q Q148 
M9100149 
M9100 150 
M9100151 
M9100152 
M9100153 
H9100154 
M9 10 0 15 5 
M910 0156 
M910 0157 
M910 0158 
:RIGHTM91D0159 
M913 016 0 
M9100 161 
M9ia0162 
M9iD0153 
M9100164 
M9100165 
M9100166 
M9100157 
M9100168 
M91G 0169 
M9130 170 
M91Q 0171 
M910G172 
M9100173 
M91JQ174 
M91 j 0175 
H91Q 0176 
M910Q177 
M9100178 
M9100179 
M91UG180 
M91Q0181 
M913 0182 
M9100183 
H9100184 
M91D018 5 
M91D0136 
M9100187 
M91Q0188 
M9100189 
M910U190 
M910ui91 
M9100192 
M9100193 
M91QQ194 
M913 0 195 


SFT3R1 


PAGE 


5 


DATE: 01/27/99 


0196 P00B8 C8DG LDA^ NU'i 

0197 P00B9 1CE3 (HEX) RETURN 

Q 

o 

o 

o 

n 

O 

Q 

c 

o 

o 

o 

o 

r'l 


M9 10 019 6 
M9100197 

o 

o 

r'\ 
■ C) 

O 

o 

o 

: C 
; O 

^ o 
o 

n 

O 


SETBRi 


PAGE 


o 


DATE: 01/27/99 


c 



o 


0199 
020 0 
020 1 
02 0 2 
02D J 
020A 

0205 
020 6 

0207 POQEA OBuO 

0206 POOBB 0132 
G209 PDOBC 0165 

0210 POGBD 1808 

0211 POOBE 0173 

0212 POOBF C352 

0213 POOCO 0834 

0214 POQCl 1805 

0215 P00C2 08 52 
021o P0QC3 083it 

0217 POOC9 0121 

0218 P00C5 0804 

0219 P00C6 1CF3 

0220 




ADDRESS 



A.GT. Q 

V- 


A.EQ. Q 



A.LT.Q 

CHPV^ 

NOP 

0 


SAM 

AUPPER 


SQF 

BTHSAM 


JMP-^ 

QBIGER 

AUPPER 

SQM 

BTHSAM 


TCQ 

Q 


AAQ 

A 


JMP- 

ABIGER 

BTHS^H 

TCQ 

Q 


AAQ 

A 


SAP 

ABIGER 

QBIGER 

SET 
J M P"^ 

A 

ABIGER 

1CMPV4) 


END 



COMPARE ROUTINE 

DIFFERENCE RETURNED IN A 
A EQUAL 0 
A EQUAL SFFFF 


A IN UPPER BANK 
BOTH IN LONER BANK 
A IN LOWER. Q IN UPPER 
BOTH IN UPPER BANK 
A IN UPPER. Q IN LOWER 
GET DIFFERENCE IN A 


SUBTRACT Q FROM A 
A IS BIGGER 
Q IS BIGGER 


PGM= 00C7 ( 199) COM = 0000 ( u) OAT = 0000 { 0) 


O 

o 

o 

o 

C) 

o 

o 





o 

M910 0199 


M910020C 


M91G02Di 

' o 

M91Q0202 

M9100203 


M9100204 


M91J 0 20 5 

o 

M91uU206 

M9i: 0207 


M91Q U206 


M9130209 

o 

M9 10 0 210 

M91u02il 


H9100212 


M91Q0213 

o 

M910 0214 


M9 10 0 215 


M91D0216 


M91Q0217 

o 

H9100213 

M9iQ0219 


M9100220 



o 




■ o 


; o 


- o 


o 


■ o 


c 


o 


SET8R1 


PAGE 


7 


date: 01/27/99 


EQUIVALENCES 


DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER 

OCGO I OCFF (00G255) 0014, 0058 

0010 NBTS OOOF (000015) 0051, 0071 


3 


DATE; 31/27/99 


SET3i?l 


=>ftGE 


S Y M B 0 L S 




DEF. LINE 

NAME 

ADDRESS 

RE- ERENC 

ED AT 

LINE NUMBER 



0012 

SET 

000 C 

0 0 29 





0 0 20 

SET 1 

00 09 

0 0 57, 

0 077 




Ou 29 

SET2 

0013 

0 0 24, 

0 02 6 




OC 31 

SET3 

0014 

0 0 22 





GGL2 

3ETU 

0022 

0 Q 37 





0 0^7 

TRYFF 

0027 

0 0 45 





U0 52 

SET5 

0Q2C 

3 u 43 , 

0 G 4 6 , 

0 0 4 8 



00 53 

SET6 

002D 

0 0 41 





0 0 58 

SET7 

0 0 3 2 

0 0 56 





u i 6 2 

SETS 

0036 

0 0 67 





3 067 

SET9 

0 03B 

3 C OP 





0 0 68 

SETiO 

0G3C 

0 0 63 





00 79 

SET20 

0 0 46 

0 0 65 , 

0 081 , 

0 0 82 



Q 09G 

THUD 

0 0 51 

0 0 94 





a 0 91 

VEE 

0 0 5 2 

0 0 85 





0 192 

3TRT 

0 0 P 4 

3 0 83 





0 0 9 - 

SET21 

005 5 

0 0 96 





G09 7 

SET22 

005 8 

0 0 95 





0 luO 

POO 

0 05 A 

0 0 82 





0 10 5 

PCHK 

0 0 6 M- 

0 0 53 , 

0 119 




0 113 

PCHKl 

006C 

3110 





b 119 

PCHK2 

0072 

3 116 





3 120 

PE 

0 0 73 

3112, 

U 1 1 8 




G125 

BACK 

00 7 5 

3 0 52, 

013 2, 

0135, 0195 



3 133 

BACK! 

u07D 

0127 





D 140 

GET 

0080 

0 0 20 , 

0 035, 

015 3, G155, 

017 4 


3 1^5 

3ET1 

0 08 5 

3143 





0 151 

GET2 

008B 

Q 1 46 





015 6 

OFLOW 

00 90 

0 15h 





0159 

CHAR 

0092 

0 0 lo , 

G 126, 

ui26, 0134, 

0142, 

0 14 8 

L 160 

BASE 

0093 

0 0 34 , 

0 039, 

QQ4Q, G05-, 

0 0 6 8 , 

0 0 7 3 

0161 

WDIX 

009 4 

0 018 , 

0 031, 

0129, 0131, 

0141, 

Q 149 

0162 

NUM 

0 09 5 

0 0 60 , 

0062, 

0069, QQ70, 

0 0 7 2 , 

0 074 

3 163 

T0F3 

Q09B 

3 0 55 , 

0 07 5 




0 164 

-STRT 

009C 

0 0 32 , 

0 049, 

0097, 0120 



0168 

HEX 

009D 

0 0 33 , 

0 038, 

0197 



0174 

HEX3 

00A2 

0194 





0 178 

HEX'- 

Q0A6 

0 1 75 





0 186 

HEXhQS 

OOAE 

0 180 





0194 

HEX5 

00B6 

0192 





019 5 

HEXID 

00B7 

3 177, 

0 18 3, 

0185 




: O 
: O 
■ O 

' o 

• Q) 

^ o 

: O 
: O 

1 0151 

, GO 7b, 010 6, 0113 ■ O 

0 dl 3 2 ^ 

’ 0170, 0172, 0186, 0189, 0190, 0191, 0196 

: O 
: O 
O 


n 


( ■[ 





o 

o 


o 

o 

o 

o 

o 

o 


o 


o 


o 

o 


o 

o 

o 

o 

o 

o 

o 


SETBRi 
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DATE; 01/27/99 


v-v-v- A L 

P H A 

B E T I 

CAL 

S 0 

ABI GER 

0219 

AUPPER 

0211 

BACK 

GET 

0 140 

GETl 

3 145 

GET2 

I 

G J G Q 

N8TS 

3 010 

HUH 

Q3IGER 

3ET^ 

G213 

SET 

3 012 

SETl 

00-42 

SET5 

u 052 

SETo 

TRYFF 

0047 

VEE 

0 091 

WDIX 


OF SYHBOLS'^--^^ 


0 125 

8ACK1 

0133 

BASE 

0160 

■3151 

HEX 

0168 

HEXIO 

C195 

0 162 

OFLOW 

0 1 5 u 

PCHK 

010 5 

0 Q 20 

SETIO 

0 0 63 

SET2 

0029 

d 053 

SET 7 

0 0 5 8 

SET3 

0 06 2 


3 161 


BTHSAH 

0215 

CHAR 

0159 

CHPV4 

HEX3 

0174 

HEX-f 

Ul73 

HEX^OS 

PCHKl 

0113 

PCHK2 

0119 

PE 

SET20 

0 079 

SET21 

00 9-4 

SET22 

SET9 

0067 

STRT 

00 92 

THUD 


o 


020 7 

FSTRT 

0164 

' O 

018 6 

HEX5 

0194 


u 12 0 

POO 

010 0 


0 09 7 

SET3 

0031 


0 09 0 

T0F3 

0163 


o 


o 


QOOl 
uG02 
OQ 03 

0 j ] 4 

0 0 0 5 
0 3 0 6 
0 3 0 7 
0 3 0 8 
0 3 0 9 
0010 
0011 
Quid 
0 3 13 
00 14 
0015 
0 j lb 
0 3 17 
G. IB 
Uu 19 

0 j 2 l' 

Ou 21 

0 0 2 2 
0 3 23 
0 0 2 4 
00 2 5 
0 0 2 6 

0 3 2 7 
00 2 8 
0029 
0 3 3 0 
0031 
130 3 2 
00 3 3 
0 0 3^^ 
00 3 5 
0 3 3 6 
0337 
C.38 
03 3 9 

0040 

0041 

0042 
0 0 43 
0 j 4 

0 u 4 5 
0 0 4 6 
0 0 4 7 
'0048 
GG49 

0 0 5 0 


TERMIl 


'AGE 


DATE: 01/27/99 


NAM TERMIl DECK-ID M92 HSOS 5.u 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


-¥■ 

^ THIS PROGRAM TERMINATES BREAKPOINTS SPECIFIED VIA THE ♦TRM 
^ NO PARAMETERS IMPLIES TERMINATE ALL. 


STATEMENT. 



00 OF 

NBTS 

EDU 

NBTS (15 ) 

POOCC 

0 0 0 0 

TRM 

NUN 

0 

PO 00 i 

09 0C 


INA 

12 

P00G2 

6QFF 


STA- 

I 

PO 0C.3 

G92B 


INA 

43 

POOOh 

6859 


STA^ 

TEMP 

P Q C u 5 

0 8 44 


CL R 

A 

P 0 0 0 6 

6 8 49 


STA-^ 

CHAR 

P 0 0 0 7 

C AQ2 


ENA 

2 

P u 0 05 

68 4-C 


STA^ 

NOIX 

P0uG9 

5300 

TRMl 

RT J 

GET 

PQQOA 

0 0 7C 



-S2C 

PO QOB 

09D3 


INA 

POOuC 

0 108 


SAZ 

TRM3---1 

P 0 0 u D 

u 90 C 


INA 

^ >_/ 

POQOE 

01 05 


SAZ 

TRM? 

POOOF 

9 0 0 0 


SUB 

= N$DF 

POO 10 

OODF 



TRM2-^-l 

POOll 

0102 


SAZ 

P0012 

0 A02 


ENA 

2 

P0G13 

1128 


JMP- 

40,1 

POOl-^ 

1835 

TRM2 

JMP^ 

TRM 3 0 

P0015 

C83F 

TRM3 

LOA^ 

woix 

P0016 

68 46 


STA^- 

FSTRT 

P0017 

58 47 


RTJ->- 

HEX 

pooia 

6 83D 


STA^ 

BASE 

P0G19 

586D 


RTJ^ 

GET 

PflOlA 

09D4 


INA 

-32B 

PO ulB 

0114 


SAN 

TRM4---1 

POQIC 

5842 


RT 

HEX 

POOID 

88 38 


AOD^ 

BASE 

POOiE 

6837 


STA^ 

BASE 

'^GOIF 

18GC 


JMP^ 

TRM5 

PCa2D 

0 9FE 

TPHu 

INA 

-1 

PQuZl 

0108 


SAZ 

TRM5-^-l 

P0 02 2 

0 9 0C 


INA 

SC 

P0G23 

0111 


SAN 

TRYFF 

P 0 0 2 H 

18 0 6 


JHP^ 

TRM5 

PGG25 

9000 

TRYF- 

SUB 

= NBDF 

PO 026 

GOOF 




PQ 027 

0102 


SAZ 

TRM5-^-l 


MAXIMUM NUMBER OF BREAKPOINTS 

BUFFER LOCATION 
0PL TABLE ORIGIN 
SET CHARACTER FLAG TO LEFT 
INITIALIZE WORD INDEX TO BUFFER 
GET DELIMITOR 

SKIP IF A COMMA 
IS IT A BLANK 

IS IT A FF 

SKIP IF NO PARAMETERS (STATEMENT END) 

FORMAT ERROR - BACK TO CONTROL PROGRAM 
REMOVE ALL BREAKPOINTS 

SAVE INDEX TO FIELD START 

convert base 

SAVE IT 

GET DELIMITOR 

SKIP IF NOT A PLUS 
CONVERT INCREMENT 

EFFECTIVE ADDRESS OF BREAKPOINT 


SKIP IF A COMMA 
IS IT A BLANK 


SUMMARY-llQM9200Gai 
M920 0002 
M9200G03 
M 9 200004 
M920 GGD5 
M92CQ006 
M9200007 
M92G 0 0 0 8 
M920 0 0 0 9 
M920 OulG 
M9200 Jll 
M920 0 012 
M920Q013 
M920 0 014 
M923 u 015 
M9200uib 
M923 Q017 
H920 C 018 
M92 j 0 019 
M9230U20 
M923 0 j21 


IS IT A FF 

SKIP IF STATEMENT END 


M92C0022 
M920 0023 
M923 0 02 4 
M920Q025 
M923 0 026 

M92'0QO2 7 
H9200028 
M920QO29 
M920Q 330 
H9200G31 
H92u0032 
M9230033 
H9230054 
M920QO35 
M9Z00036 
M920QO37 
M9200038 
M92G 0039 
M920 0 ywO 
M92Q 0 U4l 
M9200042 
M9230043 
M9200044 
M920u045 
M923U046 
M9200047 
M92G0048 
M9200G49 

M92G005G 


TERMIl 


PAGE 


2 


date: fli/27/99 


0 0 51 

P 0 0 2 8 

C8 34 

TRM45 

LDA^ 

FSTRT 

0 0 5 2 

P0 029 

1128 


JMP- 

40, I 

0 0 5 3 






0 0 5 4 

PQ02A 

5851 

TRM 5 

RTJ- 

BACK 

0 0 5 5 

P 0 0 2 B 

uCOE 

TRM 6 

ENQ 

NBTS-1 

0 0 5 6 

P0 0 2G 

CE31 

TRM 7 

L DA- 

(TEMP) . Q 

0 0 5 7 

PQ02D 

9828 


SUB^ 

BASE 

0 3 5 8 

PO [}2E 

0104 


SAZ 

TRM9-^-l 

0 j 3 9 

P0 02F 

ODFE 


INQ 

-1 

0 0 5 0 

P G 0 3 0 

0 171 


SQM 

TRM8-^--l 

0 0 51 

PGU31 

18FA 


JMP^ 

TRM7 

uG5 2 

P 0 0 3 2 

18F5 

TRM 8 

JMP- 

TRM45 

00 5 3 

P0 033 

58CE 

TRM9 

RTJ^ 

TREM 

0 u 5 2 

P 0 3 3 - 

58 52 


RTJ- 

GET 

j L' 5 " 

P u u 5 

09D3 


INA 

-'$2C 

0 0 5 6 

P G 0 b D 

0109 


SAZ 

TRMll-"--! 

OuD 7 

P 0 0 3 7 

90 0 Q 


SUB 

= NSD3 


PO 038 

U GD^ 




DG 5 8 

PO b39 

01G5 


SAZ 

TRMl‘j--^-l 

G u 5 

P 0 0 3 A 

E8 19 


LDQ^ 

CHAR 

u 0 7 j 

p 0 0 3 e 

C8 19 


LDA^ 

WOIX 

0 3 7 1 

P U u B C 

0 1 51 


SQN 

TRM95-^-l 

0 3 7 2 

PC^3D 

0 9FE 


INA 

-1 

0 ] 7 S 

P0G3E 

11 28 

TRM95 

JMF- 

4 C ♦ I 

0 0 7 - 

P 0 0 3 F 

ICCO 

TRMIO 

JMP^ 

(TRM) 

G- 75 

P C u - 0 

1804 

TRMll 

JMP'- 

TRM 3 

Q 3 7 6 



V- 



OG 77 



- THE 

FOLLOWING 3UBRO 

0 3 7 3 



BPL 

INDEX 

(VIA IE HP 


FORMAT ERROR - BAOK TO CONTROL PROGRAM 

BACK UP SCAN BY ONE 
INDEX TO BPL 
GET A BPL ENTRY 

SKIP IF A CORRESPONDING ENTRY IS FOUND 

SKIP IF A CORRESPONDING ENTRY DOES NOT EXIST 

LOOK SOME MORE 

GO DO DIAGNOSTIC 

GO TERMINATE THE BREAKPOINT 

GET DELI HI TOR 

SKIP IF A COMMA 


SKIP IF STATcMENT END 


FORMAT ERROR 

RETURN 

CONTINUE 


BACK TO CONTROL PROGRAM 


C E 7 9 
u C 3 ■' 
C j31 
C lB? 
■j , 3 3 
C. 8~ 
uG 3 
0 C 8 
u u 3 7 
QC 88 
0 0 3 9 
0 0 9C 
0 -j 9 1 
Lu92 
0 G 9 
0 0 9 - 


po om 

P u u - 2 
one --3 
Pu o-p 
PQ0--5 
P 0 Cl ^ o 
PO 0^7 
P0Qi^8 


POOLO 
P 0 G A 
DCG‘-B 
P00 4C 
p 0 u i*0 
POOLE 
P 0 0 4F 
P 0 0 " 0 
PO u C 1 


u c u 0 
0 8-4 
EE lA 
GOIG 
GF18 
6C0F 
0 DEF 
IGFft 


C C u E 
CE13 
u i 02 
'68 09 
58F3 
ODFE 
0 i 71 
18F9 
iCAE 


TREM 


PO 052 b Q 01 
00053 0001 


^ THIS 

V 

TRM5] 

TRH3L 


TRM32 


TRM3 3 

3UFLOC 

CHAP 


STA- 7tEMP),Q CLEAR B°L ENTRY 

INQ NBlS+1 

LDA^ (T-MP) , Q GET USER INSTRUCTION 

3TA- (BASE) PUT IT BACK IN THE PROGRAM 

TNQ -NBTS-1 

JMP- (TREM) RETURN 

SUBROUTINE REMOVES ALL BREAKPOINTS. 


ENQ NBT3-1 
LDA--^ (TEMP),Q 
SAZ TRM32---1 
STA- BASE 
RTJ^ TREM 
INQ -1 

SQM TRM33-^— 1 
TRM31 
JHP^‘ (TRM) 

GSS BUFLOC(l) 
ESS CHAR(l) 


GET A BPL ENTRY 

SKIP IF AM EMPTY ENTRY 

REMOVE THE BREAKPOINT 

SKIP IF DONE 
CONTINUE 
DONE 

INPUT BUFFER LOCATION PLUS 2 
CHARACTER FLAG FOP UNPACKING - 




TFSHIl 


PA3£ 


0 a T r- ; 


1/ £ 7/qq 


I iM 0 E X TO C U R k t N i' R U F F ER W 0 0 
RASE OR c-’’- F ^CTi \/E AOnRFSS 
SCRATOH 

FIELD START INDEX 
HORF SCRATCH 


O 


o 


(J 


PI r 

3 

P C u b -*• 

u 0 G 1 

1-J G I X 

BSS 

'TOIX(l) 

U 1 j 


P 0 u -3 ■I’ 

Li u 0 1 

bASE 

ESS 

HASE(l) 

010 


P 0 G 3 F 

Ou C6 

MUM 

CSS 

HUM (5 ) 

OIL 

6 

P u u 5 C 

G C Cl 

FSTRT 

ess 

FSTRT (1 ) 

U 1 L 

■TT 

< 

P G 0 5 n 

u u 0 1 

TEHP 

RSS 

TEMP( 1» 


o 


o 

o 

o 

o 

o 

o 


i""') 


HTEC J i J o 
M T ? j u i 0 
MR 2 j LI 1 C E 
M9 20 u 10 6 
H92 J G 1 J 7 



O 

O 

O 

O 

o 


TFRMIl 


^AGE 


DATE: 01/27/99 


4 


ul G 9 



* 



OllQ 



^ THIS 

ROUTINE CONVERTS A 

0111 






3112 

P0G5E 

u u 0 0 

HEX 

NUM 

0 

ull 3 

PO 05F 

0 8 -4 


CLR 

A 

Gll- 

POuBO 

68F5 


STA'^ 

NJM 

u 11 :> 

P 3 0 61 

0 A FA 


ENA 

- 5 

J 11 G 

D Q 0 G 2 

6 8 F 4 


STA- 

NUM + 1 

u 1 1 7 






u 1 1 rt 

P i3 u to 3 

5823 

HEX 3 

RT 

GET 

0119 

PDOb- 

C9CF 


INA 

-$3 0 

C 120 

P 0 0 o 5 

0 121 


SAP 

HEX4-^-1 

0121 

PO 066 

1812 


JHP^ 

HEXIO 

0122 

PO 067 

0 6 22 

HEX4 

TRA 

Q 

012 3 

P0C68 

0DF5 


INQ 

-$A 

012-- 

PO 069 

017 5 


SQM 

HtiX — 0 ^ — — j_ 

G125 

PGGfaA 

G9F8 


INA 

-7 

012fa 

PO 063 

0OF8 


INO 

-7 

0127 

P Q 0 6C 

017E 


SQM 

HEX 10 -"^-1 

0126 

PO 06D 

0DF9 


INQ 

- 6 

0 129 

PO 36E 

01 g9 


SOP 

HEXi0-^--l 

013C 

P 0 C 6 F 

L8E5 

HEX^D 5 

LOQ- 

NUM 

0131 

D 0 C 7 1 

0FA4 


QLS 

4 

0132 

PQ071 

0 8 74 


FAQ 

A 

013 3 

PG 072 

68E3 


STA^^ 

NUM 

1 3 

P 0 0 i’ 3 

f3 8E3 


RAO- 

NUM + 1 

Cl 3b 

P 0 0 7 

C8E2 


LDA-'^ 

NlJM + 1 

0 1 3 

- 0075 

Gill 


SAN 

H E X 5 - - - 1 

Q1 i 7 

F G u b 

1 8 B1 


JM P- 

T R N 4 5 

u 13 ’5 

P 0 a 7 7 

1 fl b B 

HtiXb 


HEX 

013 9 

PG073 

58D3 

HFXi; 

RTJ-> 

BACK 

U 1 -r 0 

P 0 0 7 9 

C8DC 


LDA--^ 

NUM 

0 i 4 1 

PuO 7A 

1 CE3 


JKP- 

(HEX) 

Ci-2 






0143 



the 

FOLLOWING BACKS UP 

G 1 4~ 






01-5 

H 0 07H 

J U ij 0 

BACK 

NUM 

0 

G 1 H o 

P Q a 7 C 

C806 


LDA^ 

CHA R 

0147 

PQG7D 

0 115 


SAN 

BAC<i-'‘-l 

Gl48 

P G 0 7 E 

08Dh 


RA 0^ 

CHAR 

0149 

P0 0 7F 

C8U4 


LDA^ 

WDIX 

u 1 5 0 

P 0 0 8 0 

09FE 


INA 

-1 

u 1 5 1 

P0 0 81 

68U2 


STA^ 

WDIX 

G 1 5 2 

PO j62 

1CF8 


UMP^^ 

(BACK) 

C 1 5 3 

PC0o3 

0 8 -4 

IIACKI 

CLR 

A 

015 4 

P 0 0 8 4 

63CE 


ST A^ 

CHAR 

L, 1 5 7 

P u 0 8 5 

1CF5 


JMP- 

(BACK) 

G 1 5 o 



jf- 



0 1 5 7 



^ THIS 

SU RROUTINF UNPACKS 

015 8 



V- 



0 1 b 9 

P 0 L) 8 b 

b U G 0 

GET 

NUM 

0 

C 1 O 

PGG87 

cncc 


LDA"- 

{WDIX) ^ I 

0151 

P0 0 88 

E8CA 


LOQ^^ 

CH^R 


HEX (ASCII) FIELD TO BINARY. 


INiTIALIZc CON\/tRTEn VALUE 

INITIALIZE DIGIT COUNT 

GET A CHARACTER 
UNDER SCO CHECK 
SKIP ON NUMERIC - MAYBE 
NOT NUMERIC 


SKIP ON DIGIT 0 THRU 9 


SKIP IF NON-NUMERIC 
UNDER $97 CHECK 
SKIP IF NON-NUMERIC 
CONVERTED DIGIT IN A 


PACKED uIGIT IS STORrU 


SKIP IF T OR Lt SS DIGITS 

FORMAT ERROR - OwCK TO CONTROL PROGRAM 

CONTINUE 

BACK UP SCAN bY OlfF 
RETURN 

THP STATEMENT SCAN BY ONE CHARACTER. 


SKIP IF ON RIGHT CHARACTER 
SET RIGHT CHARACTER 

REDUGt- WORD INDEX BY ONE 


SFT TO uEFf CHARACTER 

1 CHARACTER FROM INPUT HUFFEP. RETURNS 


CHARACTER WORD 
CHARACTER FLAG 0=Ll-.Fi 


1=RIGHT 


IN A, 


M920 OIG 9 
M920G110 
M920 Gill 
M92CG112 
M92Q Q 113 
M920 G 11^^ 
M 9 2 j u 1 1 !> 
M92Jullb 
M9 2G Q 11 7 
M920G11L 
M92j j 119 
M92GG12G 
M92d G121 
H9200122 
M9200123 
M92 j 0124 
M92u 012 5 
M9200126 
M920 0127 
M92iai26 
M920G129 
M9 2G 0 13 0 
M92JU131 
M9200132 
H92uQ133 
M9 20 013 9 
H 9 2 j u 1 3 ? 
M320G 13b 
M9200137 
H9 23 0 13 8 
H 9 2 3 0 13 9 
H923 y ILC 
M92u01-fi 
M92G 0 192 
H92 3 u I h 3 
M320 0 144 
M923G145 
M923I31L6 
H92C 0197 
M923 0148 
M92C 0149 
M92j 0 IbO 
M9200151 
M92G G 152 
H92C0i53 
H 9 2 3 3 i 5 T 
M 9 2 G 0 1 5 5 
M 3 2 3 0 1 5 o 
M9 23 0157 
M92 0 0 13 8 
M923 G 159 
M3 2 3 QibO 
M92 j G 161 


o 

o 

o 

(j 

o 

o 




TFRHIl 


PAGE 

0162 

P0 089 

G 151 


SON GET1---1 

0163 

P008A 

CFC8 


ALS 8 

016^ 

PGQ8B 

AO QA 

GETl 

AND- £A 

j 1 6 6 

Pu C8C 

0 1 A-A 


5GiZ GETE-^^-l 

u 1 b c 

P G 0 3 D 

oa ^2 


C L R (0 

016/ 

P 0 u 8 F 

-4. a CA. 


STQ- CHAR 

0163 

POOBF 

98 C4 


RAO^ WDIX 

ul69 
017 0 

01 7 i 

PCG9^ 

1GF5 


JMP-^ (GET) 

P 0 0 91 

D 8 C 1 

G E T 2 

RAO-^ CHAR 

ol72 

PG092 

E3C1 


LDQ- WOIX 

0173 

PQu9 3 

CD DA 


INQ -37 

017-, 

POOP- 

u 1 Ai 


SQ2 OFLON-^-1 

j 1 7 .> 

POOP 6 

1 C F 0 


JHP- (GET) 

Q 1 7 o 

o96 

CACQ 

OFLOW 

ENA a 

u 1 7 7 

P0G97 

1128 


JMP- 40,1 

017 8 




END 

PGN = 

0098 

1 , 152) C 

0 M = 0 0 0 u ( 


DATES Gl/27/99 

SKIP IF RIGHT CHARACTER 
UNPACK 

SKl° IF LEFT CHARACTER 

SET TO LEFT CHARACTER 
GO TO NEXT BU-FFR WORD 
RETURN 

SFT TO RIGHT CHARACTER 
TEST FOR DUFFER END 

SKIP IF PAST BUFFlR ENO 
PRINT DIAGNOSTIC 

DAT — U'_uo ( u) 


o 


I._.) 

o 


o 


o 

o 

o 


M92G 0 16 2 
M920G163 
M923 0 164 
N92D0155 
M92 j 0 166 
M92j016?’ 
M9 2'j u 16 8 
M9 2Q 015 9 
M92 j j 17C 
M920 0171 
M92 j D 172 
N9200175 
M 9 2 j j i /• - 
092 } 0176 
M9 22 C17c 
N192J 017 7 
M9 2 0 0 17 8 


O 

o 

o 

o 

C) 

o 

o 

•^4* 

o 

o 

o 

c 

o 


o 


ter Mil PAGE 6 DATE : 01/27/9 9 

o 

C) EQUIVALENCES 

Q DbF.LINE N^ME VALUE REFERENCED AT LINE NUMBER 

3 0 0G I ODFF (0.;G25y) 00 17 

G G 0 9 NETS GOOF ( u u J G 1 E ) j G E ^ 0 0 8 ■> » u j 3 6 » u o 9 i 

o 


o 


o 


0 

o 

o 

o 


o 


o 







ri 


o 


T'l 


o 


o 


o 


O 

O 


o 

o 

o 


TF^MIl PftGF 7 0 A T r ; L- 1/ ? 7/9 9 

o 

n S Y B 0 L s 


o 

9uF . line 

^1 A M E 

AD'JRESS 

REFERlN 

CEO AT 

LINE 

NUMBER 




L .11 

TRM 

GG 0 u 

0 u 7 •+ » 

0 0 99 






j 021 

TRMl 

Gu 09 







{^J 

0 J3C 

TRM2 

QD14 

J 0 2 5 » 

0 0 2 7 






Gl32 

TRH3 

0015 

0G23, 

0 07 5 






004h 

TRH4 

u 0 2 D 

0 0 58 






3 049 

TRYFF 

0 0 2 5 

0 G 4 7 






o 

C 0^1 

TRMh5 

L u 2 8 

u G 6 2 ) 

G137 





V OL t 

T R M 5 

li 0 2 A 

3 C 45 » 

0 0 4 8, 

0 Q 5 0 





J 

T R H o 

u G 2 E 

0 C42 







G : 5 c 

TRM7 

0 G 2 C 

0 u & 1 






(~'l 

G 0c2 

T R H 6 

uQ3 2 

U U D 0 







0 G 6 3 

T P M 9 

u G 3 3 

Q C 58 







J 0 7 3 

TEN 95 

3D3E 

Ju 71 







r 7 

T R M 1 u 

jC3F 

0 C oS 







G J / L 

TP Mil 

0 0 H G 

Q 0 6 6 







G u 8 u 

TREK 

C’ y Hi 

G C 63 » 

CG87, 

C 0 95 





J . 9 1 

TRM3 0 

. u H 9 

'J 0 L» 







J C 92 

TRM 31 

G 0 4 A 

3 a g -3 







0 g f.'. 

TRM32 

w C -* E 

0 C 93 







C 0 99 

TRM 5 3 

G u 5 1 

G 0 9 7 







Old 

3UFLOC 

.052 







0 1G2 

CHAR 


0 0 17, 

C u 6 9 , 

J i ^ o , 

01 ‘-8 , 

U 1 3 - , 

0 161 , 

o 

J 1 0 3 

WQIX 

b G 5 H 

■3 y 19 , 

0 032, 

U 0 / 9 

u 1 -t-9 , 

u 1 D i , 

0 16 0 , 

G 1 Oh 

BASE 

G D 5 5 

3 0 35 , 

0 0 H 0 , 

0 0 41, 

0 0 5 7, 

0 0 8 5 , 

0 0 9 4 


010 5 

MUM 

u 0 5 c 

3 11h, 

0 116, 

U 130 , 

0133, 

013t, 

0 135, 


G 1 G 6 

FSTRT 

0G5C 

0 u 33 , 

0 0 5 1 






Gia 7 

TEMP 

u 0 5 D 

0 0 15, 

0 G 5 6, 

uG82, 

u 0 d 4, 

GG9 2 



0112 

HEX 

0D5E 

0 0 3h , 

0039, 

0141 




.118 

HEX3 

0 C o 3 

3 158 





: 122 

HFX-* 

00 6 7 

3 120 






1 

c 13; 

H E X t G 5 

006F 
JD7 7 

0 12h 







C 1 5 8 

HEX 5 

3 1 36 







3 139 

HEXiu 

u u 7 8 

3 121, 

G 127, 

G129 





0 1 H 5 

BACK 

0 G 7 B 

0 0 9h , 

C13 9, 

ul52, 

0 15 5 




0 15 3 

BAG K1 

U 0 8 3 

3 1 4 7 







0 ip9 

SET 

u D 8 6 

L) U 2 1 , 

u - 3 c ♦ 

Li . O T , 

Li 118, 

C 169 , 

0 175 


G 1 tj H 

G E T 1 

.086 

■J 1 52 






C 171 

SFT 2 

uu91 

0 165 






o 

G 1 7 6 

OF LON 

3 09 6 

G 1 7 H 







o 

o 




o 


O 

C) 

c 

o 

' Q 
O 
' O 

G 1 6 7 , 0171 
C168) 0172 

G 1 HU 

• O 

• O 
O 
O 
C 


o 


TEkMTl 


^A3E 


S 




O 


u 

V- A L 

P H A 

B E T I 

CAL 

S 0 R 

T OF 

o 

b A 3 K 

L 14 s 

BAGKl 

0153 

BASE 

u 1 G 


HEX 

GIL 2 

HEXlu 

0 139 

HEX3 

j 118 


0- . OW 

0 1 P fa 

TEHP 

0 10 7 

TREM 

Q 0 8 0 

o 

T R M E : 

Uu9i 

TRMi'l 

u u92 

TRM52 

G u 95 

T R “! A 

u0&2 

TRM9 

0 0 o 3 

TRM95 

0 Q 73 


date; 


S Y M B 

0 L S 

•r n" *v 





BUFLOG 

Dial 

CHA’-'* 

u IG 2 

F5TRT 

GIG & 

GET 

HPXr 

0122 

HEX-u 5 

0 1 3 0 

HEX 5 

0158 

T 

TRM 

OQii 

TRMi 

GG21 

TRHlu 

0074 

TRMll 

TRM33 

0u99 

TRH + 

0 0 4 

TRMaS 

005 1 

T R M s 

TRYFF 

0 u “t-9 

WDIX 

u 1 0 3 





b 1 5 9 G ET i 
DuuQ N3TS 
0075 TRH2 
l 2 5 -~ T RM6 


U16-+ GET2 
0LG9 NJM 
0 Q3 D T RM 3 
3Q5 5 TRH7 


G171 
ulus 
0 0 3 2 
Ouse 


o 

o 


o 

o 

o 

n 

Vw' 

o 

o 

o 

C) 


c 

o 

o 


A T 

•s,,' 


c 



C) 

o 

o 

o 


o 


o 


I 


FNTCOl 


PAGE 


DATE: Gi/2i'/Q9 


Ij Li u. X 

LlG 2 

u ^ 3 -T 
0. G y 
0 0 0 n 
0 j 0 { 
j 3 j 8 
u ^ u J 


NAH ENTCOi DECK-ID H95 MSOS 5.G 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 

THIS PROGRAM OPERATES AS AN OVERLAY CALLED VIA GTFILE IN BREAKPOINT 
CONTROL. IT PROCESSES -^LHX, ^’LIT, -LAS, -LSP, "^LDP STATEMENTS. 

IT IS ENTERRED WITH THE LOCATION OF THE 1ST CELL OF THE TABLE, 

:VERYTHING t.Li,E ITSELF. 


e.OGK IN A. IT JOES 


0 3 1 : 






0 J 11 

R 3 u G L 

C G <3 0 

ENT CD R 

NUM 

0 

u - 1 2 

P L 0 b 1 

b 9 ■: c 


INA 

12 

G 3 1 3 

P u 3 0 2 

6 OFF 


STA- 

I 

03 1- 

P 0 0 0 3 

Cl 01 


LDA- 

1,1 

Ol 15 

P 0 Q 0 4 

i3 F G 8 


ALS 

8 

0 3 1 b 

P 0 0 J 5 

A 0 d 6 


AND- 

6 

03 17 

P 0 C 0 6 

0 8 42 


CLR 

a 

0 u 1 a 

P u 0 G 7 

0 9FE 


INA 

-1 

0 0 19 

P 0 0 0 8 

0 109 


SAZ 

ENTG-^-l 

u ;• 2 c 

P C 3 u 9 

(1 9FC 


INA 

-3 

0021 

P u 00 A 

0 136 


SAM 

ENTl-^-1 

0 3 2 2 

P 0 C 0 8 

UlC4 


SAZ 

£NT2-^- 1 

0 3 2 3 

POOOC 

0 9FB 


INA 

- ^ 

0.2- 

P 0 u C 0 

Old 


SAZ 

ENT3---1 

G 0 2 3 

PC GuE' 

uD 03 


INQ 

3 

0 J 2 6 

P G 0 vjF 

on G3 

ENT 3 

INQ 

3 

0.27 

POulG 

C 0 3 3 

ENT 2 

INQ 

3 

Ob 28 

PGCll 

C U 03 

EUTl 

INQ 

3 

0j29 

P G L- 1 2 

0 D C 1 

ENTG 

IMQ 

JMPL3T-C0NVPT 

3b 3 .. 

P G C 1 3 

FOOD 


a DQ 

= NS18 jtj 


P 0 3 1 - 

183 0 




0 3 31 

PQ015 

-83F 


STD- 

CONVRT 

<3 0 3 2 



V- 



J .J V,^ 



4 T H F 

FOLLOWING INITIALI 

U l! 3 — 
3.35 

PlOIo 

d C 0 2 


ENQ 

2 

G ■- 3 b 

PUul 7 

43 u 0 


STQ 

WJIX 


PC 018 

>j 0 A 4 




3 3 3 7 

PG dl9 

0 8-4 


CLR 

A 

b J 5 6 

P C u 1 A 

6 8u 0 


STA 

CHAR 


PO 01 B 

ij 0 A 0 




3 0 3 9 






b L n ' 

POO 1C 

5800 


PT J 

GET 


PC >3 ID 

d G ED 




b . - 1. 

P 0 3 1 f 

9u GO 


SUL 

= MS2G 


P 0 u 1 F 

0 0 2C 




0 b 4 2 

P 3 0 2-u 

0 102 


SAZ 

cNT--^- 1 

J J *t .‘J 

Pad21 

0 A 02 


ENA 

2 

0 tb 4 4 

00 45 

P0G22 

1128 


JMP- 

4 0 , I 

0 3 4b 

P0023 

caoo 

ENT4 

LDA 

WDIX 


P 0 d 2 4 

0 0 98 




0 3 4 7 

PO 3 2 3 

6 8 G 0 


STA 

FSTRT 


P0 02b 

00 A1 





ENTRY FROM EkEAKPOINT CONTROL 

LOCATION OF IMPJf COFFER TO I 
GET THIRU INFJT CHARACTER 

CONTAINS SF 


SKIP IF ASCII INPUT 


SKIP UN SINGLE 
SKI? ON DOUBLc. 


PRECISION FP 
PRECISION FP 


SKIP ON HEX INPUT 
DECIiNAL INPUT 


COMPUTE ENTRY TO FPOPhR CONV. ROUriNE 
PLUGS ENTRY TO CONVERSION ROUTINE 
EEC THE SLlBRbUTINr: . 

INDEX TO 1ST STATEMENT DFLIHITOR 

SET FOR uEFT CHARACTER 
GFT NEXT CHARACTER 

SKIP IF A COMMA 

BACK TO CONTROL PROGRAM 

SAVE FIELD START INDEX 


SUMMARY-11GM930Q001 
M9S00U02 
M93 3 j J 3 
M 9 3 G 0 G 0 
M93 j Uu 05 
M930 C Jp5 
M 9 S J 'j u u 7 
M93 j 3 u G 6 
M 3 b 3 0 d U 9 
M93j 0 31L 
M 9 3 3 j 1 1 
M933 a 31 Z 
M950 d Ulo 
M93.; uuld. 
M 9 3 j 3 315 
M93] 0016 
M 9330317 
M93 3 OOia 
M93Q 0 019 
M93 3 0 32 0 
M93 j o J21 
M93Q 0 022 
M933 0 02 3 
M9 3 J <3 02 4 
M95. 3 32 5 
M933 0 926 
M9 3 j 3 uE c 
M93 3 G 02 3 
M93ij G 329 
M9 3 U J (J o u 


H 9 3 M 3 b 5 1 
M J 3 J J J 3 2 
M 9 3 3 0 3 b b 
M 9 b J ij b i " 
M 9 3 j - 0 3 5 
M93 j 0 <J3b 

M9330 337 
M93: dU33 

H9 30 0 039 
M93] 0 0-+0 

M9 3’j u JhI 

M 9 3 J u G 4 2 
M93J 3 Q43 
M93 j u Q 44 
H930 0 
M9 30 u 0 4b 

M333 0u47 


C) 

o 

o 

o 

o 

o 

o 

o 


o 


o 

c 

o 

u 


o 


( 1 


ENTCOi 


PA5E 


O 



L) J 'i 

PO 027 

0 AG Q 


ENA 

0 


0-49 

P 0 u 2 8 

58 0 0 


RT J 

HEX 

o 


P0Q29 

G0 9F 



BASE 

0 u - 'j 

F0G2A 

68 0 0 


STA 



P u 0 2 fi 

u 092 





Ou 51 

F0 0 2C 

5 « G 0 


RT J 

GET 

o 


P0G2D 

OODD 



-S2C 

L> U cl 

P 0 0 2 E 

0903 


INA 


c J 5 3 

P0C2F 

010 3 


SAZ 

ENT5---1 


005- 

^ G u 3 0 

caoo 

ENT-5 

LDA 

FSTRT 

o 


P u ij 3 1 

G 0 9b 




0-55 

= L032 

1128 


JMP- 

4 0 5 I 


0 C 5 G 

PO G33 

U A 0 G 

ENT5 

ENA 

J 


0-5 7 

3 003^^ 

58 G 0 


RT J 

HEX 



PG 035 

0 0 93 





li ] 5 8 

Pu 0 3 6 

880 0 


ADD 

BASE 



P u 03 7 

0 0 86 





G J 59 

PQG38 

68 0 0 


STA 

BASE 

0 


PGg39 

'3 0 84 



GET 

U - C- U 

P 0 Q 3 A 

5800 


RT J 



PO 03B 

0 OCF 





0 1. 5 1 

P u 030 

Q9D0 


INA 

-$2F 


u L 5 P 

POO 3D 

0 131 


SAZ 

ENT5-^-l 

U 

Q 0 5 3 

PCC3E 

18F1 


JMP^ 

ENT 45 


u 0 6 - 

P0 03F 

G 80 C 

ENT6 

LDA 

NO IX 



POO^-O 

0 0 7C 




o 

0 0 5 O’ 

^ 0 G ‘T 1 

o 8 0 G 


STA 

FSTRT 


P 0 U ■+ 2 

G 0 35 



' 


0 0 6 b 

PO L*r3 

5 8 G F 


PTJ-’^ 

CONV 


Gg5 7 

POO-- 

5 8 0 0 


RT J 

GET 

o 


PC C-r5 

G0C5 




0 0 5 b 

D y {} -, -J 

u 9 n 3 


INA 

-S2C 


0 0 5 9 

P 0 G 4 7 

0 111 


S A,N 

ENT7-'”- 1 


G u ?’ ■- 

P 0 0 4 

18F6 


JMP- 

c N r .5 


0 0 7 1 

p G u ’T 9 

1 9 GG 

ENT 7 

INA 

s c 


CO 72 

P 0 0 hA 

0112 


SAN 

TRYFF 


u u 7 o 

P Q 0 4 B 

IS 0 0 


JHF 

ENT 8 



Pu 04C 

G 0 C 5 



= N5DF 


u ^ f •— 

Pl}0<-0 

9 3 0 0 

TRYPP 

SUB 

O 


PO 04E 

0 0 DF 





Q. 7 5 

P G j4F 

u 1 0 j 


SAZ 

ENT8-->- 1 


0 0 7 g 

P 0 G 5 u 

18 OF 



ENT-5 


0 0 7 7 

PGQ51 

ICAE 

ENT 8 

JMP'^ 

(ENTCOR) 


0 0 73 







UG79 



- THIS 

FOLLOHIN3 IS 


00 80 



ENTRY IS 

VIA RTJ. 

o 

0 J 31 
0 0 3 2 

PC052 

D Q G 0 

CONV 

NUH 

0 


0 0 8 
OOS- 

P 0 u 5 3 

QAOl 


ENA 

1 


0 u 8 5 






{ } 

Gu8t 



THE 

FOLLOWIN3 INS 


008 7 



^ TD 

GO TO 

THE PROP 


date: G1/2//99 

CONVERT BASE ADDRESS 

GET NEXT CHARACTER 

SKIP ON COMMA 

BAD OELIMITOR 
CONVERT increment 

EFFECTIVE ADDRESS CALCULATED 
GET NEXT CHARACTER 


SKIP IF SLASH 
BAD OELIMITOR 


CONVERT AND STORE NEXT VA LU 
GET NEXT CHARAGTiP 


SKI? ON NO COMMA 
IS IT A BLANK 

I"* IT A FF 

SKIP ON END OF STATEMENT 
STATEMENT PROCESSING COMPLETE 
ENTRY TO THE CONVERSION S URFc'O UT I N ES . 


NON-ZERO MEANS CONVERT AND STORE DATA 
ZERO MEANS CONVERT 'JUT 00 NOT STORE. 

JGTION IS PLUGGED ON PROGRAM ENTRY 
CONVERSION AND STORE ROUTINE. 


M93 0 u Q i-ti 
MDkIJOjPD 

M93jOJ5i] 

M930 0 151 

M93j sj'JpZ 
M 9 ?; (J Q J 3 i 
M9 3 G J j 5 ^ 

M 3 3 0 G 0 5 5 
M 9 3 G G j 5 D 
H93aO 05 7 

M 3 3 G u 0 5 8 

M330 e 05 3 

M330 G06G 

M 3300061 
M93] 0062 
M 9 3 0 u 0 6 3 
M93C 0Gb« 

M9 3 0 0 J 6 3 

M95C u uoG 
M 3 3 0 0 0 b 7 

M 0 3 0 G 5 3 
M 9 3 0 u J D 9 
M9 3 0 0 G7 0 
M3 >5 0 0 (j 7 1 
M93 G G 07 2 
M 3 5 0 G J 7 3 

M J 3 V. u 0 7 T- 

M3 3 G 0 0 7 5 
M 9300076 
M35G .J 07 7 
M93 0 0 078 
M3 30 0 079 
M93Q0d8Q 
M930GU81 
M330G082 
(■1930 0 083 
M930 QG8- 
M93G C 08 5 
M930 0 086 
H9 3 0 0 08 7 


o 

o 

c 

o 

o 

r'l 


o 

G 

Q 

O 

Q 

O 


O 


Q 


F.NTCOl 


PaGE 


3 


date: 01/27/99 


bO 88 

u , ? 9 
1^9.. 
^.91 
.0 9^ 
C 093 

P 0 G 5 ^ 

G 0 0 0 

CON VP T 

NUM 

0 

P 0 0 5 9 

5 6 0 0 

- HE 
J HP L 3 T 

INS IPUCTIDN 
RTJ ASCII 

o: 9 - 

P 0 0 5 p 
P 0 0 5 7 

0 0 0 E 
ICFA 


J i'l P ^ 

(CONV ) 

J J 9 :• 

P 0 0 8 

56 0 0 


RTJ 

SPRE 

Q G 9 6 

Pu 059 
P0 05A 

‘J 0C3 
1CF7 


JHP^ 

(CONV) 

00 9 7 

F 0 Q 5 R 

58 00 


RTJ 

DPRE 

0^98 

P u 05 C 
PU05D 

OGCl 
1C F4 


JM P-^ 

( C3NV) 

0 :■ 9 9 

PQ 35E 

5 8 0 0 


RTJ 

HEX 

01 D G 

P0G:3F 
P ] 0 6 0 

u 0 69 
ICFl 


JMP- 

(C3N\/ ) 

u 1 0 1 

P J 0 h 1 

56 0 0 


RTJ 

DEC 

blG2 

P U 0 D 2 
P b ij D 3 

G 326 
1 C EE 


JMF- 

{C3NV ) 


uT COMVRT JU.’IP-S TO ONE OO THF FOLLOWING. 
ASCII 

SINGLE PRECISION FLOATING POINT 
DOUBLE PRECISION FLOATING POINT 
HEXADECIMAL 
DECIMAL 


M9 3 j G j B R 
M93 j G089 
M93Q0G9C 
M930 Li 191 
M93G iG92 
M 9 3 „ u 0 9 3 

M 9 3 0 G j 9 w 
M 9 3 J u 0 9 y 

I! 9 2 0 U Q 9 b 
M93ja097 


M93Q 0 098 
M93 j 0 099 

M93 - U iO 0 
H93ijQ10i 


M930ul02 


FNTCOl 




JATE 


ul/2r/99 


G 1 0 
b 1 0 
'j C c 
•j i G 7 
G 1 G « 

PD ub^ 

u 0 c C 

- THIS 
3 TWO 

ASCII 

ROUTINE UNPACKS ASCII CHAPACFEkS AMD PJPACKS THMl 
PEP WO'-J ANu STORKS THE^-1. Il CHECKS Fbil F'-^01£:CT !" kROP ALSO. 

NUM J 

M9 3j aiG-r 
M 9 3 J u i G G> 
N 9 3 j u 1 j F 
N 0 ? : 0 1 0 7 
i'1 0 5 : . 1 J 8 

oiQq 
oil J 

P C C 6 5 
F 0 0 b o 

C 3 -P 
6359 


CLP 

STA-'^ 

A 

MJM + 1 

SEl' LEFT/RIGHT FLAG TC LEFT 

M 0 3 u u 1 C 9 
M 0 7 0 0 1 1 G 

Qill 

Puu&r 

5 8 0 0 

ASCI 

RT J 

GET 

GET A CHARACTER 

N93G cm 

u i 1 <J 

P G 0 b 8 
P0ob9 

G 0 A 2 
9C GA 


SUB- 

SA 

CONTAINS ."EFF 

Mg3DG112 

Gll 5 

PC 06A 

G IID 


SAM 

ASCb--^-! 

SKIP IF NOT DONE 

M93GU113 

Gil- 

P 0 0 c B 

5 8 C 0 

ASG2 

RTJ 

BACK 

BACK SCAN UP BY ONE 

N05CQ114 

DUG 
G 1 1 6 

PO OcC 
P G 0 b n 
PuGBE 

0 0 93 
C852 
Gill 


LOA^ 

SAN 

NUN + 1 
ASCZl-’^ -1 

SKIP ON RIGHT CHARACTER 

M93 0 G 11 5 
M93C 0 116 

oil 7 

P G G&F 

1CF4 


JMP^ 

(ASCII) 

DONE 

M9 3 GO 11 7 

u 1 1 

P0 0 7: 

CODA 

ASCbl 

LOA- 

£A 


M93j G 118 

Ull9 

PQG71 

B 8 vO 


F.OR^ 

NUN 

ADO SFF TO RIGHT OF LAST CHARACTER 

M93C C119 

012 0 
tl21 

PQ072 
Po 0 7 3 

b 8 PC 
587B 


STA- 

RTUP'- 

NUN 

PCHK 

PROTECT CHECK 

)'193jG12G 

N93wDl2l 

C122 
012 i 

P G G 7 - 
PQQ7':. 

C3-4A 
6C 48 


LDA^ 

STA^ 

NJN 

(BASE) 

STORE LAST WORD 

M93 30122 
H93G0123 

0 1 2 T 

012:5 

PO C 7 b 
PG077 

D8t7 
1C EC 


RAO^^ 

JMP-> 

BASE 

(ASCII) 

DONE 

M93jG124 
M930 C125 

0126 
012 7 

PG078 

8 0 0 A 

ASC5 

ADD- 

$A 


M 9 3 3 D 1 2 6 
M93G 0127 

0 128 
U129 

PQG79 

PGG7A 

E846 
01 54 


LOQ^ 

SQM 

NUN+l 

ASC4-^-1 

SKIP ON RIGHT CHARACTER 

iN933 ai28 
M9 3 3 0 12 9 

013: 
C 1 3 1 

POG 7B 
P0G7C 

0 F L 3 
0 8 4.3 


ALS 

RAQ'^ 

8 

NJNi-l 

SET FLAG TO RIGHT 

M9 0 G G 13 C 
M9 3 3 u 1 3 1 

.13 2 
u 1 0 3 

O 1 ^ 

P 0 0 7 D 
P 0 7 £ 
PGo7P 

bS^-l 
18F8 
08 3F 

ASC4 

STA-^ 

JMP + 
E 0 R 

NUN 

ASCI 

NJN 

Ann FIRST TO SE..GN0 CHARACTEf 

M93u u 132 
M 9 b 0 G 1 3 3 
M 9 Cf b Ll 1 b 4 

0 1 3 G 
0 I 3 6 

P 0 G « 3 

p u 0 6 i 

C 8 42 
u-8 3 E 


CLR 

STQ- 

a 

NUN + l 

SFT FLAG TO LEFT 

N 9 3 J u 1 S V 

i'19 3 G '3136 

013 7 
0 1 3 0 

P0G82 
PO D«5 

6 3 3 G 
5 8 60 


STA-" 

RTJ-'f 

NUN 

PCHK 

PROTECT CHECK 

I'i 9 b . 013 7 
N9bC G 13 8 

0 i 3 'i 
G 1 4- u 

P0C8-. 

P0G85 

C8 3A 
6C3 8 


LDA-^ 

STA-^ 

NUN 

(BASE) 

STORE THE WORD 

M93G G13 9 
H930 u 14G 

Ul 4i 

P 0 0 8 6 

D837 


RAO^ 

BASE 

UPDATE STORE ADJRESS 

H 9 3 G u 1 1 1 

ul-2 

P G- 0 8 7 

18DF 


JMP“- 

ASCI 

CONTINUE 

N9300142 


ENTCOl 


3ftGE 


date: Gl/27/99 


O 


5 


G i -I- ^ 
Oii-S 


U -L ^ O 

0 i ^ / 

0l4fc 

PQ u8 8 

u 0 i. u 

Li 1 4 

P 0 08 9 

0 8 

015 L 

P 0 0 8 A 

6 8 34 

0151 

PG363 

6 8 3-4 

J 1 5 2 

F' 0 0 c C 

6 8 3-r 

315 3 

P 0 33D 

C AFP 

J i ~ 

P0C8E 

6833 

Clip 

u 1 5 6 

P 3 0 8 F 

5 8 7D 

u 1 5 ~ 

P 3 0 9 J 

E8 3G 

J 1 5 8 

P 0 391 

u 1 5A 

DI59 

P D u 9 2 

090*4 

016 0 

P Q u9 3 

0 112 

0161 

0Gu94 

D82C 

o i 6 (1 

P0095 

18F9 

0163 

PO 096 

u9FO 

0 16-- 

P 0 397 

3 112 

u 1 6 5 

P0u98 

0827 

016 5 

P0Q99 

18 FA 

OlD 7 

PG39A 

0826 

0168 

P 0096 

C 9ZD 

0169 

P0'j9C 

E8 25 

0170 

PO 09D 

01 52 

0171 

P0 09E 

C8 29 

0172 

P 009F 

1128 

Ci7 3 

PuO A J 

D821 

Q 1 7 4 

PO QAl 

09CF 

0175 

PG0A2 

0121 

017 6 

P 0 0 A 3 

18GF 

G177 

P30A4 

0 9 F5 

D178 

P 0 0 A 5 

0131 

0179 

POO A6 

18 OC 

018 0 

P0uA7 

G90A 

0131 

P00A8 

681A 

0182 

P00A9 

GAGA 

018 3 

PGOAA 

2814 

018^ 

POO AB 

0141 

0185 

POOAG 

13F1 

018 b 

POOAO 

8815 

G157 

POGAE 

01 Hi 

0188 

PGGAF 

18EE 

0159 

POO BO 

68 0 E 

0190 

PGGBl 

18DD 

0191 

0192 

P00B2 

5 8 hD 

219 3 
0194 

POO 03 

583B 

P00B4 

C8 OA 

0195 

P0GB5 

E8 OA 

0195 

P 0 0 B 6 

0 1 41 


v* 


ms 

A^)D 


SUBROUTINE CONVERTS SIGNED DECIMAL INTEGtPS TO BINARY 
STORES THEM AFTER CHECKING FOR A PROTc.CT tf’RORi 


DEC MUM 0 
CLR A 
STA^^ NUM 
STA^ NUM+1 
5TA- NUM+2 
F N A - 6 
STA- NUM+S 


CLEAR NUMlfiR 
SET SIGH POSITIVE 
Sf-T 1ST character 


LAG TO 


1ST 


SET DIGIT COUNT 




DECl 

RT J- 

GET 

LDO-'^ 

NUMrZ 


SQM 

OES8---1 

DEC2 

INA 

-S2B 

SAM 

DES5-^-l 

0EC3 

R A 0^ 

NUM + 2 

JMP”- 

OESi 

OEC5 

INA 

-2 

SAN 

DES6-^-l 


RAO-^ 

NUM ^ 1 


JMP- 

DES3 

DEC 6 

RAO'-^ 

NUM+2 

INA 

S2D 

DECS 

LDQ^ 

NUM + 3 


SQN 

QES9-^-l 

QEC85 

EDA- 

FSr.RT 


JMP- 

40 » I 

0EC9 

RlkO* 

NUM +3 

INA 

-$3 0 


SAP 

DESIO-^-: 


JMP“' 

DEC 6 0 

DEC 13 

INA - 

-SA 


SAM 

OESll-’^-: 


JMP^ 

DES3Q 

DECll 

INA 

$A 


STA^ 

NUM + 4 


ENA 

10 


MUI-^ 

NUM 


SQZ 

DEC12-’^- 


JM P'*^ 

DES85 

OEC12 

ADD^^ 

NUM + 4 

SNO 

OES13-+- 


JHP^ 

0ES85 

OEC13 

STA^ 

NUM 


jMP-f* 

DECl 

OEC33 

RTJ^^ 

BACK 

RTJ^ 

PCHK 


LDA^^ 

NUM 


LDQ^‘ 

NUM + 1 


SQZ 

DEC31-^- 


GET A CHARACTER 

SKIP ON NOT 1ST CHARACTER 

SKIP IF NOT A PLUS 

TiioM nccT iQT iHAPflHTPP FiAG 


SKIP IF NOT A MINUS 
SET SIGN NEGATIVE 

TURN OFF 1ST CHARACTER FLAG 


SKIP IF LESS THAN 5 DIGITS 

TOO MANY DIGITS 
UPDATE DIGIT COUNT 

SKIP ON OK SO FAR 
not a DECIMAL DIGIT 

SK-TP ON DECIMAL DIGIT 


here IS THE ACTUAL CONVERSION 

SKIP IF NUMBER LESS THAN 32768 
HUMBER TOO LARGE 


SKIP IF NO. LESS THAN 327b8 
NUMBER TOO LARGE 
SAVE CURRENT PROCEEDS 
nn nPT WFVT nTGTT 


BACK UP SCAN BY ONE 
PROTECT CHECK 


SKIP IF NUMBER IS POSITIVE 


M93j 014-j 
H 9 3 j 0 1 T b 
M33G -3 1*47 
M93 j 3 148 
M9 3C 3 1-+9 
M 9 3 3 ^ 1 F L 
H930G151 
M -3 3 3 G 1 F L 
M 1 3 3 i :> 3 
M93 3 0 1 0- 
M 9 3 3 0 15 5 
M 9 5 ^ 315a 
ii 9333157 
M933 u 15 8 
M 9 3 D 0 i 5 9 
M 9 3 j 316 0 
M93 3 3161 
M933 Qib2 
M93Q0163 
M930016*+ 
M933 0 16 5 
M93] 0166 
M9330167 
M93 0 016 8 
M93jai69 
M 9 3 0 G i 7 u 
M93u0i71 
M93 0 u 17 2 
M9300173 
M9300174 
M9300175 
M933 0175 
M93Q0177 
M9300178 
H9330179 
M93j 3 180 
M9300181 
M93J0182 
M9300183 
M93 j 0184 
M9300185 
M930Q186 
M9330187 
M9300163 
M930C189 
M93Q 019 0 
M93D0191 
H9300192 
M9300193 
H93a0i94 
M9350195 
M9500196 


O 


(A 


O 

o 

o 

C-' 


o 


o 

o 


o 


o 

o 

o 


ENTCOi 


PAGE 


date; 01/27/99 




O 

0L97 P00B7 0864 
0198 POOB8 6CC5 
O 0199 P0CB9 0304 

0200 POOBA iCCO 

0201 

0202 POGBB 0001 

r, 0203 Pooec oooi 

02 0 4 PQOBO 0001 
0206 POOBE 0009 
02u6 P00C7 0001 

C 



TCA 

A 

DEC3f 

3TA» 

(BASE) 


RAO* 

BASE 


JHP* 

(DEC) 

CHAR 

BSS 

CHAR( 1) 

WOIX 

BSS 

WDIX (1) 

BASE 

3SS 

BASF ( 1) 

NUM 

BSS 

NUM (9) 

FSTRT 

BSS 

FSTRT (1 ) 


COHPLEMENT A NEGATIVE 
STORE THE DATA 
SET FOR NEXT CELL 
DONE 

CHARACTER FLAG FOR UNPACKING 
INDEX TO CURRENT BUFFER WORD 
EFFECTIVE STORE ADDRESS 
CONVERSION SCRATCH 
FIELD START INDEX 


u 


(J 

o 

c* 

o 

o 

o 

o 

Q 

o 

o 


M9300i97 
M9300198 
M9300199 
H93a0 20 0 
M9330201 

- 0=LFFT 1=RIGHT M9330202 

M93GQ 20 3 
M93GG204 
N9300205 
M9300206 


O 

Q 

o 

o 

o 

o 

c 


o 

o 

o 


o 



o 


o 

o 


o 


ENTGOl 


P£^GE 


7 


date: Cl/27/99 


o 




i 


o 



0 20 8 



^ THIS 

SUBROUTINE CONVERTS ASCII-HEX VALUES TO BINARY IF 

A=0 . 

M930 0 20 8 



G23 9 



» IF A 

IS NOT ZERO IT ALSO CHECKS FOR PROTECT ERRORS AND 

STORES DATA. 

M93Q 0209 


o 

0210 



>!■ 





M9 3 0 0 210 

O 

0211 

po oca 

0 0 00 

HEX 

NUM 

0 



M9300211 


0212 

P00C9 

6 8 Fb 


STA'^- 

NUN <-2 



M930 0212 



0213 

POOCA 

C8F5 

HEXl 

LOA^ 

NUH + 2 



M9300213 



0214 

PGGC9 

0101 


SAZ 

HEX2-^^-l 

SKIP IF CONVERT ONLY 


M930 0 214 

’ c 

1 } 

Q21;;> 

P OGCC 

5822 


RTJ^ 

PCHK 

PROTECT CHECK 


M930 0 215 


0216 

PO OCD 

0 8 t4 

HEX2 

CLR 

A 



M9300216 



021 7 

POOCE 

6 8 EF 


STA^ 

NUN 

INITIALIZE CONVERTED VALUE 


M933Q217 



0218 

pqqlf 

0 AFA 


ENA 

-5 



M930U218 

■ c 

0 219 

P 0 0 D 0 

68nE 


STA^ 

NUN4-1 

DIGIT COUNT INITIALIZED 


M93 0 0 219 


022-; 

DuODl 

58 39 

HEX3 

RTJ^ 

GET 

GRT A CHARACTER 


M93l] 0 220 



0221 

P0002 

09CF 


INA 

-S3 0 

UNDER $3C CHECK 


M93C 0 221 



0222 

P 0003 

0 121 


SAP 

HEX4- ^-1 

SKIP ON OK NUMBER 


M93C 0 222 

o 


0 223 

pOOD4 

1812 


JM P^ 

HEXIO 

NON-NUMBER 


M9S j 0 22 3 


0 2 24 

PO 005 

0 822 

HEX4 

TRA 

Q 



M930 0 224 



0 22 6 

POQDo 

OOF5 


INC 

-5A 

DIGIT IS 0 THRU 9 AND IN A 


M930 0225 



022 d 

PQ 007 

0175 


SQM 

HEX405-^-l 


M93G 0226 

r;i 


u 2 2 7 

P 0 0 D 8 

09F8 


INA 

-7 



M93U 0227 



0 228 

PO 009 

0 DF8 


INQ 

-7 

OVER S40 CHECK 


M930 0 228 



022 9 

POOOA 

0 1 7B 


SQH 

HEXl 0-^-1 

SKIP ON NON NUMBER 


M93Q 0 229 



0 2 3 0 

POODB 

0DF9 


INQ 

- 6 

UNDER $47 CHECK 


M930 0 230 

O 

•-w/’ 

U231 

PuOOC 

0 169 


SQP 

HEXlO-’^-l 

SKIP ON NON NUMBER 


M9300231 



0232 

POODO 

E8EO 

HFX4D 5 

LDQ'^ 

NON 

CONVERTED DIGIT IN A 


M930 0232 



0 2 3 3 

POuDE 

0FA4 


QLS 

4 



M9300233 



0234 

POODF 

0 8 74 


EAQ 

A 



M930 0 234 

( /■ 

0 2 3 6 

POO EO 

6 8 00 


STA^ 

NUN 

PACKED DIGIT IS STORED 


M930 0235 



0 2 3 6 

PQOEi 

0800 


RAO^ 

NU.N + i 



M93 j 0 23 6 



G237 

PQ0E2 

C8 0C 


LO A^^ 

NJN + i 



M93C0237 


— , 

0 23 3 

P0UE3 

0111 


SAN 

HEX5---1 

SKIP ON 5 OR LESS DIGITS 


M930 0238 

: C) 

1 } 

0239 

P00E4 

18B9 



DEC 8 5 

BAD DATA 


M933 U 239 


0 2 40 

P00E5 

18E8 

HEX5 

JMP» 

HEX3 

CONTINUE 


M930G240 



0241 








M930Q241 



0242 

P0 0E6 

5819 

HEXIO 

RTJ- 

BACK 

BACK SCAN UP ONE 


M93D0242 

(T'l 

>1 * y 

0 2 43 

P00E7 

E8 08 


LDQ^^ 

NUN + 2 



M9330243 



0 24 4 

POOFS 

C805 


LDA^ 

NJ!N 



M930 0 244 



QZk-j 

PO GEO 

0151 


SQN 

HEXll-^-1 

SKIP IF STORING REQUIRED 


M930 0245 



024o 

POQEA 

ICOD 


JHP» 

(HEX ) 

DONE 


M930 0 246 



0 24 7 

PO OEB 

6CD1 

HEXlt 

STA^ 

(BASE) 

STORE THE DATA 


M933 0247 



0 2 48 

POOEC 

0800 


RA 0* 

BASE 

INCREMENT STORE ADDRESS 


M93] 0243 



0?49 

POO ED 

ICDA 


JMP» 

(HEX) 

DONE 


M9S0Q249 



0 25 0 



V- 





H93Q 0 250 

■ O 

u 

0251 



^ THIS 

SUBROUTINE CHECKS 

THE STORE ADDRESS TO DETECT 


M930 0 251 


02 52 



»■ POSSIBLE 

PROTECT ERRORS 



M93Q 0252 



0253 








H93D 0 253 


o 

0254 

P 0 ij E E 

0 u 0 Q 

PCHK 

NUH 

0 



M930 0254 

- O 

0255 

PQOEF 

C8C0 


LDA-’^ 

BASE 



M9 30 0 2 p 5 


0 2 5b 

=’OUF(j 

EO F7 


LDQ- 

$F7 

CHECK ADDRESS FOR ABOVE START 


M930 0256 



0 25 7 

POQFl 

09FE 


INA 

-1 

OF UNPROTECTED 


M9300257 


o 

0253 

P00F2 

582C 


RTJ- 

CINPV4 



M93Q 0 258 

O 

0259 

P00F3 

0 102 


SAZ 

PCHKl 

GREATER THAN START OF UNPROTECTED 

M9300259 


0 2 60 

P00F4 

G90Q 


INA 

0 



M933 0260 



o 


o 


o 


0231 
02E>2 
0253 
025 ^ 
0 2 5 5 
0 2 5b 
02 57 
025b 

0269 

0270 

0271 

0272 

0273 
027 u 
02 75 
0 2 7 6 
027 7 
0 2 78 
0279 
023 0 
023 1 
02 82 
0 2 3 3 

023‘4 

02 3 5 

02 5 5 
0287 
0286 
0259 

0290 

0291 

0292 
0295 
0 2 9 ‘T 

0295 

0296 

029 7 
029H 
0299 
03QG 
033 1 

03 0 2 

030 3 
05 0 n 
030 5 
0306 
03 0 7 
030 8 
03 0 9 
0310 


ENTCOl 


=>AGE 


DATE: 01/27/99 


PO D F5 

0 107 


SAZ 

PE 

P00F6 

C8C6 

PCHKl 

LDA^ 

BASE 

PQ0F7 

EQF6 


LDQ- 

$F5 

POQFB 

5826 


RTJ=" 

CMPV1+ 

P00F9 

0102 


SAZ 

PCHK2 

POOFA 

0 9 0 0 


INA 

0 

POQFB 

0 111 


SAN 

PE 

POOFC 

ICFl 

PCHK2 

UHP^ 

(PCHK) 

POOFD 

C8C9 

PE 

LDA^ 

FSTRT 

Pu QFE 

1129 

if. 

JMP- 

41,1 



^ THE 

if. 

FOLLOWING BA 

PQ OFF 

0 0 0 0 

BACK 

NUM 

0 

PQIOO 

C8BA 


LDA^ 

CHAR 

PO ib 1 

0 115 


SAN 

BACKl- 

P0102 

D8 B8 


RAO^ 

CHAR 

P0103 

C8B8 


LOA^ 

WDIX 

PQ1[J‘+ 

G9FE 


INA - 

-1 

P01Q5 

68 B6 


STA» 

WDIX 

P01C6 

1CF8 


JMP^ 

( BACK ) 

P01U7 

0 8 i+4 

BACKl 

CLR 

A 

POlO 8 

6BB2 


STA^ 

CHAR 

PQ109 

1CF5 


UMP-‘ 

(BACK) 




* THIS SUBROUTINE UNPACKS 

* AND RETURNS IT IN A. 


NOT IN UNPROTECTED 

TEST FOR LESS THAN END OF UNPROTECTED 
ADDRESS IS OK 

ADDRESS NOT OK, PROTECT VIOLATION 

PROTECT ERROR - BACK TO BRKPTD 
SCAN UP ONE CHARACTER. 

SKIP ON RIGHT 
SET TO RIGHT 

BACK UP ONE WORD 

SET TO LEFT CHARACTER 

A CHARACTER FROM THE INPUT BUFFER 


POlOA 

G 0 0 0 

GET 

NUM 

0 

POlLi B 

CDBO 


LOA^ 

(WDIX) , I 

POiOC 

E8AE 


Loa^ 

CHAR 

PO 100 

C i 51 


SON 

GETl-^-1 

PO IbE 

0FC8 


ALS 

8 

POlbF 

AQUA 

GETl 

ANO- 

SA 

PO 110 

01 -+4 


3QZ 

6ET2-^-i 

Pflill 

0 8 42 


CLR 

Q 

PU112 

48 A 8 


STQ»^ 

CHAR 

PQ 113 

08 A8 


RAO-'^ 

WDIX 

P0114 

1CF5 


JMP^ 

(GETJ 

P0115 

08 A5 

GET2 

RAO-^ 

CHAR 

PQlio 

E8A5 


LDQ^ 

WDIX 

P0117 

ODDA 


INQ 

-37 

P0118 

0 li^l 


SQZ 

OFLOW-’^-l 

P0119 

ICFO 


UMP- 

(GET) 

POllA 

OAOO 

OFLGW 

ENA 

Q 

PQllB 

1123 


JMP- 

40,1 

POllC 

18FO 

SPRE 

UMP» 

OFLOW 

PQllD 

18FC 

DPRE 

JMP’^ 

OFLOW 


GET CHARACTER WORD 

CHARACTER FLAG Q=LEFT 1=RIGHT 

SKIP ON RIGHT CHARACRER 

UNPACK IT 
SKIP ON LEFT 

UPDATE LEFT/RIGHT FLAG 
UPDATE WORD INDEX 
RETURN 

UPDATE LRFT/RIGHT FLAG 
TEST FOR BUFFER END 

END OF BUFFER - ERROR 
RETURN 

TO PRINT DIAGNOSTIC 

^^--^^^HOOK FOR SINGLE PRECISION INPUT 
FOR DOUBLE PRECISION INPUT 


M93G0261 
M93J 0 262 
M9 3 3 D 26 3 
M93u 0 261+ 
M9 SO 0 26 5 
M930 0 266 
M9 3 0 0 26 7 
H9300268 
M93u 0269 
M930Q 270 
M93QG 271 
M93QG272 
M93 u 0 273 
M9300274 
M333 0275 
M930G276 
M930 0 27 7 
M9330278 
H93 3 0 27 9 
M930 G28G 
M930 0281 
M9300282 
M9300233 
M930 D28‘+ 
M9300285 
M933 0 285 
M930 0287 
H9S00288 
M930G289 
M930G 290 
M93QQ291 
M930G292 
N933 0293 
H933 0294 
M930G295 
M9330 296 
M933 0 297 
H93D0298 
M9300299 
M930 030 G 
M95Q 0 30 1 
H9300 302 
M9300303 
M933Q304 
M93Q03G5 
M93Q 0 30 6 
H930 03G7 
M9330308 
H933 0 3Q9 
M933 0 310 




ENTCOl 
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DATE: 01/27/99 


0312 








M930G 312 

0313 





ADORESS 

COMPARE ROUTINE 

M9300313 

0314 








M93j 0 314 

G315 





A * j T • Q 


DIFFERENCE RETURNED IN A 

Mg3Q0515 

031b 





A . E Q. Q 


A EQUAL 0 

M930G316 

0317 





A.LT. Q 


A EQUAL SFFFF 

M930 0 317 

0318 








M93j 0 318 

0 319 








M93J 0319 

0320 

POllF 

0800 

CMPV4 

NOP 

0 



M93o 0320 

Q321 

POilF 

0132 


SAM 

AUPPER 


A IN UPPER BANK 

M930 0 321 

0322 

P0120 

01 65 


SQP 

BTHSAM 


BOTH IN LOWER BANK 

M933 0 322 

032 3 

P0121 

1808 


JMP- 

QBIGER 


A IN LOWER, Q IN UPPER 

M9300323 

0324 

P u 122 

0173 

AUPFER 

SQM 

BTHSAM 


BOTH IN UPPER BANK 

M93G0324 

0325 

PO 12 3 

D8 52 


TCQ 

Q 


A IN UPPER, Q IN LOWER 

M930 0325 

0326 

PQ 12-4 

0834 


AAQ 

A 


GET DIFFERENCE IN A 

M930 0 326 

0 3 2 7 

P0125 

1805 


JMP^ 

ABIGER 



M930 0 327 

0323 

PO 126 

08 52 

BTHSAM 

TCQ 

Q 



M93G0328 

0329 

P0127 

0 8 34 


AAQ 

A 


SUBTRACT Q FROM A 

M93G 0 329 

0 33C 

P01^;8 

0 121 


SAP 

ABIGER 


A IS BIGGER 

M93u 0 330 

0331 

P0129 

0 804 

aeiGER 

SET 

A 


Q IS BIGGER 

M930 0331 

0 332 

P012A 

1CF3 

ABIGER 

JMP'‘ 

(CMP\/4) 



M930 0 332 

0333 




END 




H93Q0333 

P3^ = 

0126 

{ 299) 30H 

1 = uQOO ( 

0 ) 

DAT = QCCO ( C) 



ENTCOi 


=>aGE 10 


DATEJ 01/27/99 


O 


EQUIVALENCES 


DEE, LINE NAME 
0 000 I 


VALUE RE-ERENCED AT LINE NUMBER 

OOFF (000255) 0013 


O 

O 

O 

O 

n 

O 

C“'l 

O 

C) 

o 

o 

o 

o 




ENTCOl 
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M B 0 

L S 


F . line 

vJAME 

ADDRESS 

3o 11 

ENTCOR 

00 0 3 

0 G 2 6 

ENT3 

03 0F 

0 0 27 

ENT2 

0010 

0 3 28 

ENTl 

coil 

0 0 29 

ENTC 

0012 

0 0 4 6 

ENT4 

0 0 23 

0 0 5 4 

ENT45 

0030 

0 05 6 

ENTS 

Q033 

0 3 6 4 

ENT6 

003F 

0 u "^l 

ENT7 

0049 

03 74 

TRYFF 

0G4D 

0 07 7 

ENT8 

30 51 

0 0 82 

CUN V 

0052 

0 J89 

CONVRT 

0 054 

0 3 9 3 

JMPLST 

0055 

0108 

ASCII 

GQ6 4 

0 Hi 

ASCI 

00 67 

0 114 

ASC2 

0C6B 

ull6 

ASC21 

0Q70 

0127 

ASC3 

0076 

0 13^ 

ASC^ 

00 7F 

0148 

DEC 

00 86 

015 6 

DECl 

008F 

0159 

0EC2 

0092 

0 161 

0EC3 

U 0 9 4 

0163 

DECS 

0096 

016? 

DEC6 

fl09A 

0169 

DEC8 

009C 

0 171 

□ EC85 

0G9E 

0173 

DEC9 

QOAO 

017 7 

DECIO 

0GA4 

0 180 

DECll 

00A7 

3 18 6 

DEC12 

00 AD 

0169 

3EC13 

OOBG 

3192 

3EC30 

00B2 

0198 

0EC31 

0QB8 

3 2 0 2 

CHAR 

008B 

0 20 3 

WDIX 

OOBC 

0 20 4 

3ASE 

flOBD 

3 20 5 

NUM 

00 BE 


REFERENGED AT LINE NUMBER 

3 0 77 
0 0 24 
0 0 22 
3 0 21 
0019 
QG 42 

00d3» 0076 
Q G 5 3 

00b2, 0070 
0 0 69 
0 0 72 
GG73 
3 0 66 
G029 
0029 
0 0 93 
0133 


, 0 0 7 5 

t 0 u9h, 0096, 0098, OiCO, 0102 
, 0 0 31 


, 0117, 0125 
, 0142 


0116 
0113 
0129 
u iCl , 
0162 , 


0 20 0 
0 19 0 


0 166 
3 160 
0164 
0158 

0185, 0188, 0239 

0 1 70 

0175 

0178 

0184 

0 187 

3175, 0179 
3 196 

3038, 3275, 

0036, 0346, 

0 0 50 , 0 G58 , 

0110, 0115, 

0157, 0161, 


0277 , 
0 064, 

0283 , 
0 2 7 8 , 

0 291 , 
0 2 8 0, 

0 29 7 , 
0290, 

0301 

0298, 

0 302 

0199, 

024 7, 

0 248 , 

0 059 , 

0123, 

0120, 

012h- , 

0 14 0 , 

0141, 

0198, 

0 119 , 

0 122, 

0 128, 

0131, 

0132, 

0 1. 3 4 ir 

0136, 

013 7, 

0165, 

016 7, 

C 1 6 9 , 

0173, 

0181, 

0183 , 

Q 1 B6 5 

018 9, 

0 1 9 -»■ , 


0255, 

0139,' 

0195, 


0262 

0150, 

0212 , 


0151, 015 
0213, 021 


0154 

0219 


ENTCOl 


0 206 

- STRT 

0QC7 

0 211 

HEX 

Q0C8 

3 213 

HEXl 

aocA 

u 216 

HEX2 

GOCD 

0 220 

HEX3 

0001 

0224 

HEX4 

000 5 

0232 

HEX405 

OODO 

0 240 

HEX5 

00 E5 

0242 

HEX 10 

00E6 

3 247 

HEX 11 

OOEB 

0254 

PCHK 

OOEE 

0 262 

PCHKl 

OOFo 

026B 

PCHK2 

OOFC 

0269 

PE 

OOFO 

0274 

BACK 

QOFF 

028? 

BACKl 

QIO 7 

0 2 89 

GET 

OlOA 

0294 

GET 1 

GIQF 

0 301 

GET2 

0115 

030 6 

3 F L OW 

OllA 

G 309 

SPRE 

one 

0 31Q 

3PRE 

U 1 1 D 

0 320 

CMPV4 

OllE 

0 324 

AUPPER 

0122 

0 3 2 8 

3THSAH 

012 6 

0 3vi i 

QBIGER 

0129 

0 332 

ABIGER 

Q12A 
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12 



3 232, 

0 235, 

0 236, 

0 0 47, 

0 05 4, 

G 0 6 5 , 

0 0 49 , 

0 G5 7, 

u 099 , 

3 214 
3 240 
0222 
3 2 28 
0 238 
0 2 23, 
3 2 45 

0229, 

0231 

3121, 

0259 

0138, 

0193 , 

0265 

0261, 

026 7 


3114, 

0276 

0192, 

0242, 

00 40 , 
0 292 
0 2 95 

0 051 , 

0060 , 

0 3 04, 
0 0 95 

0 3 0 9, 

0310 

0 0 97 
0253 , 

0 264, 

0332 

G321 
0 322 , 
3 323 

0324 


0327, 

Q 33 Q 



date: 01/27/99 


0237, 02t5, 0244 
0171, 0269 
0246 , 0249 


0215, 0266 


0231, 0284 
0067, 0111» 0156, 


022G, 


0299, 


C305 



ENTCOl 
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date: 0 

1/27/99 









^ L 

P H A 

B E T I 

CAL 

SORT 

0 F 

3 Y M B 

0 L S 

V- 










ABIGER 

ba::ki 

QFGID 

DaGo 

E'^T45 

GETi 

HEX405 

PE 

0 332 
0232 

oir? 
0157 
0 05 4 
0 29 4 
0 23 2 
0259 

ASCI 

BASE 

nECii 

0EC8 

ENT5 

GET2 

HEX5 

QBIGER 

0111 
0 204 
0 180 
0159 
0 05b 
0 301 
0 240 
0 331 

A SC 2 

BTHSAM 

OEC12 

DEC85 

cNTb 

HEX 

I 

SPRE 

0114 
3 3 28 
0136 
0 171 
3 0 64 
0211 
0‘JQQ 
0 309 

ASC21 

CHAR 

DEC13 

DEC9 

ENT7 

HEXl 

JF.PLST 

T RYFF 

0118 
0202 
0189 
0173 
0071 
0213 
0093 
0 G 7 -f 

ASC3 

CMPV4 

DEC2 

DPRE 

ENT8 

HEXIO 

NUM 

WDIX 

0127 
0320 
0159 
0314 
0077 
0242 
0205 
020 3 

ASC4 

CONV 

DEC3 

ENTi 

ENTC 

HEXll 

OFLOW 

0134 

0082 

0161 

0028 

0029 

0247 

0306 

ASCII 

CONVRT 

DEC30 

ENT2 

ENTC OR 

HEX2 

PCHK 

010 3 
0 0 89 
0192 
00 27 
Gull 
0 216 
0 2 54 

A UPPER 

DEC 

DEC 31 

ENT 3 

FSTRT 

HEX3 

PCHKl 

0324 . 
0148 
0198 
0026 
0 20 6 
0 22 0 
0262 

BACK 

DECl 

0EC5 

ENT4 

GET 

HEX4 

PCHK2 

0274 
0156 
0163 
0 046 
0289 
0224 
0268 


RESUM 1 


PAGE 


1 


date: 01/27/99 


P 0 G f 0 
POQOl 
P00U2 
POO 03 
PQ004 
POGuS 
P0006 
POu u 7 
P 0 0 0 8 
PC009 
oCUOA 

P 0 0 G R 
PGCGC 
POtiOD 
POGGE 
PODGE 
POOIG 
PGGli 
PDQ12 
POD13 
POOl- 
P C C 1 5 
PO U 16 
3 0 0 1 7 

PO 018 
PDQ19 
POOIA 
PQ013 
POCIG 
POOlO 
PO oie 
PQOIF 
P0G20 
PjG21 
P0 022 
POQ23 
P00 2^ 
POG25 
POQ26 
P0027 
P00 28 


Ofl OF 

OOCQ 
&0FF 
6862 
0C56 
C722 
010 5 
6 804 
0 8 4 4 

67 2 2 
140 0 
uOOO 

C136 
6 8 40 
09 01 

68 4C 
0 901 
68 4B 
Cl46 
6 8 4 A 
G 8 42 
0FE4 
48 48 
0151 
18 54 

OCOG 
0FE4 
4844 
GCDO 
0FE8 
4842 
3 8 40 
09F7 
0121 
1817 
09FB 
0121 
1829 
C837 
A 0 0 0 
F3CG 
8 0 2D 


HAM RES J Ml DECK- ID M94 MSOS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 197o 

» THIS PROGRAM PROCESSES *ENQ STATEMENTS FOR BREAKPOINT. 
^ NORMAL EXIT FROM THIS PROGRAM IS TO THE USER. 


SUMMARY- 


NDTS 


EQU NBT3{15) 


RESUME NUM 0 
STA- I 
STA^ BASE 
END 5b+2*NBTS 
LOA- ($22) ,B 
3AZ RE3M£-’^-l 
STA^ RET^-l 
CLR A 

STA- ($22) ,B 
RET JMP+ 0 


RESME LDA- 54,1 
STA^^ L03 
INA 1 
STA^ LOCI 
INA 1 
STA^ LOC2 
LDA- NBT3 + 55,I 
STA^ INSTR 
CLR Q 
LLS 4 
3TQ-^ INSTN 
SON RESMEo-^-1 
JMP»^ SRRI 


RESME3 ENQ 
LLS 
STQ» 
ENQ 
LLS 
STQ^ 
LDA^ 
INA 
SAP 
JMP^ 

RESMD5 INA 
SAP 
JMP=^ 
RESME4 LDA-^ 


MODE 

0 

8 

OELT 

MODE 

-8 

RE5M05- ^-1 
RESHEA 

RESMEh-^-1 

RE3MED 

INSTR 

=N$F300 


MAXIMUM NUMBER OF BREAKPOINTS 


SAVE TABLE BASE 


CHECK FOR 1ST ENTRY (FROM MONITOR) 
SKIP IF NOT 1ST TIME 
SET JUMP TO USER PROGRAM 

CLEAR 1ST PASS FLAG 
TO USER PROGRAM 


GET BREAKPOINT LOCATION 


GET INSTRUCTION AT BREAKPOINT (SAVED) 


SKIP OR REGISTER REFERENCE INSTR. 
BREAK INSTR. INTO MODE AND DELTA 


CHECK MODE TYPE 


INDIRECT RELATIVE MODE 

MAKE TWO WORD RELATIVE ABSOLUTE 


ADO- $20 


llQM9400uOi 
M9400a02 
M94J 0uU3 
M9400O04 
M940 0 00 5 
M940 0006 
M94 j Q GO 7 
M94Q0003 
M94D OU 09 
M940 0 010 
M94'jGu11 
M94uuC12 
M940Gu15 
M940 0 014 
M94Q0015 
M940 0 016 
H940 0 C17 
H940 0 018 
M94GQ019 
M940 u 020 

M94Q 0 021 
M94J0022 
M 9 4 0 0 0 2 3 
M940 0024 
M940G025 
H943 G 026 
M94G 0027 
M940C02B 
M94] 0029 
M94C 0 030 
M940 u 031 
M94GGQ32 
M94] C 033 
M34ii 0 034 
M94D 0 035 
M9, 00036 
M9 40 0 037 
M943 0 038 
M94Q 0 039 
M9400040 
M940 0u4l 
M943 0042 
M9400 043 
H94Q 0 044 
M94QDQ45 
M940 0 0 46 
M94 J 0 047 
M94Q 0 0^+8 
M9400 049 
M943 0 0 50 

M940 0 05 1 


RES'JHl 


PAGE 


2 


DATE 


01/27/99 



o 



00 5 2 

PQ029 

6QFF 


STA- 

I 


0 3 5 3 

P002A 

0835 


LDA* 

OELT 


0 3 5 4 

PQG2B 

0115 


SAN 

RESME5-^-l 

1 : 

0 3 5 5 

P002C 

EC2E 


Loa^ 

(LOCI) 


005b 

P002D 

F82D 


ADQ'"^ 

LOCI 


0 3 5 7 

PO 02E 

F032 


ADQ- 

$32 

(^} 

00 58 

P002F 

C82C 


LDA^ 

L0C2 

00 5 9 
0 0 6 0 
0061 

P 0030 

18 56 


JMP^ 

RETURN 


PG051 

E82E 

RESME5 

LDQ» 

DELT 


03 6 2 

P 0 03 2 

0FA8 


QLS 

8 

0053 

PO 033 

0F28 


QRS 

8 


0 C 6 

P0 034 

F825 


AOQ» 

LOG 


U 3 6 5 

P0035 

F032 


ADQ- 

$32 


0 3 5 6 

P0036 

C824 


LDA^ 

LOCI 


0 0 6 7 
00 58 

P 0 0 3 7 

18 4F 

V- 

JMP-’^ 

LDA^^ 

RETURN 

DELT 


OQ 59 

P00 38 

C827 

RESME A 


00 ? G 

P0039 

0115 


SAN 

RE3MEB-^-l 


00 71 

P003A 

C822 


LDA^ 

IN5TR 


0 0 7 2 

P u G 3 B 

60 FF 


STA- 

I 


0 3 7 3 

PG0 3C 

ECIE 


LDQ^ 

(LOCI ) 

G* 

00 7 4 

PGG30 

C81E 


LDA^ 

LOC2 

0075 
00 7 6 

P0 03E 

18 48 

* 

JMP^ 

RETURN 

MODE 



00 77 

P0G3F 

C81F 

RESHEB 

LOA'^ 

O ' 

0 0 7 3 

PC04Q 

D9FB 


IMA 

-4 

0079 

PG 041 

0133 


SAM 

RESMEC- ^-1 


0 030 

P 0 0 4 2 

E810 


LDQ^ 

OELT 


0 3 31 

P0043 

FQ 32 


ADQ- 

$32 

0 

0082 

P0044 

1802 


JMP^ 

RES ME Z 

008 3 

P0G45 

E81A 

RESMEC 

LDQ^ 

DELT 


03 8 4 

PO G 4b 

C816 

RES ME Z 

LDA'‘ 

INSTR 


0U85 

P0047 

AO u Q 


AND 

= N$F300 

0 


P0048 

F300 



$20 

0 0 3 6 

P0049 

8 0 20 


ADD- 


0 0 3 7 

P004A 

60FF 


STA- 

I 


00 88 

POG 4B 

C80F 


LDA^ 

LOCI 


0 j39 

P004C 

183A 


JMP^ 

RETURN 

’■•J 

0090 







0 3 91 

P 0 G 4 D 

C80F 

RESMED 

LOA» 

INSTR 


0 3 92 

P004E 

Aoao 


AND 

=N$F30D 

0 


P004F 

F300 



$2D 

0093 

P005G 

802D 


AOD- 


0 0 9 4 

PO 0 5 1 

oOFF 


STA- 

I 


03 9 5 

Pu052 

C8Q0 


LDA^ 

OELT 

o 

0096 

P0 053 
P0054 

fl ll4 


SAN 

RESME9-^-l 

0097 

EC Go 


LDQ^ 

(LOCI) 


0398 

PO 0 5 5 

F8 05 


AOQ^ 

LOCI 


0 3 99 

PC056 

C8Q5 


LDA^ 

LOC2 


0100 

P00 57 

182F 


JMP^ 

RETURN 

1 } 

0101 





RESMEE 


0102 

° 0 C 5 8 

130D 

RESME9 

JMP^ 


CHECK IF ONE OR TWO WORD 
TWO WORDS 


ONE WORD INDIRECT RELATIVE 
HAKE 2 WORD ABSOLUTE 


ABSOLUTE AND INDIRECT ABSOLUTE 
2 WORD COMMAND 

LOG. OF NEXT INSTRUCTION 

1 WORD COWHAND 


1 WORD INDIRECT ABSOLUTE 
SET SIGN 

1 WORD ABSOLUTE 

MAKE INTO 2 WORD DIRECT ABSOLUTE 


SET INDIRECT BIT 

LOG. OF NEST INSTRUCTION 

DIRECT RELATIVE 

MAKE 2 WORD ABS COMMAND 

CHECK IF i OR 2 WORDS 
2 WORDS 


M94Q U052 
M94Q0053 
M9400a54 
M9430055 
M940 0 05 5 
M94D 0 057 
M940GQ58 
M940Q 059 
M9400 060 
M9400061 
M9^QQQ62 
M940Q053 
M940 0 0 64 
M9400 065 
M940 0 066 
M940 0 067 
M9UQ0U68 
M94D0069 
H94G 0 07 0 
M9400071 
M940 0072 
M940 0 07 3 
M940 0 07 4 
M940 0075 
M940 0076 
M940007? 
M94t3 0 078 
M94Q0079 
M943 0 080 
M9i<.Q 0 081 
M9400062 
M943 0 08 3 
M943 0 084 
M9400035 

M943 0 08 6 
M940 0 087 
M940QQ88 
M9400089 
M940Q090 
M94G009i 
M943GQ92 

M9400093 
M9-U 0 0 9 4 
M94Q0 095 
M9t0 0 096 
M940 0097 
M94j 0 0 98 
M94D 0 0 99 
M940 0 10 0 
M940 0101 
M940 0 iO 2 


Q 


O 

O 

r-', 

O 

C) 

n 

Q 

O 

o 

o 


o 

o 


f 1 


I i 



c 



RFSU?n 
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/ ; 

L.) 

(^) 

010 4 







H943 DIG- 


010 5 



V- 

V ^ ^ 



M9400 105 


o 

010 6 



V- 


CONSTANTS 


M940 C 106 

' o 

UlG 7 



>(■ 




M943 G10 7 

'v-.' 


0108 

PO 059 

0 0 0 0 

LOG 

NUM 

0 

LOCATION OF INSTRUCTION 

M9430108 



0139 

P0G5A 

0 0 0 0 

LOCI 

NUM 

0 

1 WORD LOG. FOLLOWING INSTR. 

M9400109 



UllO 

P005B 

COCO 

L0C2 

NUH 

0 

2 WORD LOG. FOLLOWING INSTR. 

Mg4CQ110 

, o 


0111 

PG05C 

u 0 0 0 

INST9 

NUM 

0 

INSTRUCTION AT LOC 

M9400111 


oilif 

P0050 

0 0 GO 

INSTN 

NUM 

Q 

1ST 4 BITS OF INSTRUCTION 

M94G0112 



0113 

PO 05E 

uOGO 

NODE 

NUM 

Q 

MODE OF OPERATION 

H940Q 113 


r\ 

011^ 

PQ 05F 

0 0 0 0 

BELT 

NUM 

0 

DELTA 

M9430114 

o 


0115 

P006u 

CBGQ 

NOP 

NOP 



M94 0 0 11 5 


0116 

P0061 

UOOO 

REGQ 

NUM 

0 

Q REGISTER SAVED 

M943 0 lib 



0117 

P0062 

0 0 00 

REGA 

NUM 

0 

A REGISTER SAVED 

M9-40Q117 



0118 

P0 063 

0 0 0 0 

REGI 

NUM 

0 

I REGISTER SAVED 

M943 0 116 

■ C) 


0119 

pooe^ 

OCGl 

BASE 

BSS 

8ASE( 1) 

BRKPTO TABLES BASE ADDRESS 

M9^3Q 119 


0120 







M943 0 120 



0121 




M94Q0121 



0122 



¥ 




M9hD0122 

' c 

( : 

•»^r* 

0128 

PO Q 65 

E8F9 

RESMEE 

LDQ- 

BELT 

1 WORD DIRECT RELATIVE 

M9400123 



OlE'^ 

PO 06b 

QFA8 


QLS 

8 

HAKE ? WORD ABS. COMMAND 

M940 0 124 



0125 

P0067 

0F28 


QRS 

8 


M94 00125 


/ 

Q126 

P0068 

F8F0 


AOQ^ 

LOO 


M940 0 126 

■ 


012 7 

P0069 

C8F0 


LDA^ 

LOCI 


M940Q127 



0128 

PQ06A 

181C 



RETURN 


M94G 0128 



G129 







M940 0129 



013 0 

P 0 u 6 B 

G8 42 

SRRI 

CLR 

a 

SKIP OR REGISTER REF . INSTRUCIION 

H940 0 130 

C) 

‘sj 

0131 

P0Q6C 

QFE4 


LLS 

4 


M943 0131 



0132 

PO 06D 

0157 


SQN 

SRRIl-»-l 


H 9400132 



0133 

F' u U 6 F 

38F1 

SRRI3 

LOA^ 

NO^ 

GET NOP INSTRUCTION 

M94GG133 


: V 

0134 

POObF 

6829 


STA* 

IN3T1 


!i94i] 0 13 4 

: O 


G 1 3 5 

P0070 

C8EE 


LDA^ 

IN3TR 


M 9 4 0 0 1 3 5 


0136 

P0071 

6828 


STA^ 

INST2 


M94'] 0136 



013 7 

P0072 

G8E7 


LDA^'- 

LOCI 


M94iJ 0 137 


,'T\ 

0138 

PQ 0 73 

6828 


STA^ 

RL 


M9400138 

’ U i 

‘4J 

0139 

P00 7‘+ 

1816 


JMP^ 

RETRN 


M940 G'139 



0140 



* 




M94U 0 140 



0141 

PO 075 

Q DFE 

SRRU 

INO 

-1 


M940Q 141 



0142 

P0 07 6 

0141 


SQZ 

SRRI2-'^-l 


M9400142 


’w-' 

0143 

PGG77 

18F6 


J HP- 

SRRIO 

NOT A SKIP INSTRUCTION 

M9400143 



014- 

P0Q78 

0 8 42 

SRRI2 

CL R 

Q 

SKIP INSTRUCTION 

M9400144 



0145 

P0 079 

0 F Ch 


ALS 

4 


M94QG145 


r\ 

0146 

P0G7A 

0FE4 


LLS 

4 


H940 0 1 46 

O 

U 

0147 

P007B 

F8DE 


AOQ^ 

LOCI 


M940 C 147 


0148 

P00 7C 

4821 


STQ^ 

RL5KP 


M940 0148 



0149 

P007U 

C3 E2 


LOA^ 

N02 


M94G 0 1 49 


r\ 

015G 

PQ07E 

681A 


STA^ 

INSTl 


M94G0150 

o 


0151 

P0 07F 

C8DC 


LOA» 

IN5TR 


H94D0151 


0152 

P0G80 

A 016 


ANG- 

$16 


M9 40 015 2 



0 1 5 3 

P0 081 

u9 02 


INA 

2 


M 9 4 0 0 1 5 3 



0154 

P0Q82 

6817 


STA^^ 

INST2 


M9 40 0 1 5 4 

o 

'.J 

0155 

P0 083 

C806 


LDA» 

LOCI 


M940 0 15 5 


Q156 

P0084 

6817 


STA^ 

RL 


M9 40 0 1 5 6 


o 









o 

':■ 

s,,- 









o 









- - - 

- 


RESUMl 


PAGE 


date: 01/27/99 


4- 


015 f- 
0158 

PG 085 

1805 


JMP^ 

RETRN 

015 9 

P003b 

6815 

RETURN 

srA'*^ 

RL 

Oib 0 

P 0 u 6 7 

4812 


STQ^ 

IN5T2 

Olbl 

POOdH 

COFF 


COA- 

I 

0162 

0163 

P0089 

680F 

V- 

STAL 

INSTl 

015 4 

P0Q8A 

DCG2 

RETRN 

ENQ 

2 

015 5 

P0 08B 

CED8 


LOA^ 

(BASE ) , 0 

0156 

P0 0 8G 

oAD4 


5TA^ 

REGOt Q 

0157 

PG 080 

OOFE 


I NO. 

-1 

015 8 

P008E 

0171 


3 QH 

RETROS-^- 

0159 

PD08F 

18FB 


JMP» 

RETRN+t 

0170 

P0090 

C8CC 

RETR05 

LDA^ 

I NS IN 

0171 

P0u91 

0 9FA 


INA 

-5 

0172 

PO 092 

0111 


SAN 

RETRNl-^-- 

0173 

Q17'u 

PQ j 93 

18QB 


JMP^ 

RTJUMP 

0175 

PG094 

C3CE 

RETRNl 

LDA^ 

REST 

017 6 

P0095 

60FF 


STA- 

I 

0177 

P0096 

E8CA 


LOQ^ 

RE3Q 

017 8 
0179 

PQ0 97 

C8CA 

V- 

LDA^ 

REGA 

0180 

PQ093 

u B u 0 

INSTl 

NOP 

Q 

0131 

P0099 

0 BuO 

INST? 

NOP 

0 

0182 

P009A 

140 0 


NUH 

$1400 

0183 

PO u9B 

0 00 0 

RL 

NUM 

0 

018h 

PQ09C 

1400 


NUM 

$1400 

013 5 
0186 

PQG9D 

0 0 0 0 

RLSKP 

NUM 

0 

013 7 

PO 09E 

C8F9 

RTJUMP 

LDA^ 

INSTl 

018 8 

P009F 

0F48 


ARS 

8 

0139 

P 0 0 A 0 

AO 06 


AND- 

6 

0190 

PuOAl 

E0E9 


LDQ- 

$E9 

0191 

PGQA2 

E622 


LDQ- 

($22) 

0192 

P00A3 

Q142 


SQZ 

IS32K-^-l 

0193 

POOA^t 

E8F4 


LDQ» 

IN3T2 

019- 

P 0 0 A 5 

1805 


JMP^ 

CHECKh 

019 5 

POOAb 

E8F2 

IS32K 

LDQ- 

IN3T2 

019 d 

PO G A 7 

01 62 


SQP 

CHECKh-^- 

0197 

PGGA8 

E622 


LDQ- 

($ 22) ,9 

0198 

POQA9 

18FD 


JMP^ 

¥-2 

0199 

OQOAA 

G9F8 

CHEC<4 

INA 


02 3 0 

POOAB 

0121 


SAP 

CHECKS-^-- 

023 1 

PuCAC 

G905 


INA 

5 

0202 

PO OAD 

0106 

CHECKS 

SAZ 

OVER-^-1 

0203 

POOAE 

09FE 


INA 

-1 

020 4 

POOAF 

0103 


SAZ 

X-^^-l 

0205 

pooeo 

09FE 


INA 

-1 

020 6 

POOBl 

0104 


SAZ 

Q-V-1 

0207 

P00B2 

F8AE 


ADQ» 

REGD 

020 8 

P00B3 

F8AF 

X 

ADQ-'f- 

REGI 

023 9 

PG0B4 

480C 

OVER 

STQ.^ 

RET JMP+i 


A CONTAINS RETURN L OCAT 10 ^ 

Q CONTAINS 2N0 WORD OF INSTRUCTION 
I CONTAINS 1ST WORD OF INSTRUCTION 


GO GET SAVED REGISTERS 


CHECK FOR RTJ 


RETURN REGISTERS 


1ST WORD OF INSTRUCTION 
2ND WORD OF INSTRUCTION 
JUHP 

NEXT LOG. FOLLOWING INSTRUCTION 
JUMP 

SKIP LOCATION 

RETURN JUMP INSTRUCTION 


check mode SWITCH 


LOCATION 

CHECK IF INOIRtCT 


ADO Q REGISTER 
ADD I REGISTER 


M9A0G157 

M9400158 

M9‘^00159 

M9 40C16 0 

M9h00151 

M94D01b2 

M9LI] 0163 

M94001bv 

M94G0ib;? 

M940 0155 

M94aQlS7 

M9400166 

M94J 0169 

M9400 170 

M940 0171 

M9400172 

M94D 0173 

MO^+O 0174 

M94QG175 

H940017b 

M9400177 

M943Q178 

M9-+3 0179 

M9400130 

M94Q Q181 

M94u0 182 

M94u0183 

M9 4 0 018 4 

M9400185 

M94QQ186 

M940Q187 

M943Q188 

M94Q 0139 

M940 0 190 

M940 0 191 

M9400192 

M94QQ193 

M943Q194 

M940 0195 

M940Q196 

M94Q0197 

M9400198 

M94QQ199 

M943 020 0 

H94Q0 201 

M9400202 

M940U 203 

H9430204 

M9400205 

M940 0 205 

M9400207 

M94J 0208 

M940 0 20 9 


RESUMl PAGE 5 DATE: Cl/27/99 

c 

0210 PQQB5 1803 

0211 P00B6 F8 AA 
0 212 PuQBZ 18FC 

0214 P00B8 C8E2 

0215 P00B9 6622 

0216 POO BA 08 06 
0 217 PQOBB C8A7 

0218 POOBC 60FF 

0219 POOBD C8A4 
O Qii2Q PUOBE E8A2 

0221 POOBF 1400 
POGCO OOuO 

0222 


P38= OuCl ( 193) :0M = 0000 ( 0) DAT = 0000 ( G) 


O 


o 


O 


o 


o 


o 


o 


JMP- NEXT 
Q ADQ^ REGQ 

JMP^ OVER 

NEXT LOA^ RL 

STA- ($22), Q 
RAO* RETJHP+1 

LOA* RE5I RETURN REGISTERS 

STA- I 
LDA* REGA 
LDQ* REGO 
RETJ8P JMP+ 0 

END 


O 



o 

o 

o 


U 


o 


RESUHi 


PAGE 


6 


date: 01/27/99 


o 

E 9 u I V 

A L E N C E S 


o 

OEF. LINE 

NAME 

VALUE 


0 0 G 0 

I 

uuFF 

(000255) 

o 

0G09 

NBTS 

00 OF 

( 00 0015) 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C''- 


REFERENCED AT LINE NUMBER 

0012, 0052, 0072, 0087, 009^, 0161, 
0014, 002S 


0176, 0218 


o 

o 

o 

o 

o 

o 

o 

C' 

G 

o 

r\ 

O 

O 

o 

c 

o 




PAGE 


7 


date: 01/27/99 



O 
■ O 
O 
' o 

o. 

0097, 0098, 0127, 0137, 0147, 0155 Q 

0151 

^ O 

Qfl95, 0123 ■ 

: O 

o 

; 

: O 
O 

• o 
o 

. r:. 

•w 


o 

o 

Q 

o 

("',1 


RESUMl PAGE 8 


0 202 

CHECKS 

OOAD 

0 200 


0 208 

X 

0 0 B 3 

0 20 4 

0212 

0 209 
3 211 

OVER 

a 

00B4 
00 B6 

3 2 02 , 
3 2 06 

0214 

NEXT 

00B8 

0 210 

0216 

0 221 

RETJHP 

OOBF 

0 209, 


/ 


o 


date: 01/27/99 


o 

o 

o 


o 

o 

o 


o 


o 

o 

o 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 


o 


INSTl 

0180 

IHST2 

0181 

N BTS 

0009 

NEXT 

0214 

RESME 

0 022 

RESME3 

0 0 3 & 

RESHEE 

0123 

RESMEZ 

00 8 ^ 

RL 

0183 

RLSKP 

0185 


INSTN 

0112 

IMSTR 

0111 

NOP 

0113 

OVER 

0209 

R ES MEh 

0 049 

RESME5 

0 051 

RESUME 

0 Oil 

RET 

0020 

RTJUMP 

0187 

SRRI 

0 13 0 


PRTRFl 


PAGE 


1 


DATE; Dl/27/99 


00 0 1 
00 0 2 
0 0 0 3 
OQ 0 4 
00 05 
00 0 6 
0 0 0 7 
GO 08 
0 j 09 
0010 
0 0 11 
0012 
0013 
0 01*+ 
0015 
OQlo 

0017 

0018 

o:<i9 

QQ2Q 
QG21 
00 2 ? 
0 3 2 3 
00 2^-^ 
0025 

0 j 2b 
OC 27 
Qu26 
0029 
0 3 30 
0331 
0032 

03 3 3 
0 j 3 

0 03 5 
0 3 3 6 
0037 
0 J 38 
0 3 3 9 
00 4u 
00 41 
0 j 42 
0343 

004 4 
0 3 45 
0 0 46 


0 0^7 

0 J 4 8 
00 49 
0 3 5 0 




NAM PRTREl DECK-IO H95 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA J OL LA , ^ CA U FORM lA 
COPYRIGHT CONTROL DATA CORPORATION 1976 




^ THIS PROGRAM PRINTS THE CONTENTS 
* AT THE CURRENT BREAKPOINT 


OF 


P, 


A, 


Q, I, AND M 


PGCOG 

0 0 0 0 

PRTREG 

NUM 

0 

PflOOl 

6858 


STA^ 

HOLD 

PGO 02 

EC57 


LDQ- 

(HOLD ) 

P00 03 

582A 


RTJ- 

CONVRT 

POOQ^ 

68 4A 


STA^ 

QBUF+1 

POu 0 

4848 


STQ^ 

QBUF 

POOiib 

D853 


RAO^^ 

HOLD 

PC 007 

EC 52 


LDQ^^ 

(HOLD) 

P00i38 

5825 


RTJ» 

CONVRT 

P 0 0 0 9 

o840 


STA- 

ABJF+1 

POOO A 

483E 


STQ^ 

ABJF 

POOGB 

084E 


RAO^ 

HOLD 

POOOC 

EC4D 


LDQ^- 

(HOLD) 

P 0 0 0 D 

58?0 


RTJ^ 

CONVRT 

p 0 q 0 E 

68 45 


STA^ 

IBJFFi 

P u (3 of 

4843 


3IQ- 

IBUF 

POOlO 

0849 


RAO* 

HOLD 

POQll 

EC48 


LDQ* 

(HOLD) 

PU012 

5818 


RTJ* 

CONVRT 

P0013 

6845 


STA* 

MBU- +1 

POO iH 

4843 


STQ* 

MBUF 

P G 0 1 5 

0C04 


ENQ 


P0D16 

EE43 


LOQ* 

(HOLD) , Q 

PQ017 

5816 


RTJ* 

CONVRT 

P0018 

682C 


STA* 

P8UF+1 

P 0 0 1 9 

482A 


STQ* 

PBUF 

'=001A 

5801 


RTJ* 

PRTl 

POQIB 

0 0 00 

PRTl 

NUM 

0 

PQQIC 

C8FE 


LOA* 

PRTl 

PG DID 

0927 


INA 

BUF-PRTl 

POOIE 

68 OA 


3TA* 

PRTS 

POOIF 

0C02 


ENQ 

2 

P0020 

CE39 


LOA* 

(HOLD) , Q 

P0021 

68 05 


STA* 

LU 

PCQ22 

5 4 F4 


RTJ- 

($F4) 

P 0 0 2 3 
P0 024 
PO 025 

4CQ0 
0 0 00 
OQOQ 

THUD 

NUM 

$4000 , J , 

P0 026 
P0027 

0 0 0 0 
0017 

LU 

NUM 

0,23 

PGu28 

0 0 0 0 

PRTS 

NUM 

0 

P0029 

G8FB 

PRT5 

LOA* 

THUD<-2 


SAVE TABLE AREA ADDRESS 
GET USER Q 
CONVERT TO ASCII 
STORE FOR OUTPUT 

SET UP FOR NEXT USER REGISTER 
GET USER A 
CONVERT TO ASCII 
STORE FOR OUT PUT 

SET UP FOR NEXT REGISTER 
GET USER I 


STORE FOR OUTPUT 


SET UP FOR NEXT REGISTER 
GET M CONTENTS 
CONVERT TO ASCII 
cttorf for output 


GET P CONTENTS 
CONVERT TO ASCII 
STORE FOR OUTPUT 


COMPUTE BUFFER LOCATION 


STORE ADDRESS FOR OUTPUT 

GFT OUTPUT UNIT 
STORE IN REQUEST 

WRITE THE MESS OUT 


SUHMARY-11GM950Q001 
M9500G02 
M95Q 0 003 
M950 0 004 
M95QQ005 
M95Q0006 
M95Q 0 Q0 7 
M9500008 
M95Q G0G9 
M950001G 
H95G 0011 
M95 0 0 012 
M950 00 13 
M950 0 0l4 
M950 C015 
M9500016 
M95J 0 017 
M9500Q18 
H950 G019 
M95GQu2C 
M9500U21 
M9530022 
M95u 0023 
M9500024 
M95 3 D 0 2 5 
M9500026 
M95G0027 
M9500028 
M9530029 
M95B 0Q3G 
M9 5 0 0 0 3 1 
M9500032 
M9500033 
M95D0034 
M950Q035 
M9530a36 
M9Ej0G 037 
M9500033 
M950 0 039 
M95 0 0 0 4 0 
M95 0 0 u 4l 
M95Q 0 0 42 
M9 5 0 0 0 4 3 
M953 0 0 44 
M950 0 0-+5 
M950 a 046 


M953 Q Q + 7 

M95J 0 0 48 
M9500049 
M95 J 0 05 0 


PRTREl 


PAGE 


2 


DATE; Dl/27/99 


0 0 5 1 =0D2A Old 
0052 PC02B 18FD 
0553 PGG2C 1CD3 
0 0 5 ^ 


PRT6 

V- 


SAZ PRT6-^-l 
JMP- PRT5 
JHP» (PRTREG) 


SKIP WHEN OUTPUT GOMPLETE 

WAIT SOHE MORE 

RETURN 


M9 5 0 0 051 
M95Q0Q52 
M95C0053 
MOSGOOSh 


PRTREl 


PAGE 


3 


date: 01/27/99 


0G5b 



0 05 7 



0 0 5 8 



0 3 59 

P00 2O 

GOOO 

0 C' 5 u 

PO G2E 

58 GO 

0G61 

P0Q2F 

68 2C 

00 6 2 

P 0 0 30 

580B 

0 0 5 3 

P 0 0 5 i 

E82A 

0 J 6 4 

PG032 

ICFA 

G065 



0 0 6 6 

P 0 0 5 3 

oooc 

0 0 6 7 

PO G34 

0 8 44 

00 68 

PD035 

0FE4 

0 0 6 9 

PG C 36 

09F5 

0 0 7 0 

P 0 0 3 7 

0131 

G j71 

PO 038 

G907 

0 0 72 

P0a39 

G93A 

0 0 7 3 

P003A 

1GF8 

G07A 



0 0 7 5 

P0Q3B 

00 00 

0 0 76 

P0 03C 

58F6 

0 0 7 7 

P0 03D 

0 FC8 

0 0 7 8 

PO 03E 

&81C 

0 0 79 

P003F 

58F3 

0 0 5 3 

P0G40 

88 lA 

00 3 1 

P 0 0 4 1 

1CF9 

0332 



0083 



008 4 



0 0 3 5 

P0042 

50 3D 

03 3 6 

Pfl 043 

GOOO 


P0Q44 

0 0 0 0 

00 3 7 

P0Q45 

2020 


P 0 0 4o 

2020 


P0047 

413D 

00 88 

PC 048 

0 0 00 


P0G49 

0 0 00 

Qu89 

P0 04A 

20 20 


P004B 

2020 


P004C 

513D 

0Q9Q 

P u 040 

0 OUQ 


PQ04E 

G 0 00 

0 0 9 1 

P004F 

20 20 


P005u 

2020 


P0051 

4930 

Qu 92 

P0052 

0 0 GO 


PG053 

GOOO 

0 G 9 3 

P 0 G 4 

2020 


P0u55 

2020 


PfluSb 

4D3D 

0Q94 

P0G57 

0 0 QO 


P0058 

GOOD 

0 0 95 




^ THE FOLLOWING CONVERTS A WORD TO 4 HEX DIGITS IN 
^ A AND Q. MOST SIGNIFICANT DIGITS IN Q. NUMBER IN Q ON ENTRY 


CONVRT 

NUM 

0 

GET 2 CHARACTERS 

RTJ» 

CON7 


STA^'- 

TEMPH 

SAVE THEM TEMPORARILY 


RTJ'^ 

LDQ» 

G0N7 

TEMP+1 

2 MORE 


JHP^^ 

(CDNVRT ) 

RETURN 

CONiO 

NUM 

CLR 

LLS 

INA 

3 

A 



A 

4 

-$A 

SHIFT 1 HEX DIGIT INTO A 


SAM 

CONll-’^-l 

SKIP IF DIGIT LESS THAN A 


INA 

7 


CONll 

INA 

$3 A 

RETURN WITH CONVERTED DIGIT IN A 

jf. 

JMP» 

(C3N10 ) 

C0N7 

NUM 

3 

CONVERT 1 DIGIT 

RTJ^ 

GONIO 


ALS 

STA^ 

8 

TEMP 

PACK LEFT DIGIT 


RTJ^- 

CONIO 

CONVERT RIGHT DIGIT 


EOR^ 

TEMP 

PACK IT 

iL 

JMP» 

(C3N7) 

RETURN 

* OUTPUT AREA 

J&. 


BUF 

ALF 

i,? = 


PBUF 

NUM 

0,0 



ALF 3, A= 


ABUF NUM Q,G 

ALF 3, Q= 


Q8UF NUM 0,0 

ALF 3, 1= 

IBUF NUM 0,0 

ALF 3, M= 


MBUF NUM 0,G 


-¥■ 


H9500a56 
M953 0 05 7 
M95Q 0 05 6 
M9500 059 
M9 5 0 0 0 6 G 
M950 OQbl 
M9500052 
M950D063 
M950 G 064 
M950 0 Do 5 
M950u'J65 
M950 0 067 
M953 0 068 
M95G0069 
M9500070 
M950 0 G71 
M95CQ072 
M95QQ073 
M950D074 
M950D 075 
M95C 0 076 
M95U0077 
M953 0 0 78 
M950 0079 
M95 0 0 Q 8 0 
M950 01J81 
M95D0Q82 
M9500083 
M950 0 084 
M950 0 085 
M95u0086 

M950 G 087 


M95Q0088 
M953 0 Q89 


M953G09G 

M95Q0G91 


M950 u Q92 
M9500G93 

M95GQU94 
M95G 0 095 


4 0 ' 


PRTREl 




date; 01/27/99 


o 


h 


P00 59 0 0 01 HOLD BSS HOLDd) BREAKPOINT TABLE AREA BASE ADDRESS 

P005A 0001 TEMP BSS TEMP(l) SCRATCH 

0098 end 


M95G0 Q9d 
M95Q 0 09 7 
M953Q398 


o 


P9^= 005B { 91) COM = 0000 ( 0) DAT = 0000 ( D) 


t a u I V 


DEF .LINE 
0 u 0 G 


PRTRFl PAGE 5 DATE: 01/27/99 

A L £ N C E S 


MANE VALUE RE-ERENCED AT LIME NUMBER 

I OOFF (D00255) 



1 


PRTREl 


PAGE 6 


date: 01/27/99 


SYMBOLS 


RE-ERENGED AT LINE NUMBER 
0 0 53 

0036, 003fl, 0039 
0 0 50 
D 0 43 
0 u 40 
Q 0 52 
u 0 51. 

0012, 0017, 0022, 0027, 0C32, 006h 
0073, 0076, 0079 

0 0 70 

0060, 0062, 0081 
0 0 39 

0033, 0034 

0018, G'019 

0013, 0014 
0023, 0024 

OQIO’, yfi, 0015, 0016, GG20, 0 021, '0025, 0G26, 0031, 0042 
0061, QQ63, 0078, Q08Q 


(t) 


o 


o 


o 


o 


o 




DEF.LINE 

NAME 

address 

0 0 0 9 

PRTREG 

0 00 0 

00 3 7 

PRTl 

OOIB 

00 46 

THUD 

0023 

0 0 4 7 

LU 

0026 

9 0 48 

PRTS 

0 028 

0 050 

PRT5 

0 0 2 9 

00 53 

PRT6 

002C 

0 0 59 

CONVRT 

002D 

0 0 65 

CONIO 

0 0 33 

0072 

30N11 

Q039 

0 0 75 

CON7 

0Q3B 

008 5 

BUF 

0042 

0 0 8 6 

PBUF 

0043 

0 0 88 

ABUF 

0048 

0 090 

QBUF 

004D 

0Q92 

IBUF 

0052 

0C94 

M8UF 

0057 

Q096 

HOLD 

00 59 

0C97 

TEMP 

005A 


o 

o 


Z"' 


I 


o 


c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C'} 


PRTREi 


PAGE 


7 


DATE; 01/27/99 


ft 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M 

B 0 L S 











ABJF 

LU 

TE'IP 

0 038 
0 047 
0 097 

BUF 

MBUF 

THUD 

0 0 85 
0 094 
0 0 43 

CONIO 

PBUF 

0 0 65 
0 0 85 

CONll 

PRTl 

0072 
00 37 

CON7 

PRT5 

0075 
00 5 0 

CONVRT 

PRT6 

0 059 
0 05 3 

HOLD 

PRTREG 

00 95 
0 0 0 9 

I 

PRTS 

QQOe 

0 048 

IBUF 

QBUF 

0 092 
■ 0 090 


SETAQl 




1 


DATE! Oi/27/99 


OGOi 
00 0 2 
QQ 03 
i3Q 0 ^ 
00 0 5 
00 0 6 
03 0 7 
0 3 0 8 


NAM SETAQl DECK- ID M9o MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197o 


SUHMARY- 



0010 

DUOO 0 

0 0 00 

SETAQl 

NUM 

Q 


GjII 

POOOl 

090C 


INA 

12 


0 012 

PO 0 u 2 

60FF 


STA- 

I 


0 013 

P 00 03 

0 A 02 


ENA 

2 


001-4 

POGu 4 

o825 


STA^ 

HOIX 

l'”*" \ 

0015 

P 0 Q 0 5 

0 8^-4 


CLR 

A 


0 016 

P0CG6 

6824 


STA^ 

CHAR 


0017 



■if 




0G18 

P00G7 

5833 


RTJ» 

GET 


U J 19 

P 0 0 0 8 

Q9D3 


INA 

-52C 

1 

00 2 0 

P00u9 

0102 


SAZ 

SET1---1 


G021 

PO OQA 

0 A G 0 

SET05 

ENA 

0 


0 3 22 

POuCB 

1128 


JMP- 

4 0,1 


QC23 

POfluC 

583F 

SETl 

RTJ- 

HEX 

t 1 

0 0 2 4 

POOOD 

681E 


STA^ 

BASE 


0 0 2 5 

POGOE 

5 8 2C 


RTJ^ 

GET 


0 0 2 6 

POO^jF 

0 9 04 


INA 

-$2B 


00 2 7 

PDQIO 

0 107 


SAZ 

SET2-^-l 


0023 

DOUll 

0 9 08 


INA 

$ 3 


00 29 

P0G12 

Gill 


SAN 

TRYFF 


00 3 0 

P0G13 

1808 


JMP^ 

SET3 


0031 

POOl-4 

90 00 

TRYF" 

SUB 

= N$DF 



P0015 

0 ODF 





0 3 32 

P0016 

0104 


SAZ 

SET3-^-l 


00 33 

P0017 

18F2 


JMP«^ 

3ET05 


00 3 4 

POO 18 

5833 

SET2 

RTJ^ 

HEX 

'Sv.-''” 

03 35 

P0019 

8812 


ADD^ 

BASE 


QQ3u 

POOIA 

6811 


STA^ 

BASE 


00 3? 

PDOIB 

Cl 01 

SETS 

LDA- 

1,1 


00 3 8 

POQIC 

A 0 lA 


AND- 

$1A 


0 3 39 

POOID 

900 0 


SUB 

= N B 4 9 u 0 



POOIE 

49 00 





0 0 4 0 

PODIF 

0 9 42 


CLR 

Q 


0 0 41 

P0Q2Q 

G102 


SAZ 

SET35-'‘-l 

U 

00 42 

PDu21 

0123 


SAP 

SET5-^-l 


03 43 

P0022 

0131 


SAM 

SET4-^-l 


0044 

P0023 

QD Q1 

SET35 

INQ 

1 


0 0 4 5 

P0024 

ODQl 

SETA 

INQ 

1 

u 

0046 

P0025 

C806 

SETS 

LDA» 

BASE 


0 0 47 

P0026 

OOF3 


IMQ 

-12 


0048 

P 0 0 2 7 

6722 


STA- 

($22) ,B 


QQ49 

POO 2 8 

1CD7 


JMP^ 

(SETAQl ) 


03 50 



¥■ 




00 5 1 

P0029 

0 0 01 

WDTX 

BSS 

WDIX (1) 


^ THIS PROGRAM PROOESSES ^SAH, «^SQH, AND ♦S IH FOR BREAKPOINT. 

^ THP ADDRESS OF THE BREAKPOINT TABLES IS IN A ON ENTRY. 

THIS PROGRAM MOVES CORRECT INPUI DATA TO QX , AX, OR IX IN BRKPTD. 


LOCATION OF INPUT BUFFER 
WORD INDEX TO 5TH CHARACTER 


SET CHARACTER FLAG FOR LEFT 
GET OELIMITOR 
SKIP IF A COMMA 

FORMAT ERROR - BACK TO CONTROL PROGRAM 
CONVERT BASE VALUE OF INPUT DATA 

GET OELIMITOR 

SKID IF A PLUS 
IS IT A BLANK 


IS IT A FF 

SKIP IF STATEMENT END 
FORMAT ERROR - BACK TO BRKPTD 
CONVERT INCREMENT 

INCREMENT ADDED TO BASE VALUE 
GET WORD WITH 3RD CHARACTER 
UNPACK IT 


SKIP IF I TO BE CHANGED 
SKIP IF Q TO BE CHANGED 
SKIP IF A TO BE CHANGED 
Q TO BE CHANGED 

Q HAS INDEX TO QX, AX, OR IX 

STORE NEW VALUE IN REGISTER STORAGE 
DONE 

WORD INDEX TO INPUT BUFFER 


110M9600GC1 
M96aOQQ2 
M96Q00Q3 
M963 QOOH 
M96G 0 005 
M9&3G0Q5 
M963U0Q7 
M9 60 G G 0 8 
M9600Q09 
M960 OGIQ 
M96DG011 
M96Q Q012 
M96Q 0 013 
M9630014 
M9630015 
M960 0016 
H9500017 
M96u0ai8 
M960 0 019 
M960 0 020 
M960 0 32 1 
M960G022 
M96D 0 023 
M96G 0 024 
M963 0 02 5 
M9630U26 
M963 0027 
M95DQ028 
M963 0 029 
M96Q0030 
M960G031 

H9bQ 0 Q32 
M9600033 
M9600Q34 
M960 0035 
M9600Q36 
M9&Q 0 03 7 
M9600038 
M96D0039 

M960004Q 
M9bG0Q41 
M 9600042 
M9600043 
H9 6 0 0 0 4 4 
M96J0045 
M9600046 
M9B00047 
M9600048 
M9 6 0 0 0 49 
M96u 0 0 50 
M95G C051 




SETAQl 



^AGE 2 

date: 01/27/99 


03 52 

P002A 

Ou 01 

CHAR 

BSS 

CHAR(l) 

CHARACTER FLAG Q=LEFT 1=RIGHT 

M9600 052 

0053 

PO 02B 

0 0 01 

BASE 

BSS 

BA3E( 1) 

STORAGE FOR NEW VALUE 

M9600 055 

0 0 5 

P0G2C 

0 0 03 

NUH 

BSS 

NUN (3) 

SCRATCH 

M963 0 0^4 

0 0 5 5 



¥ 




M96G 0 055 

00 56 



^ THE 

FOLLOWING BACKS UP 

THE STATEMENT SCAN BY ONE CHARACTER. 

M960 0 05 6 

005 7 



¥ 




M96G U 05 7 

G- 58 

P0 02F 

3 OGO 

BACK 

NUM 

Q 


M960 0 058 

Q059 

P0030 

C8F9 


LDA'-^ 

CHAR 


M96QG059 

0 0 5 0 

PO u31 

0115 


SAN 

3ACKl-^-l 

SKIP ON CHAR = RIGHT 

M96 u G 06 0 

0 U 6 1 

P0QS2 

D8F7 


RAO» 

CHAR 


M96C 0 051 

0 0 5 2 

P0033 

C8F5 


LDA'^ 

WDIX 


M960 0 052 

0 0 6 3 

P0 034 

09FE 


INA 

-1 


M9600Q&3 

00 5-^ 

PG035 

68F3 


STA^ 

WQIX 


M960 0 064 

0 0 5 5 

P0036 

1CF8 


JMP^ 

{ BACK) 


M9600065 

0 j 5 6 

P0037 

0 8 44 

BACK! 

CLR 

A 


M9b0 0066 

03 57 

POO 38 

58F1 


STA^ 

CHAR 

SET CHAR TO LEFT 

M96jOQ67 

G Jo3 

P0039 

1CF5 


JMP^ 

( BACK) 


M 9 6 G 0 0 6 3 

0059 



¥ 




M96 0 0 059 

0070 



» THIS 

SUBROUTINE UNPACKS 

ONE CHARACTER FROM THE INPUT BUFFER 

M9 60 00 7 0 

0371 



- AND 

RETURNS IT IN A. 


M96G GG71 

00 72 



¥ 




M96Q 0 072 

00 7 3 

P003A 

00 00 

GET 

NUH 

Q 


M960 0 073 

0 0 7 4 

PQ03B 

COED 


LOA^ 

(WDIX ) , I 

GET CHARACTER WORD 

M960 0 074 

00 7 5 

P00 3C 

E8E0 


LDQ^ 

CHAR 

CHARACTER FLAG Q=LEFT 1=RIGHT 

M960 0 075 

GO 7 6 

P0030 

0 151 


SQN 

GETl-^-i 

SKIP ON RIGHT CHARACTER 

M960 0 076 

0077 

P0 03E 

QFC3 


ALS 

8 


M96 0 0 0 77 

03 7 8 

P003F 

AO OA 

GETl 

AND- 

SA 

UNPACK IT 

M96] 0078 

03 79 

POO 40 

0 1 44 


3QZ 

GET2-^--l 

SKIP ON LEFT 

M9600079 

008 0 

P0 041 

0 3 42 


CLR 

Q 


H960 0 08 0 

00 81 

P0Q42 

4 8E7 


STQ^ 

CHAR 

UPDATE CHARACTER FLAG 

H96G0ij81 

Gb82 

POO A3 

9 8E5 


RAO^ 

WDIX 

UPDATE WORD INDEX 

M9600082 

0 0 3 3 

PG 0 iiii 

1CF5 



(GET) 

RETURN 

M9600G83 

008t 

P0G45 

D8E4 

GET2 

RAO^ 

CHAR 

UPDATE CHARACTER FLAG 

M9630084 

0 j3p 

P0w4o 

E8E2 


LOQ» 

WDIX 

TEST FOR BUFFER END 

M9600085 

03 3 6 

PO u47 

ODDA 


INQ 

-37 


H96D 0 086 

GO 3 7 

P00^8 

01 41 


soz 

OFLOW-'^-l 

SKIP ON INPUT BUFFER END - ERROR 

M960Q087 

0 0 8 8 

P 0 0 49 

ICFO 


JMP¥ 

(GET) 

RETURN 

M96D 0 088 

00 3 9 

P004A 

18BF 

OFLOW 

JHP’^ 

SET05 


H9600089 

00 90 



¥ 




M96Cfl 090 

0 0 91 



^ THIS 

ROUTINE CONVERTS A 

HEX (ASCII) FIELD TO BINARY. 

H96Q U 091 

00 92 



¥ 




M950 0 092 

00 93 

PG04B 

GO QG 

HEX 

NUM 

0 


M96Q 0 093 

0094 

PO G4C 

0 8 44 


CLR 

A 


M9600Q94 

00 9 5 

P0Q4Q 

68DE 


STA^ 

NUN 

INITIALIZE CONVERTED VALUE 

M9600095 

u G 9 5 

P004E 

OAFA 


ENA 

- 5 


M9fa0 0 09 5 

Q093 

P0 0 4F 

&80n 


STA^ 

NUNfl 

INITIALIZE DIGIT COUNT 

M960 0 097 

00 98 



¥ 




M960 0 096 

00 99 

P0 05G 

58E9 

HEX3 

RTJ^ 

GET 

GET A CHARACTER 

M960C099 

010 u 

P0051 

C9CF 


INA 

-$30 

UNDER $30 CHECK 

M960 0 10 0 

GIO 1 

P0G5 2 

0121 


SAP 

HEX4-^-l 

SKIP ON NUMERIC - MAYBE 

M9600101 

010 2 

P 0 3 5 3 

1812 


JMP^ 

HEXIO 

NOT NUMERIC 

M96Q01Q2 

010 3 

PQQ54 

G822 

HEX4 

TRA 

Q 


M9600103 

010 4 

P0 055 

0DF5 


INQ 

-S A 


M9530104 


u 


r^ 




o 

o 


(■"■'I 


o 


u 


o 


o 

o 


/ "I 


o 

o 


SETAQl 


PAGE 


date: 01/27/99 


CIO 5 

P 0 0 5o 

0175 


SQM 

HEX4Q5-^-l 

SKIP ON DIGIT 0 THRU 9 

M960 010 5 

013 6 

P0057 

09F8 


INA 

-7 



M9 b 0 0 1 0 6 

OiO 7 

P0 058 

Q0F8 


INQ 

-7 



M9600107 

010 8 

P0059 

017B 


SQM 

HEX 10 -^-1 

SKIP IF NON- 

NUMERIC 

M960 0108 

0109 

PO 05A 

0 DF9 


INQ 

- 6 

UNDER $^7 CHECK 

M9500109 

0110 

P0 05B 

0169 


SQP 

HEXlO-^-1 

SKIP IF NON- 

NUMERIC 

M96u0110 

0111 

P005C 

E8CF 

HEX405 

LDQ^ 

NU8 

CON‘(/ERTED DIGIT IN A 

M950 0111 

0112 

P 0 u 5 D 

0FA4 


QLS 

4 



M960 0112 

0113 

P005E 

08 74 


EAQ 

A 



M960 0113 

Oil-* 

P005F 

68GC 


STA'-f 

NUM 

PACKED DIGIT 

IS STORED 

M960Gll4 

0115 

P006G 

D8CC 


RAO^ 

NUM + 1 



M960 0 11 5 

0116 

P0C61 

C8CB 


LOA^ 

NUM + 1 



M963 0 115 

0117 

P0062 

0 111 


SAN 

HEX5-«-l 

SKIP IF 4 OR 

LESS DIGITS 

M960 0 117 

0118 

PQ063 

13 A6 


JMP^ 

SET05 

FORMAT ERROR 

- BACK TO CONTROL PROGRAM 

M9600118 

0119 

P 0 0 o 4 

18EB 

HEX5 

JMP» 

HEX 3 

CONTINUE 


M963 0 119 

0120 

P006 5 

58C9 

HEXIO 

RTJ» 

BACK 

BACK UP SCAN 

BY ONE 

M96Q012Q 

0121 

POQ 66 

C8C5 


LDA^ 

NUN 



M9600121 

0122 

PG067 

1CE3 


JHP- 

(HEX) 

RETURN 


M96GG122 

0123 




END 




M9 6 0 012 3 

PG8 = 

0068 

( IQ 

4) 30^ 

1 = 0 J 0 0 ( 0 ) 

DAT = GOUO ( 

0 ) 



o 

o 

o 

o 


( I 


V,./ 


n 


O 

O 

o 

o 


u--' 


c 








o 



SETAQi 

PAGE 4 date: 01/27/99 



'CT' 

c 

E a u I V 

A L E N C E S 




o 

(J 

DEF. LINE 

aAME VALUE 

REFERENCED AT LINE NUMBER 



o 


0 Q 0 l! 

I OOFF 

t 003255) 0012 




o 






o 

o 






o 







o 

o 






V..- 

o 






Q 

■'***) 







Q 






o 

o 






o 

o 






o 

o 






: C 

o 






O 

("") 






o 


SETAQl PAGE 

S Y M B 0 L S 


DEF . LINE 

NAME 

ADDRESS 

0 010 

SETAQl 

0 0 0 0 

0u21 

3 E T 05 

00 0 A 

0 0 23 

SETl 

uOOC 

OG 31 

TRYFF 

0014 

0C3h 

3ET2 

0018 

0 0 3 7 

3ET3 

OOIB 

0 G 4 4 

SET35 

QG23 

0 0 4 5 

SE Th 

002 4 

0 0 46 

3ET5 

u025 

0051 

WDIX 

0029 

3 0 52 

CHAR 

002A 

0 0 53 

BASE 

002B 

0 0 4 

NUM 

0G2C 

0058 

BACK 

Q02F 

0 066 

3ACK1 

00 3 7 

0 0 73 

GET 

003A 

0 0 78 

GETl 

0 03F 

0 08 4 

GET2 

0 045 

0 0 89 

OFLOW 

004A 

0093 

HEX 

0Q4B 

0G99 

HEX3 

0050 

0103 

HEX4 

005 4 

0111 

HEXhOB 

0 0 5C 

3119 

HEX5 

0064 

0 120 

HEXIO 

0065 


5 date; 01/27/99 


- ERENC 

ED AT 

LINE 

NUMBER 



0 0 49 
3 0 33 , 

0089, 

0118 




0 0 20 
0 029 
0 027 
00 30 , 
0 0 41 

0 032 





0 0 43 
0 0 42 
0014, 

0 062, 

0064, 

0 074, 

0082 , 

0085 

00 16, 

0 059, 

0 0 61, 

0 0 67, 

0C75, 

0 0 81 

0Q24, 

0 03 5, 

0 036, 

0 0 46 


0116 

0095 , 

0 097, 

Olli, 

0114, 

G115 , 

0 0 65, 
0 060 

0 068, 

0120 


0099 


0 018, 
0 0 76 

0025, 

0 0 83, 

0 088 , 



0 0 79 
0 0 87 
0 0 23 , 
0 119 

0 03 4, 

0122 




0101 
0105 
G117 
010 2, 

0108, 

0110 





G0 8A 
D121 


SETAQl PAGE 6 DATE: £1/27/99 


>(■ 9- V- l_ 

P H A 

B E T I 

GAL 

SORT 

0 F 

S Y M 

B 0 L S 

^ 4* Ar 










ba:k 

HEX 3 
SET2 

0 0 5 8 
0 09 9 
0 03 4 

BACKl 

HEX4 

SET3 

0 066 
0103 
3 037 

BASE 

HEX405 

SET35 

0 0 53 
3111 
0 0 44 

CHAR 

HEX5 

SET4 

0052 

0119 

0 0 45 

GET 

I 

SET5 

007 3 
OGQ Q 

0 0 H’O 

GETl 

NUM 

SETAQl 

0 078 
0 0 5 
ODID 

GET2 

OFLOW 

TRYF- 

00 8-^ 
00 89 
0 0 31 

HEX 
SET05 
WOI X 

0 C93 
0021 
0051 

HEXIQ 
5 ET 1 

0120 

CC23 


Of. 


CORDHi 


= AGE 


date: 01/27/99 


u 


o 


o 


U 0 0 1 
00 0 2 
D J 0 3 
0 3 D V 
03 0 5 
03 0 6 
0 33 7 


NAM CORUMi DECK-ID M97 MSOS 5.0 

♦ MASS STORAGE OPERATING SYSTEM VERSION 5.0 

^ SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

^ COPYRIGHT CONTROL DATA CORPORATION 1976 

* THIS PROGRAM PROCESSES ALL CORE DUMP REQUESTS FOR BREAKPOINT. 
^ CORE LOCATIO'J OF QX, IN BRKPTO, IS IN A ON ENTRY. 



00 0 9 

PODOG 

0 0 0 0 

COR 

NUM 

0 



0010 

PO 001 

090C 


INA 

12 



0311 

PGG02 

60FF 


STA- 

I 

INPUT BUFFER ADDRESS 


03 12 

P0 0 0 3 

0 8 -^4 


GER 

A 



0313 

POOO-t 

68 73 


STA^ 

CHAR 

SET FOR LEFT CHARACTER 


0014 

P0005 

GA02 


ENA 

2 



0015 

P00 0 6 

6870 


STA» 

W3IX 

SET FOR 5TH CHARACTER 

J 

0 316 








03 17 

POO J7 

ClOl 


LDA- 

1,1 

GET 2ND BUFFER WORD 


0018 

P00G8 

AOIA 


AND- 

$1A 

UNPACK LEFT CHARACTER (3RD) 

j \ 

OG 19 

P 0 G c 9 

QFC8 


ALS 

8 


1 I 

0 0 2 0 

P 0 0 0 A 

5 8 6E 


STA^‘ 

TYPE 

WILL TElL DUMP TYPE LATER 


0021 

PO OCB 

OCFe 


ENQ 

-7 



0u22 

POObC 

C722 


LDA- 

($ 22 ) ,a 

GET OUTPUT UNIT 


03 2 3 

PCCGG 

680 0 


STA 

LU 

SET OUTPUT UNIT 

■U 


PO OOE 

uQDl 






0 3 2 4 








0 0 2 5 

P 0 QuF 

0C14 


ENQ 

20 



0 0 2 6 

PuGlC 

CA DO 

COR03 

LDA 

OMPTAB, Q 

SEARCH DATA TABLE FOR DUMP TYPE 



PGOll 

0 0 99 






0 3 2 7 

P0C12 

9866 


3UB^ 

TYPE 



0u28 

P0ul3 

0102 


SAZ 

C0RG4-^-l 

SKIP IF RIGHT ONE FOUND 


00 29 

P0014 

GDFA 


INQ 

- 5 



0030 

PC015 

18FA 


JMP=*‘ 

COR03 

LOOK SOME MORE 


0 3 31 








00 3 2 

P0016 

CAQu 

CORD^ 

LOA 

OMPTASf 1,Q 


0 

’ G 0 3 3 

PO 017 
P0018 

0 0 94 
63 69 


STA^ 

INC REN 

SET NUMBER OF WORDS PER VALUE 


0 C 3 4 

P0G19 

CAGC 


LOA 

DMPTAB+2 ,Q 




PO OlA 

0 092 





0 

0 0 5 5 

PQQIB 

68 65 


STA^ 

VPL 

SET NUMBER OF VALUES PER LINE 

03 3 5 

PQOIC 

CAOO 


LOA 

DMPTAB^-3,Q 




POO 10 

C 0 90 






03 3 7 

POOIE 

6864 


STA^ 

CDNVRT 

SET INDEX TO CONVERSION ROUTINE 


0.. 38 

POGIF 

CAOO 


LDA 

DMPTABt-4,Q 




POG 20 

0 0 BE 






00 39 

P0021 

68 63 


STA* 

OBUF 

SET NUMBER OF POSITIONS PER DUMP 


0040 








00 41 

P0G22 

5800 


RTJ 

GET 

GET DELIMITOR 

‘-.J 


P0023 

016C 






00 42 

P0G24 

09D3 


INA 

-$2C 



QQ43 

P0025 

Q102 


SAZ 

CORl-^-1 

SKIP IF A COMMA 


0044 

P0026 

0A02 


ENA 

2 



0 0 4 5 

P0927 

1128 


JMP- 

40,1 

FORMAT ERROR - BACK TO BRKPTO 


00 4d 


SUMMARY-11GN97D OQOl 
H970Q002 
M97 0 0 0 0 3 
M9700Q04 
M9700aD5 
M970 0 006 
M97Q 0 00 7 
M97G0003 
M970 0 0(3 9 
M973 0 010 
M970Q011 
M97u 0 012 
M97u0 013 
M973 0014 
M97Q0Q15 
M973 0 016 
H97Q 0 017 
M9700016 
M973 0 019 
M970 0 020 
M97 0 0 0 2 1 
M970 0022 
M97j0023 

M97 3 0 024 
M970a025 
M973 0 02 6 

M973U027 
M973 0 028 
' H97j 00 29 
M9700030 
M970 0331 
M9700032 

M97Q0Q33 
M97'Jfl034 

M9730035 
M97 0 0 036 

M9700037 
M9730033 

M9700039 
M973C040 
M9700a4l 

M970 0 042 
M970 0 043 
M97u 0 044 
M97Gu045 
M970 0 u 4b 


o 

c 

o 

o 

o 

o 

(3 

O 


O 


O 

o 

o 


o 


4.x-' 


u 


C' 

r-\ 



COROHl 



PAGE 2 

DATEJ 01/27/99 


( 

L-' 

03^7 

POO 2 8 

58GQ 

CORl 

RTJ 

HEX 

GET START 

M97D0047 




P0029 

0131 







O 

0 0 t8 

P0 0 2A 

68 4F 


STA^ 

START 

STORE FOR DUMP START 

M973 J Q:,8 

0 

0349 

P0 02B 

58 0 0 


RTJ 

GET 

GET DELIHITOR 

M97G Q 04 9 



P0G2C 

01 63 





M97uGa50 



0Q50 

PG 020 

0903 


INA 

-$2C 



O 

0^51 

PDU2E 

01 C2 


SAZ 

C0R2-^-l 

SKIP IF A COMMA 

M97Q0051 

r'\ 

li j 52 

PQ02F 

C856 

C0R15 

LDA^ 

FSTRT 


H97Q0052 



0053 

P00 30 

1128 


JMP- 

40,1 

FORMAT ERROR - BACK TO BRKPTD 

M97C0Q53 



0 0 5 -+ 





M9700054 



0 0 55 

P0031 

5 8 U Q 

C0R2 

RTJ 

HEX 

GET DUMP END 

M9700055 

0 

'■~J 


PQ032 

0128 





M970Q05b 


0 0 5 5 

P0035 

68 h7 


STA'-^ 

END 

STORE FOR DUMP 



0057 

PCG3-+ 

58 30 


RTJ 

GET 

GET OELIMITOR 

M97uQ 057 


o 


PO 035 

0 1 5A 





M97GQ 058 

0 

G 3 5 R 

P0 036 

09D3 


INA 

-S2G 



03 5 9 

P0037 

0107 


SAZ 

C3R3-^-l 

SKIP IF A COMMA 

M9700G59 



035 0 

P0 038 

G90C 


INA 

SC 

IS IT A BLANK 

M97300&0 



0 3 51 

P0039 

0111 


SAN 

TRYFF 


M970GG51 

C\ 


0 3 52 

P0G3A 

180G 


JMP- 

C0R35 


M97GQ062 



00 63 

PD05R 

90 GO 

TRYF- 

SUB 

= NSDF 

IS IT A FF 

M9700063 




P0 0 3C 

u 0 DF 







o 

03 54 

P0Q3O 

0108 


SAZ 

C0R35-^-l ' 

SKIP ON STATEMENT END - NO BASE ADDRESS 

M97 J G 064 

C 

0 3 5 5 

P003E 

13F0 


JMP- 

C0R15 

FORMAT ERROR - BACK TO BRKPTD 

M97GQ055 


0055 





M9700066 



005 7 

POO 3F 

58G0 

C0R3 

RTJ 

HEX 

GET BASE 

M973G067 




P004U 

OllA 





M9700058 

0 

0353 

FuQ41 

8838 


ADO^ 

START 



0 0 5 9 

P u 0 4 2 

6837 


STA^ 

START 

BASE ADDED TO START OF DUMP 

M97a0059 



0070 

P0043 

C837 


LDA» 

END 


M9700U70 



0 0 7 1 

P0Q44 

8837 


AOO^ 

HUM 


M97D0 G71 

• 0 


0 3 7 2 

P0045 

6835 


STA^ 

END 

BASE ADDED TO END OF DUMP 

M97D0072 


0 3 73 

P 0 0 M- b 

C834 

COR35 

LDA^^ 

END 


M9700073 



0 3 7 h 

PQ047 

9832 


SUB^ 

START 


H97GDQ74 


0 
*>r— ^ 

0 3 75 

P00h8 

0122 


SAP 

COR 4 ---I 

SKIP IF END NOT LESS THAN START 

M973 3 073 


0 3 7 6 

PG G49 

OAOQ 


ENA 

0 


H970Q076 



0 0 77 

P u u 4 A 

1128 


JMP- 

■4* 0 j I 

BAD INPUT 

M9700077 



00 78 







M97j 0 078 



0 3 79 

POO 4 B 

58 01 

CORA 

RTJ^ 

»+i 


M97G0079 

G 


0 3 3 0 

PQ04C 

0 0 0 0 


NUH 

Q 


M970 0 080 


00 3 1 

POO 4 O 

G8FE 


LDA’^ 

^-1 


M97GG 031 



0 0 3 2 

PO 04E 

8u 00 


ADD 

=X3UTBUF-GOR4 

“ i 

M97Q 0 082 


o 


P0 04F 

0 0 3A 




STARTING ADDRESS FOR OUTPUT BUFFER 

M970Q083 

■ 0 

0 3 3 3 

P 0 05 0 
PO G5 1 

6 8 G 0 
0 090 


3TA 

ESS 






00 8 ^ 


if. 




M97G 0 0 84 


o 

0 3 8 5 

P0Q52 

GC23 

C0R5 

ENQ 

35 


M97D0085 

0 

0 3 5 c 

P0Q53 

CO 0 0 

C0R6 

LDA 

=NS2020 

BLANKS 

M9700085 



PC054 

2020 





M973Q067 



0 3 5 7 

P0055 

6A31 


STA^ 

OUTBUF, Q 

BLANK OUT BUFFER 


o 

3 0 8 8 

P G G 56 

ODFE 


INQ 

-1 


M970 0088 

0 

00 39 

F0057 

0171 


SQM 

COR8-^^-l 

SKIP WHEN DONE 

M973 G 089 


03 9 0 

PGG58 

18 FA 


JMP^^ 

COR5 


M97Q0090 


o 

C) 









0 

0 




CORDMl 
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date: 01/27/99 


. n 

G u 9 i 







M9700091 

w 

0G92 

PG 059 

0 8 44 

C0R8 

CLR 

A 


M97Qfl092 


0 ] 9o 

P00 5A 

6 8 0 0 


STA 

OBIX 

INITIALIZE BUFFER INDEX 

M973Q093 

* 


PDG5B 

0 0 85 







0D9-t 

PQflsC 

6827 


STA^ 

CV 

INITIALIZE CURRENT VALUES PER LINE 

M97Q0094 


0G95 

P005D 

C81C 


LDA» 

START 


M97D 0 095 


G 3 9 6 

PG 05E 

58 00 


RTJ 

HEXM 

CONVERT AND PUT LINE START ADDR. IN BUFFER 

M970D096 

: O 


P005F 

GO BC 





M97uQ097 

03 9 7 

P0050 

0AC5 


ENA 

5 



0^98 

P 0061 

687F 


STA^ 

oeix 

SET BUFFER INDEX FOR 1ST VALUE 

M97j0Q98 


03 99 





M9700099 

■ r''' 

OiOQ 







M970 0100 


0131 

PDQ62 

E82Q 

CORID 

LDQ- 

CONVRT 


M9700101 


010 2 

P0063 

5A60 


RTJ» 

CONTBL, Q 

CONVERT AND STORE A VALUE IN BUFFER 

M97001Q2 


010 3 

PO 0 DH 

C87C 


LDA^ 

OBIX 


M9700103 

O 

010 4 

POO 65 

881F 


ADO^ 

DBJF 


M973 0 10 4 

010 9 

POOdo 

68 7A 


STA» 

OBIX 


M97 0 0 10 5 


010 6 







M9700106 


010 7 

P0G67 

C812 


LDA^ 

START 


M97J 0137 

T') 

013 8 

PG 068 

8819 


ADD^ 

INCREM 


M9730108 


0109 

P0069 

6810 


STA^ 

START 

SET FOR NEXT VALUE 

M97GOi09 


0110 

P006A 

C810 


LDA^ 

END 


M973011Q 


0111 

P006B 

980E 


SUB^ 

START 


M9 73 0 111 

■ o 

0112 

P006C 

0 122 


SAP 

CORIOA 

SKIP IF NOT DONE 

M97JL112 

0113 

P006D 

586A 


RTJ- 

WRITE 

EMPTY THE BUFFER 

M97u0113 


Oil-* 

Pi; 06E 

1C91 


JMP^ 

(COR) 

DONE 

M970011H 


0115 

POflbF 

D814 

CORlG/1 

RAO^ 

CV 

ADO 1 TO CURRENT NO. OF VALUES ON THE LINE 

M9730115 

. 

0116 

P007G 

C813 


LDA^ 

CV 


M97Juil6 

V.-'' 

0117 

PG07i 

98 OF 


SUB’- 

VPL 


M9700117 


0118 

P0 072 

0112 


SAN 

CORli-’^-l 

SKIP IF MORE NEEDED ON THIS LINE 

M9700118 


0119 

P0073 

5864 


RTJ^ 

WRITE 

EMPTY LINE BUFFER 

M9733119 

: O 

0120 

POQ74 

18DD 


JHP» 

COR5 

PREPARE FOR NEXT LINE 

M970012G 

0121 







M9700121 


0122 

PGC75 

18EC 

CORii 

JMP^ 

CORiO 


M9700i22 


0123 







M970Q123 

■ o 

0124 





M970Q124 


0125 







M970G125 


012 6 

P 0 07 6 

0 0 01 

WBIX 

BSS 

HDIX (1) 

WORD INDEX TO INPUT BUFFER 

M970 012 6 


0127 

P0G77 

0 0 01 

CHAR 

BSS 

GHAR(l) 

CHARACTER FLAG Q=LEFT 1=RIGHT 

M9733 127 

: o 

G128 

POO 78 

0 0 01 

TYPE 

BSS 

TYPE(l) 

FORMAT TYPE (CHARACTER FROM COMMAND) 

M973 0128 

0129 

P0 0 79 

QOGl 

START 

BSS 

START (1 ) 

STARTING ADDRESS FOR DUMP (INCREMENTED) 

M97D 0129 


0130 

P007A 

0 0 01 

END 

BSS 

END (1) 

ENDING ADDRESS FOR DUMP 

M9 7 00 130 


0131 

PO u7B 

00 05 

NUM 

BSS 

NUM (5 ) 

SCRATCH 

M970G13i 

- o 

0132 

P00 80 

uOOl 

VPL 

BSS 

VPL (1) 

NUMBER OF VALUES PER LINE 

M9700132 

0133 

P0G81 

0 0 01 

INC REM 

BSS 

INDREH(l) 

INCREMENT BETWEEN CORE VALUES 

M970ai33 


0134 

P0G82 

0 0 01 

CONVRT 

BSS 

CONVRT ( 1 ) 

INDEX TO CONVERSION ROUTINE ENTRY 

M970 0134 


0135 

P0 06 3 

0 0 01 

CV 

BSS 

CV(1) 

CURRENT NUMBER OF VALUES ON THE LINE 

M97a0i35 

o 

0136 

P008A 

0 DOl 

OBUF 

BSS 

OBJFd) 

NUMBER OF POSITIONS PER FIELD 

M970G13 6 

013 7 

P0fl85 

0 0 01 

FSTRT 

BSS 

FSTRT (1 ) 

FIELD START INDEX 

M9700137 


0138 







M9700138 


0139 

PO 086 

0 0 24 

OUTBUF 

BSS 

OUTBUFI 36) 

OUTPUT BUFFER 

M973 0139 

■ o 


o 



GORDMl 




DATE: 01/27/99 


ul41 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 


* FOLLOWING TA9LE CONTAINS DATA FOR EACH TYPE OF DUMP. 

* EACH ENTRY CONSISTS OF 5 WORDS AS FOLLOWS, 

^ WORD 1 ASCII CHARACTER FROM COMMAND 

* WORD ? NO. OF WORDS FOR EACH VALUt. TO BE DUMPED 

» WORD 3 NUMBER OF VALUES ON EACH LINE OF THE DUMP 

^ WORD 4 INDEX TO A CONVERSION ROUTINE ^ 

^ WORD 5 NUMBER OF BUFFER WORDS PER FIELD 

0,2 A ASCII 


HEX 


0150 





$41,1 

0151 

PQQAA 

0 3 41 

DHFTAB 

NUM 

PQ OAB 

00 01 





POGAC 

00 0 8 





PGOAD 

QOCO 





POOAE 

3 0 02 



$50 ,!■ 

0152 

PGQAF 

0 0 50 


NUM 


POCBU 

G'GOl 





POuBi 

Q0G8 





P G 0B2 

0 0 04 





P0QB3 

GO C4 


NUM 

$44,3 

015 3 

PQ 0B4 

0 0 44 



POODS 

00 03 





P u G B6 

3 0 02 





P0GB7 

3 0 0 8 





PDGB8 

GOOD 



$49,1 

015 4 

P0089 

0 G 49 


NUM 

POuBA 

0 3 0 1 





P 0 0 B B 

3 0 0 8 





POQBG 

OOOC 





POOBD 

0 0 04 



$53,2 

015-5 

POQBE 

00 53 


NUM 

PGuBF 

G 0 02 





POQCO 

00 02 





POOCl 

Q3 10 





P00C2 

OOOD 




015 6 





ARE T 

015 7 



^ FOLLOWING 

015 8 




NUM 


015 9 

PQQC3 

0 0 0 0 

CONTBL 

0 

QlSu 

POGC 4 

58 0 0 


RTJ 

ASCI I 


P 0 0 C 5 

00 21 



(^-3 ) 

0161 

P00G6 

ICFC 


JMP^ 

315 2 

P00C7 

0 0 0 0 


NUM 

0 

015 3 

P0QC8 

580 Q 


RTU 

HEXO 


puocg 

0022 



(^-3) 

0154 

PQQCA 

ICFG 


JHP^ 

0165 

POGCB 

0 0 00 


NUM 

0 

316 6 

P03CC 

58CQ 


RTU 

DP 


PG OCO 

0 OOA 



(^-3) 

0167 

p&acE 

ICFC 


JMP-»- 

0158 

POOCF 

00 00 


NUM 

0 

0159 

POQDG 

5800 


RTJ 

DEC I 


PGODl 

G 052 





0 DOUBLE PRECISION 


0 EC IMA L 


SINGLE PRECISION 


ASCII CONVERSION 


HEX CONVERSION 


DOUBLE PRECISION 


DECIMAL CONVERSION 


H970G141 
M9700142 
M97u0 143 
M970 0144 
M973Q145 
M9700145 
M97Q 0147 
M970 0148 
M970 0149 
M970U15Q 
M9700151 


M9700152 


H970Q153 


M97Q G 154 


M9700155 


M970015b 
M9700157 
N970Q 158 
M973 0 159 
M970 0160 

M9700161 
M970 0 152 
M970Q163 

M970 0 15 u 
M97D0155 
M9700156 

H9700 167 
M973 0 158 
M97001o9 


o 


CORDMl 


PAGE 


DATEJ 01/27/99 


c 


5 



ui70 

P00D2 

ICFC 


JMP^ 

(^-3 ) 


M9700170 



C171 

PO0D3 

0 0 G G 


NUM 

0 


M9700171 



01/2 

POODh 

58 00 


RTJ 

SP 

SINGLE PRECISION 

M9700 172 

0 

C-' 


P00D5 

0 0 03 








01/3 

PObOb 

ICFC 


JMP^ 

C^-3) 


M97G0173 



017*4 







M9700174 



Ql/a 



^ THE FOLLOWING ROUTINE 

WRITES THE OUTPUT BUFFER OUT. 

M973 0175 

0 

o 

Oi/6 







M97] 0176 


01/ 7 

P00D7 

0 0 00 

WRITE 

NUM 

G 


M97Q 0177 



0176 

P0GD6 

C8 08 


LDA^ 

OBIX 


M97D0178 



0179 

PG 009 

09FE 


INA 

-1 


M97j 0179 

■ 0 


0130 

PODDA 

68 0 6 


STA^ 

OBIX 


■ M97Q 018Q 



0131 

PflODB 

54F4 


RTJ- 

($-4) 

EMPTY THE BUFFER 

M9700181 



0182 

POODC 

4C00 


NUM 

$4300, 0 , 0 


M970 0 182 


p) 


POOOO 

0 0 9 0 






0 



PO ODE 

00 GO 







0133 

POGDF 

0 0 0 0 

LU 

NUM 

0 


M97C0183 



0184 

POQEG 

Q G 00 

OBIX 

NUM 

0 


M970Q184 


\ 

013 5 

PuOtl 

0 0 00 

ESS 

NUM 

G 


M9700185 


1 I 

OiSfa 



31- 




M97Q0186 



013 7 

P00E2 

C8FB 

WRITEl 

LDA^ 

LU-1 

THREAD TO A 

M9700137 



0186 

PC0E3 

0101 


SAZ 

WRITE2-+-1 

SKIP WHEN OUTPUT DONE 

M9700 186 


/ *'v 

0139 

POOE 4 

18FD 


JMP^ 

WRITEl 

WAIT 

M973 0189 

0 


G19u 

P0uE5 

ICFl 

WRITE2 

JMP^ 

(WRITE) 

DONE 

M973019Q 



0191 







M970G191 



0192 



^ THIS 

ROUTINE MOVES DATA FROM MEMORY TO THE OUTPUT BUFFER. 

M9700192 



0193 



^ THIS 

IS THE SO-CALLED 

ASCII CONVERSION WHICH REQUIRES NO WORK. 

Mg70Q193 


u 

019- 







H97QQ194 



0195 

P 0 0 E6 

0 0 0 0 

ASCII 

NUM 

0 


M97Q0195 



019 5 

POO E7 

CC91 


LDA^ 

(START ) 

GET A DATA WORD 

M97D0196 



0197 

P00E8 

E8F7 


LDQ^ 

OBIX 

INDEX TO CURRENT BUFFER POSITION 

M97G0197 

0 

‘■vw^ 

0193 

P00E9 

6A9C 


STA^ 

OUT3UF, Q 

STORE IN BUFFER 

M9730198 



0199 

POOEA 

ICFB 


JMP^ 

(ASCII) 

THATS ALL THERE IS TO IT 

M97j0199 



G20 3 







M9730200 



020 1 



^ THIS 

ROUTINE CONVERTS 

ONE VALUE TO FOUR 

M970 G201 


'■J 

G2G 2 



^ ASCII 

: HEX 

VALUES AN3 

STORES THEM IN THE OUTPUT BUFFER. 

M973Q202 



020 3 







M9700203 



0 2 0 4 

PO GE8 

0 0 0 0 

HEXO 

NUM 

Q 


M970 0204 



0205 

POQEG 

CC8C 


LOA^ 

(START) 

GET A VALUE 

M97J 0 205 

0 

•v-j 

0 23 o 

PO OED 

OCOl 

HEXHi 

ENQ 

1 


M970 0 20 6 



02 0 7 

POQEE 

48SC 


STQ^-- 

NUM 

LOOP INITIALIZER 

H97Q 020 7 



0208 

POGEF 

0 8 42 

HEXOl 

CL R 

Q 


H97Q 0208 


P 

0209 

POOFO 

0 F E4 


LLS 

4 

GET 1 HEX DIGIT 

M973 G209 

0 


0210 

PGQFl 

EA22 


LDQ^ 

HEXC3N, Q 

LOOK UP ASCII 

M97jG21D 


0211 

P0DF2 

0FA8 


QLS 

8 


M97G0211 



0212 

PuOF3 

4888 


STQ^ 

NJM + 1 

PACK IT 

M97Q0212 


P, 

0213 

0OOF4 

0842 


CLR 

G) 


M97Q 0 213 

0 


0214 

P0QF5 

0FE4 


LLS 

4 

GET NEXT HEX DIGIT 

M97G 0214 


0215 

PQ0F& 

EAID 


LDQ^ 

HEXCON,0 

LOOK UP ASCII 

M9700215 



0216 

POOF/ 

F884 


AOQ^ 

NUM + 1 


M97Q 0 216 


P 

0217 

P00F8 

48 83 


STQ^ 

NUM + 1 

PACK WITH OTHER 

M973 0217 

0 

‘•J 

0216 

P00F9 

E881 


LDQ^ 

NUM 


M97QG218 


0219 

PG GFA 

OOFE 


INQ 

-1 


M97G G 219 



o 


o 


CORDMl 




0?? Q 
G22t 

0222 

0223 

G 2 2 

G225 
022 6 
0227 

0226 

0229 

023 0 

0231 

02 3 2 

0233 

0234 
02 3 5 
0236 
023 7 

0238 

0239 

0240 

0241 

0242 


02 43 


02 44 

0245 

0246 
024 7 

0248 

0249 


DATE! ul/27/99 


POOFB 

0179 


SQM 

HEXOZ-'^-l 

POOFC 

48 DQ 


STQ 

NUM 

PflOFD 

FF70 



NUM + 1 

POOFE 

E3 00 


LDQ 

POOFF 

FF7C 




PG 10 y 

4800 


STQ 

NUM + 2 

POlOl 

FF 7B 


STQ 

NUM + 2 

P0102 

48 0 0 


P0103 

FF79 




P0104 

18EA 


JHP- 

HEXOl 

PQ1G5 

C800 

HEX02 

LDA 

NUM<-2 

POlO 6 

FF76 




P0107 

E8D8 


LDQ’^ 

OBIX 

P01G8 

6AGQ 


5TA 

OUTBUF.Q 

= 0109 

FF7C 




POlOA 

C800 


LDA 

NUM + 1 

POIOB 

FF70 




POIOC 

6A00 


STA 

OUT8UF + 1 ,a 

= 0100 

FF79 




POlOE 

ICDC 


JMP* 

(HEXO) 

PGluF 

GOOD 

HEXH 

NUM 

0 

POllO 

E8FE 


LDQ-^ 

HEXH 

POlll 

48D9 


STQ^ 

HEXO 

P0112 

18DA 


JMP- 

HEX Ml 


¥■ 


SKIP IF 4 DIGITS CONVERTED 
MOVW 

MOVE CONVERTED PAIR TO SAFETY 
CONTINUE 

GET MOST SIGNIFICANT PAIR 

BUFFER INDEX 
STORE IN BUFFER 

LEAST SIGNIFICANT PAIR 

STORE THOSE IN BUFFER TOO 

ALL DONE 

SPECIAL ENTRY FOR LINE START ETC. 
SET FOR NORMAL HEXO EXIT 


p 0 11 3 J 0 3 0 
P0114 0031 
P0115 0032 
P0 11 6 0 0 33 
P0117 0034 
POliS 0035 
P0119 0036 
POllA 0037 
POllB 0038 
POllC 0039 
POllD 00 41 
POllE 0042 
PC IIF 0 0 43 
PO 12 0 0 0 44 
PQ121 0 0 45 
P0 12 2 0 0 46 


^ HEX-ASCII CO'^VERSION TABLE 
^ HEX TABLE LOOK-UP GIVES ASCII VALUE 

HEXCDN NUM $30i $31 , S32 , $33 , $34 , S3 5 , $ 3 6 , S3 7 , S 3 8 , $ 39 


NUM $41, $42, $43. $44, $^45, $46 


THIS ROUTINE CONVERTS ONE VALUE TO FIVE ASCII 
* DECIMAL DIGITS AND STORES THEM WITH SIGN IN THE OUTPUT BUFFER 


PC123 0000 DECI NUM 0 

PQ124 CCOO LDA {START) 

P0125 FF53 


GET A VALUE 


M970 D22G 
M97G0221 

M97Q 0 222 

M970a223 

M97J 0224 

M97G0225 
M970 0 22 6 
M97D 0227 

M9700228 
M970 0 22 9 

M9700230 

M97 0Q231 

M9730232 
M97Q0233 
M97-'0 234 
M9700235 
M970 0236 
M9700237 
M97G0238 
M97QQ239 
H97Q 0 240 
M97G0241 
M9700242 


M97D 0 243 


H97G0244 
M97Q0245 
M970024D 
M97Q 0247 
H97j 0248 
M970 0 249 


CORDMl 
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o 


1 


0250 

P0126 

P0127 

E 0 00 
20 30 


LDQ 

=N$2030 

0 2 51 

PO 128 

0123 


SAP 

OECIl-^-1 

0252 

P0129 

P012A 

ED GO 
2030 


LDQ 

=N$2D3D 

02 5 3 

PO 12B 

0 864 


TCA 

A 

025^+ 

PQ12C 

482B 

OECIl 

STQ^ 

OECNUM 

02 5 5 

PQ12D 
PO 12E 

EO 00 
3030 


LDQ 

=NS3 0 30 

025 6 

P012F 

4829 


STQ- 

OECNUM41 

0257 

PQ130 

4829 


STQ-'^ 

DECNUM+2 

0258 

P0131 

0 8 42 


CLR 

Q 

02 5 9 

PO 132 
P0133 

3GG0 

2710 


DVI 

= N 1 u 0 0 D 

0250 

P0134 

8323 


ADD'^ 

OECNUM 

026 1 

P0135 

6322 


STA» 

DECNUM 

0262 

P0136 

0814 


TRQ 

A 

0253 

P0137 

0 8 42 


CLR 

Q 

0 2 6 4 

P0138 

P0139 

30 00 
03E8 


DVI 

=N1000 

02 65 

P013A 

881E 


ADD-^ 

OECNUMf 1 

0 2 6 6 

P0138 

QFC8 


ALS 

8 

0 2 6 7 

P013C 

681C 


STA^ 

OECNUMH 

0268 

P013D 

0 814 


TRQ 

A 

0269 

P013E 

08 42 


CLR 

Q 

0 2 7 0 

P013F 
PO 1-+Q 

30 00 
0 0 64 


DVI 

= M1Q0 

0271 

PQl^l 

8817 


AOD^ 

DEC MUM H 

0272 

P0142 

6815 


STA^ 

OECNUMf 1 

0273 

P0143 

0 814 


TRQ 

A 

0274- 

P014H 

0 8 42 


CLR 

Q 

0275 

P0145 

P0146 

3QQ0 
0 0 QA 


DVI 

= N10 

027 6 

P0147 

8812 


ADO- 

DECNUMfZ 

02 77 

P0148 

0 FC8 


ALS 

3 

0278 

P0149 

0 8 34 


AAQ 

A 

0 279 
0 280 

P014A 

68 OF 


STA^- 

□ECNUM+2 

02 3 1 

P014B 

Pul4C 

E8 00 
FF93 


LDQ 

OBIX 

0282 

P014D 

40 FF 


STQ- 

I 

023 3 

PQ14E 

0C02 


ENQ 

2 

0 2 3^ 

P014F 

P0150 

CAOO 
0 0 07 

DECI2 

LOA 

OEGNJH,Q 

0285 

P0151 

P0152 

6B0Q 

FF33 


STA 

OUTBUF , B 

0286 

PQ153 

QOFE 


INQ 

-1 

028 7 

PG154 

0 171 


SQM 

DtCI3-'^-l 

0288 

PC155 

18F9 


JMP^ 

OECI2 

0 23 9 
0290 

P0156 

ICCG 

DECI3 

JMP- 

(DECI) 

0291 

0292 

P0157 

0 0 03 

DECNJM 

BSS 

OECNUM (3) 


SET FOR BLANK (PLUS) 

SKIP IF NUMBER IS POSITIVE 
MINUS 

SET VALUE POSITIVE FOR PROCESSING 
STORE MINUS SIGN OR BLANK 

SET ALL DIGITS TO ZERO 


NUMBER OF TEN THOUSANDS IS PACKED 


NUMBER OF THOUSANDS IS PACKED 


NUMBER OF HUNDREDS IS PACKED 


NUMBER OF TENS PACKED 
NUMBER OF ONES PACKED 


BUFFER INDEX 


STORE RESULTS IN OUTPUT BUFFER 


SKIP WHEN TRANSFER COMPLETt 

CONTINUE 

ALL DONE 

SCRATCH FOR DECT 


M97J 0 25Q 

M97GQ251 
M970 0 252 

M9700253 
M9700254 
M97j 0255 

H972 0256 
M970 0257 
M97Q025B 
M9700259 

M970G260 
M97Q0251 
M97302&2 
M9700263 
M97Q 0264 

M97QQ2B5 
M97302&6 
M9700267 
M9 70 0 26 8 
M9700269 
M9700270 

M970 0271 
M9700272 
M97G0273 
M97Q0274 
M9 70 027 5 

M970 0276 
M9700277 
M9700278 
M97Q0279 
M9700280 
M970028i 

M97 00282 
M970Q283 
M9700284 

M9 70 0 28 5 

M9700286 
M9700287 
M97^0288 
M9700289 
M973 0 29 0 
M9700291 
M970 0 292 


O 

■ O 

, o 
o 

: O 

o 

o 

; O 
: O 
: O 
O 

: O 
O 
O 


O 


\ 









o 




COROHl 



PAGE 3 

date: 01/27/99 



y‘~: 

u 









o 


0?93 



^ THIS 

ROUriNE CONVERTS A 

HEX (ASCII) FIELD TO BINARY. 

M970 0293 



0294 







M9700294 


Q 

02 9 5 

Pii 15A 

0 0 0 0 

HEX 

HUM 

Q 


M97u 0295 

o 

029o 

PQ15B 

C8G0 


LOA 

WOIX 


M970029& 




PG15C 

FF19 





M9700297 



029 7 

P015D 

6800 


STA 

FSTRT 



o 


PG15E 

FF26 





H97D 0298 

o 

029d 

PO 15F 

0 8 44 


CLR 

A 



0299 

P0160 

d8F6 


STA’^ 

OECNUM 

INITIALIZE CONVERTED VALUE 

M9700299 



G3G 0 

PO 161 

OAFA 


ENA 

-5 


M97D 03GG 



G3Q1 

P0162 

68F5 


STA^ 

OECNUM+i 

INITIALIZE DIGIT COUNT 

M97a030i 

o 

U 

0 302 







M970 0302 



0 3 0 3 

P0163 

582C 

HEX3 

RTJ^ 

GET 

GET A CHARACTER 

M97GQ303 



0 30 4- 

P01b4 

09CF 


INA 

-$30 

UNDER $30 CHECK 

M97 j 0304 


o 

030 5 

PO 165 

0121 


SAP 

HEX4-''^-1 

SKIP ON NUMERIC - MAYBE 

M970 0 305 

• o 

0 3 0 6 

P 0 16 6 

1814 


JMP» 

HEXIQ 

NOT NUMERIC 

M97 j 0 30 6 


03 0 7 

P0167 

0822 

HEX4 

TRA 

Q 


M9 / 0 0 3U 7 



030 8 

P0168 

DDF5 


INC 

-SA 


M970 0303 



0309 

P0169 

0175 


SQM 

HEX4Q5-^>1 

SKIP ON DIGIT Q THRU 9 

M9700309 

n 


0310 

PC16A 

09F8 


INA 

-7 


M97Q0310 



0311 

PG 16D 

OOFS 


INQ 

-7 


M970 0 311 



Q 312 

POlbC 

017D 


SQM 

HEX! 0-^-1 

SKIP IF NON-NUMERIC 

M970a3i2 



0313 

P016D 

G0F9 


INQ 

-5 

UNDER $47 CHECK 

M970Q313 

O 


0314 

P016E 

G16B 


SQP 

HEXiO-^-l 

SKIP IF NON-NUMERIC 

M97 0 0 314 


0 315 

P016F 

E8E7 

HEX40 5 

LOQ^ 

OECNUM 

CONVERTED DIGIT IN A 

M97fl0315 



0316 

Pfl 170 

0FA4 


QLS 

4 


M97G0316 


o 

0317 

PG171 

0874 


EAQ 

A 

PACKED DIGIT IS STORED 

M97i u 31 7 

■ O 

0318 

P0172 

68E4 


STA^ 

OECNUM 

, M970 0 318 


0319 

P0173 

D8E4 


RAO^ 

DECNUM+1 


’ M9700319 



032 0 

P0174 

C8E3 


LDA^ 

OECN'JM + 1 


M97a0320 


:0 

0321 

P0175 

0113 


SAN 

HEX5-^-l 

SKIP IF 4 OR LESS DIGITS 

M9700321 

O 

0322 

Pul7o 

C80Q 


LDA 

FSTRT 


M973 Q 322 



P0177 

FFOO 





M9700323 



03 23 

PO 176 

1128 


JMP- 

40,1 

FORMAT ERROR - BACK TO CONTROL PROGRAM 


O 

0324 

PC179 

18E9 

HEX5 

JMP’^ 

HEX3 

CONTINUE 

M9700 324 

: o 

03 25 

P017A 

5 8 0 5 

HEXIQ 

RTJ’^ 

BACK 

BACK UP SCAN BY ONE 

M97G 0 325 


0326 

P 0 1 7 B 

C8DB 


LOA^ 

OECNUM 


M970 0 32 6 



0327 

PQ17C 

6800 


STA 

NUN 

STORE FOR USERS OF NUM 

M97Q 0327 




P017D 

FEFD 





M973 0 328 

o 


0 328 

P017E 

ICOB 


JHP» 

(HEX) 

RETURN 


03^9 







M97 0 0 32 9 



0330 



4 THP' 

FOLLOWING BACKS UP 

THE STATEMENT SCAN BY ONE CHARACTER. 

M970 0330 



0331 







M970 0 331 

o 

■J 

0332 

P017F 

QOOQ 

BACK 

NUH 

0 


M9730 332 


0333 

P0180 

G 8 u G 


LDA 

CHAR 


M973 0333 




P0161 

FEF6 





M970C334 


o 

0334 

P0182 

0118 


SAN 

BACKl-^-1 

SKIP ON CHARACTER = RIGHT 

o 

03 35 

P0183 

0800 


RAO 

CHAR 


M973 0 335 



PG184 

FEF2 





M970033& 



03 3 b 

P0185 

C8G0 


LDA 

WDIX 



o 

0337 

P0186 
PO 187 

FEEF 

Q9FE 


INA 

-1 


M970 0337 

o 


0338 

PG188 

6800 


STA 

WOIX 


M973 0338 




P0189 

FFEG 







o 









o 

o 









o 








. . . 



-- - 


CORDMl 


PAGE 


9 


DATES 01/27/99 


0 3 3 9 

P013A 

1CF4 


JHP^ (BACK) 

03 4 0 

PC 188 

0 8 44 

BACKl 

CLR A 

0341 

P018C 

6800 


STA CHAR 


POiaD 

FEE9 



0342 

POISE 

iCFO 


JMP^ (BACK) 

0343 





034^^ 



=>■ THIS 

SUBROUTINE UNPACKS 

0345 



AND 

RETURNS IT IN A. 

0346 





0347 

PQ18F 

U 0 UO 

GET 

NUM 0 

0348 

PO 19 Q 

GDGQ 


LDA (WOIX),I 


P0191 

FEE4 



0349 

P0192 

E800 


LDQ CHAR 


PG193 

FEE3 



03 50 

PO 194 

C 151 


SQN GETl-^-1 

0 551 

P0195 

OFCa 


ALS 8 

0352 

P0196 

AO OA 

GETl 

AND- $A 

0353 

PO 197 

0 1 40 


SQZ GET2-^-l 

0 35-4 

PO 198 

0 8 42 


CLR Q 

0 3 5 5 

P0199 

h800 


STQ CHAR 


P019A 

FEDC 



0 356 

P019B 

0800 


RAO WDIX 


PQ19C 

FED9 



0357 

P019U 

ICFl 


UMP^ (GET) 

0356 

P019E 

D8 00 

GET2 

RAO CHAR 


P019F 

FE07 



0 35 9 

PO lAQ 

E80Q 


LOG WDIX 


POlAl 

FED4 



03 60 

PuiA2 

GDDA 


INC -37 

0351 

PG1A3 

0l4i 


SQZ OFLOW-»-l 

0362 

P01A4 

ICEA 


JMP- (GET) 

0353 

P01A5 

OAOO 

OFLOW 

ENA 0 

0354 

PfllA6 

1128 


JMP- 40,1 

0365 



4 


036b 

POIA 7 

18FD 

DP 

JMP» OFLOW 

035 7 

P01A8 

13FC 

SP 

JMP» OFLOW 

0358 




END 

PG'1 = 

C1A9 

{ 

25) COM = 0000 ( 0) 


SET TO LEFT CHARACTER 

ONE CHARACTER FROM THE INPUT BUFFER 

GET CHARACTER WORD 

CHARACTER FLAG 0=LEFT 1=RIGHT 

SKIP ON RIGHT CHARACTER 

unpack CHARACTER 
SKIP ON LEFT 

UPDATE CHARACTER FLAG 

UPDATE WORD INDEX 

RETURN 

UPDATE CHARACTER FLAG 
TEST FOR BUFFER END 

SKIP ON INPUT BUFFER END - ERROR 

BACK TO BRKPTD 

»«s»»«-^HOOK FOR DOUBLE PRECISION OUTPUT 
»^»^^^^HOOK FOR SINGLE PRECISION OUTPUT 

DAT = OOCO ( Q ) 


N970 Q339 
M97Q0340 
M9700 341 

M9713 0 342 
M9700343 
M970 0344 
M97UQ345 
M97Q 0345 
M9700347 
M9700 3*+8 

M970Q349 

M9700350 
H9700351 
H970G 352 
M9700353 
M970 0 354 
M97Q0355 

M9700 356 

H97U C 357 
M970 0353 

M97a 0 359 

M970 0 360 
M97Q0361 
M970Q362 
H97Q0363 
M97Q0364 
M970 0365 
M97D 0366 
M973 0357 
M9 70 0368 




COROtli 

^AGE 10 

date: 01/27/99 


{' 

0 






o 

o 

E Q U I V 

A L E N C E S 




o 

o 

DEF . LINE 

NAME VALUE 

referenced at 

LINE NUMBER 


c 


GOOD 

I OOFF 

(000255) OLilli 0282 




o 






: 0 

o 






: O 

0 






• n, 

s,,. 







o 

o 






: O 

Q 






o 

0 






: O 

o 






■ O 

o 






0 

o 






O 

o 






O 

o 






n 

o 






/ 1 





. . 

... ... . 

. . 



COROMl 


DATE: 01/Z7/99 


o 


S Y "I 3 0 L S 


o 

o 

o 

o 

o 

o 

o 

o 

o 


DEF . LINE 

NAME 

ADDRESS 

0 00 9 

COR 

GOOD 

0 0 26 

G0RG3 

0010 

0 0 32 

0 0 R 0 4 

0016 

0 0 47 

CORl 

002 8 

CG52 

C0R15 

00 2F 

0 0 5 5 

G0R2 

0 0 31 

0063 

TRYFF 

003 B 

0 0 6 7 

C0R3 

0G3F 

0 0 7 3 

G0R35 

0 0 4 D 

0 079 

G0R4 

OOhB 

0 08 5 

G0R5 

0052 

0 0 8 6 

C0R6 

0053 

0 09 2 

C0R8 

0059 

0101 

CORIG 

0062 

D115 

CO RICA 

QG6F 

0122 

CORll 

00 75 

0x26 

WDIX 

00 76 

012 7 

CHAR 

0077 

0128 

T YPE 

0078 

0129 

START 

0 0 79 

0 130 

END 

0 0 7A 

0 131 

NUN 

00 78 

0132 

MPL 

0G3G 

0133 

INCREM 

0081 

0134 

CON VRT 

00 82 

Q13 5 

cv 

0033 

013 6 

DBUF 

OOSi- 

3137 

FSTRT 

008 5 

0139 

OUTBUF 

0086 

0151 

OMPTAB 

OOAA 

0159 

GONTBL 

0QC3 

317 7 

WRITE 

00D7 

0183 

LU 

uOOF 

0184 

OBIX 

GOEO 

018 5 

ESS 

0 0 El 

0187 

WRITEl 

00E2 

0 190 

WRITER 

00E5 

0195 

ASCII 

0CE6 

0204 

HEXO 

uOEB 

020 6 

4 EX Ml 

OOED 

0 20 8 

HEXOl 

GOEF 


REFERENCED AT LINE NUMBER 


J Il4 


0 0 30 


0 0 28 


0 0 43 


0 0 65 


0 0 51 


0 G 61 


Q 059 


3 0 62 , 

0 0 6 ^4 

0 0 75 , 

QQ82 

3 120 


Q09Q 


0 0 89 



0122 

0112 

0113 


3015, 

0296, 

0 336, 

0013, 

0 333, 

0 335, 

0 0 20 , 

0 027 


0 0 43 , 

0068, 

0069, 

0 0 56 , 

0070 , 

0 072, 

0U1:’ 

0207, 

0212, 

0 0 35 , 

0117 


0 0 33 , 

0108 


0 0 37 , 

OlQl 


00 94, 

0115, 

0116 

0 039 , 

0104 


3 Q 52 , 

029 7, 

0322 

0 Q 82 , 

GG37, 

0198, 

0 026, 

0032, 

0 '3 3 , 

3 102 
0113, 

0119, 

0190 

0 0 23 , 

0187 


Q033 , 
0 0 83 
0189 

0 098, 

0103, 

0 188 
0160, 

0199 


3163, 
•3 237 
0225 

0232, 

0236 


0338, 

0348, 

0356, 

0341, 

0549 , 

0 35 5, 

0074, 

0095 , 

0107, 

0 u 7 3 , 

u 110 


0 216, 

0217, 

0218, 


C229, 0231, 0285 
Q036, 0038 


0105, 0178, 0180, 


O 

o 


0359 

0558 

0109, 0111, 019o, 0205, 0249 

D221, 0222, 0223, 0224, 0227, 0230, 0327 


0197, 0228, 0281 


o 

o 

o 

o 

o 


o 

o 

r^ 

o 

o 

o 

o 

c 

o 


COROHl 


PftGE 12 


DATE; Gl/27/99 





022 7 

HEX02 

010 5 


0234 

HEXM 

OlOF 

o 

0242 

HEXCON 

y 113 

3 248 

OECI 

0123 


0 2 54 

OECIl 

Q12C 


0 284 

DECI2 

0l4F 

o 

0289 

0ECI3 

015 6 

0 291 

DECNUM 

0157 


0 295 

HEX 

015A 

o 

03C3 

HEX3 

0163 

3 30 7 

HEX4 

016 7 


0 315 

HEX405 

016F 


0 324 

HEX5 

0179 

o 

0 32 5 

HEXIO 

G17A 

0 332 

BACK 

G17F 


0 340 

BACKl 

018B 


0^47 

GET 

018F 


0 35 2 

GETl 

019 6 

o 

0358 

GET2 

Q19E 


0363 

3FL0H 

GIA 5 


0 3 66 

DP 

01A7 


0 367 

SP 

01A8 


0 220 



0 0 96, 

0235 


3210 , 

0215 


3 169, 
0 251 
0288 
0 287 

0289 


3 2 54, 

025 6, 

0257 

0319, 

D 32 0. , 

0326 

0 0 47 , 
0 3 24 
0 305 
0 3 09 
3 3 21 

0 05 5 , 

0 067 

0 306 , 

0 312, 

0 314 

0325, 

0334 

0339, 

0342 

0 0 41, 
3 350 
0 353 

Q 049, 

0057 

0361, 
3 166 
0172 

0366, 

036 7 


0260, 0261, 0265, 
0328 


0303, 0357, 0362 


O 


O 

0 


o 

o 

o 


o 

o 


I''”'''. 


0267, 0271, 0272, 0276, 0279, G284, 0299, 0301, 0315, 0318 


C: 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 


o 


CORDMl PAGE 13 DATE: 01/27/99 


*¥-V- /\ L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M 

B 0 L S 

v--y- V- 


ASCII 

9195 

BACK 

0332 

BACKl 

0 340 

CHAR 

0127 

CONTBL 

0159 

CD91 

0 0 4 7 

CORIO 

Old 

G0R13A 

1115 

CORll 

0122 

C0R15 

0052 

C3R5 

0035 

CORE 

3 0 86 

C0R3 

0 0 92 

cv 

0135 

OBUF 

0136 

DEGNUM 

0231 

DiTPTAB 

HEXIO 

0151 

DP 

0 3 65 

END 

0130 

ESS 

0185 

HEX 

0 29 5 

0 325 

HEX3 

0 3 03 

HEX4 

03 0 7 

HEX40 5 

0 315 

N"X0 

0 2G 4 

HEXOl 

0 20 8 

HEX02 

0 227 

I 

00 0 0 

INCREM 

0133 

0JT3UF 

WRITE2 

0139 
019 0 

SP 

0367 

START 

3 129 

TRYFF 

0063 

TYPE 

012 8 


O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


o 


CONVRT 

0134 

CO.R 

03G9 

COR2 

0055 

C0R3 

006 7 

OECI 

0248 

DECIl 

0254 

FSTRT 

■ 0137 

GET 

0347 

HEX5 

0324 

HEXCON 

0242 

LU 

0183 

NUM 

0131 

VPL 

0132 

WO IX 

0126 


COR03 

0026 

COR04 

0032 

C0R35 

0 07 3 

CQR4 

0Q79 

OECI2 

.0284 

DECI3 

0289 

GET! 

0 352 

GET2 

0358 

HEXH 

0 234 

HEXMl 

0206 

OBIX 

0184- 

OFLOW 

0363 

WRITE 

0177 

WRITEl 

0187 


C) 

o 

o 

o 

o 

o 

r'} 

o 

o 

o 

o 

o 

o 

o 


r-', 


JUMPRl 


PAGE 


1 


DATE; 01/27/99 


0 310 

P 0 D 0 0 

0 0 0 0 

JMPRT J 

NUM 

0 

Dull 

POOOi 

683C 


STA» 

TADR 

0012 

P00G2 

G90C 


INA 

12 

0013 

P00u5 

60FF 


STA- 

I 

QOlv 

POOOh 

0 8 44 


CLR 

A 

0315 

PflOQ 5 

6836 


STA^- 

ADDR41 

0016 

POOOb 

6839 


STA^ 

CHAR 

0 0 17 

PD007 

OA 02 


ENA 

2 

ooia 

0Q19 

PG00 8 

o836 

V- 

STA^ 

WOIX 

00 20 

30uu9 

5339 

JMP2 

RTJ>^ 

HEX 

Oj 21 

PGOlA 

6831 


STA^ 

AOOR+1 

0 3 22 

POQOB 

p 854 


RT J'^^ 

GET 

00 23 

POGuC 

0904 


IMA 

-$2B 

0 J 2 4 

PQQOD 

0 108 


SAZ 

JHP3- 1 

0 3 2 5 

POGuE 

090B 


INA 

SB 

0D26 

POOOF 

0 111 


SAN 

TRYFF 

Cu2 7 

PQOIO 

1807 


JMP>^ 

JMP4 

o; 2 8 

=>0011 

PGG12 

90CD 
0 ODF 

TRYF- 

SUB 

= NSDF 

00 29 

PDG13 

0103 


SAZ 

JHP4-^- 1 

0030 

P0014 

u A 0 0 

JMPlp 

ENA 

0 

00 31 

P0015 

1128 


JMP- 

40,1 

0 3 3 2 

POOlb 

532C 

JMP3 

RT J^ 

HEX 

00 33 

P0G17 

8 3 24 

JMP4 

ADD^ 

ADDR+1 

00 3 4 

0 3 3 5 

POO 18 

6823 


STA^ 

AOOR+1 

0 3 3 6 

POO 19 

E0F7 


LDQ- 

SF7 

Q037 

PGOlA 

09FE 


INA 

-1 

00 3 3 

P0D13 

58 60 


RT J» 

CMPV4 

00 3 9 

POO 1C 

0 102 


SAZ 

JMP42 

03 40 

PODIO 

0900 


INA 

0 

00 4 1 

PGOIE 

01 06 


SAZ 

JMP5 

00 42 

PDQIF 

C31C 

JMP42 

LDA->^ 

AOOR+1 

0 0 4 3 

PQ02Q 

EGF6 


LDQ- 

SF6 

00 4 4 

P0021 

585A 


RTJ^ 

CMPV4 

0045 

PU022 

0104 


SAZ 

JMP5 

0 0 4 6 

PC' Q 23 

0900 


INA 

0 

0 3 4 7 

P0Q24 

0102 


SAZ 

JM^’b 

0 0 48 

P0G25 

0 AOO 

JMP5 

ENA 

0 

0 j,9 
0 0 5 0 

P0Q26 

1129 

A<- 

JMP- 

4i, I 

0 0 p 1 

=>00 27 

ClOl 

JMP6 

LDA- 

1,1 

00 5 2 

PQ028 

AOIA 


ANO- 

SIA 


NAM JUMPRl DECK-ID H93 MSOS 5.G 

MASS STORAGE OPERATING SYSTEM VERSION 5,0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197q 

PROCESSES JUMP AND RETURN JUMP COMMANDS FOR BREAKPOINT. 

EMTERRED WITH THE ADDRESS OF THE BREAKPOINT TABLES IN A. 

BREAKPOINT TABLE LOCATION 

INA 12 

STA- I BREAKPOINT BUFFER LOCATION 

pip A 

STA^- ADDR+1 PRESET AODR FOR CONVERSION 

STA^ CHAR 
ENA 2 

STA^ WOIX SET UP FOR BUFFER SCAN 

^2 RTJ^ HEX GET BASE ADDRESS 

STA^ AOOR+1 STORE FOR USE 

RIJ*^ GET GET DFLIMITOR 

SAZ JHP3-^-l SKIP IF A PLUS - INCREMENT GIVEN 

INA SB IS IT A BLANK 


SUMM ARY- 


IS IT A FF 

SKIP ON STATEMENT END - NO INCREMENT 

FORMAT ERROR - BACK TO BRKPTO 
GET AND CONVERT INCREMENT 

ADD INCREMENT TO BASE 

TEST FOR ADDRESS WITHIN UNPROTECTED 

GREATER THAN START OF UNPROTECTED 
ADDRESS IN PROTECTED 
TEST FOR LESS THAN END OF UNP. 
ADDRESS OK 

ADDRESS WITHIN UtNPROTECTEO 
GO TO PROTECT ERROR PRINTOUT 
GET THIRD CHARACTER FROM BUFFER 


iioM98aauai 
M98Q0002 
■ M9800003 
M983 0004 
M98U0G05 
M980 QQ0& 
M98Q 0 00 7 
M9800Q03 
M983 0 00 9 
M980 0 010 
M980DU11 
M9S0 0012 
M98u0Q13 
M980 0014 
M980 0 015 
M9600016 
M980 Dili 7 
M980GQ18 
M9800019 
M383 0020 
M983G021 
• H98U0022 
M9Sj0023 
H98D0a24 
M98D 0 02 5 
M980Q026 
M98*j 0 027 
M983Q028 

M9800029 
M983 0 030 
M98Q0Q31 
M98D0032 
M96Q0G33 
M9830C34 
M980 3 035 
M9800036 
M9800037 
M983 0 038 
M980 0 039 
M98 3 uClO 
M98iiQ0<+l 
M980 0 042 
M930QOL3 
M98Q 0 04i* 
M98j0Q^5 
H983 Q O^b 
N98aOQit7 
M9800 048 
M980Q049 
M98 0 0 0 5 0 
MgSOOuSi 
H980 0 05 2 


o 


JUMPRI 


3AGE 2 


date: Gi/27/99 


00 53 

PQ029 

P0Q2A 

9000 

5000 


SUB 

= N$ 5 0 0 3 

0Q5 4 

P0u2B 

0102 


SAZ 

JMP-’-l 

03 5 5 

P0Q2C 

P0020 

COOO 
40 0 0 


LDA 

=N$4Q0Q 

00 56 

PO G2E 
P002F 

80 00 
1400 

JMP 

ADD 

=N$1403 

00 57 

P0030 

68QA 


STA^ 

AODR 

005 8 

P0031 

0844 


CLR 

A 

03 59 

P0032 

P0G33 

6 50 0 
0 0 4A 


STA 

74,1 

0 0 5 0 

PO 034 

0CQ2 


ENQ 

2 

03 6 1 

P0035 

CE08 


LDA^ 

( TaDR) , Q 

03 62 

P 0 0 3 6 

60FF 


STA- 

I 

0 3 6 3 

P0037 

ODFE 


INQ 

-1 

03 6 ^ 

PO 0 J8 

GEOS 


LDA- 

(TADR) ,Q 

00 65 

P00 39 

t C 04 


LDQ=^‘ 

( TADR) 

0 0 5 6 

=>003A 

P0G3B 

0 00 0 
0 0 0 0 

AOUR 

NUM 

0,3 

00 67 
0 0 5 3 

P0G3C 

1CC3 

V- 

JMP^ 

( JMPRTJ ) 

00 59 

PQ03O 

00 01 

TADR 

BSS 

TA3R(1) 

00 7 0 

PO Q3E 

00 01 

WDIX 

BSS 

WDIX (1 ) 

0071 

P0 03F 

OOCi 

CHAR 

BSS 

CHAR{ 1) 

00 7 2 
03 7 3 
03 7 4 
00 75 

P 0 0 4 l' 

0 0 02 

NUM 

^ THIS 

BSS NUM (2) 
SUBROUTINE CONV 

0 0 7 o 

PO G42 

0 0 0 0 

HEX 

NUM 

0 

13 3 77 

P00t3 

0 8 44 

HEX2 

CLR 

A 

0 3 78 

P0 0 44 

6 8 F B 


STA^ 

NJH 

0 0 7 9 

P0045 

GAFA 


ENA 

— 5 

0 j 3 G 

P004d 

68FA 


STA^ 

NUM + 1 

00 31 

P0047 

5818 

HEX3 

RTJ^‘ 

GET 

03 82 

PO 048 

09CF 


INA 

-$3Q 

00 8 3 

PO u 49 

0 121 


SAP 

HEX4-’-1 

03 8 

PQ04A 

1812 


JMP^ 

HEXiO 

03 3 5 

PO 04B 

0 822 

HEX4 

TRA 


00 8 6 

DQ04C 

0OF5 


INQ 

-$A 

0 3 3 7 

P0 040 

0 175 


SQM 

HEX405-’-! 

0 3 88 

PO 0 4E 

09F8 


INA 

-7 

03 39 

PQ04F 

0OF8 


INQ 

-7 

QQ90 

P0050 

01 7B 


SQM 

HEXlQ-’-l 

00 91 

P0Q51 

0DF9 


INQ 

-o 

0092 

P0 052 

01 69 


SQP 

HEXlO-’-l 

0093 

P0053 

C.8EC 

HEX'-Q 5 

LDQ* 

NUM 

0094 

PO 05-t 

QFA4 


QLS 

4 

0Q95 

P3 055 

0874 


EAQ 

A 

0096 

PQ 0 5 o 

68E9 


STA’ 

NUM 

0097 

PQ057 

D8E9 


RAO’ 

NUM + l 

0 3 98 

PQ058 

C8E8 


LDA’ 

NUM + 1 

00 99 

PO 059 

0111 


SAN 

HEX5-’-l 

0100 

P0 05A 

18B9 


JMP’ 

JMP15 


SKIP ON JNP 


CLEAR FIRST TIME FLAG 


TO RESET I 


TO RESET A 
TO RESET 0 


RETURN FROM RTJ 

TABLE ORIGIN ADDRESS 
BUFFER WORD INDEX 
CHARACTER FLAG tj=LEFT 
SCRATCH 


1=RIGHT 


ONVERTS ASCII-HEX VALUES TO BUNARY. 


INITIALIZE CONVERTED VALUE 

DIGIT COUNT INITIALIZED 
GRT A CHARACTER 
UNDER $30 CHECK 
SKIP ON OK NUMBER 
NON-NUMBER 


DIGIT IS 0 THRU 9 AND IN A 

OVER $40 CHECK 
SKIP ON NON NUMBER 
UNDER $47 CHECK 
SKIP ON NON NUMBER 
CONVERTED GDIGIT IN A 


PACKED DIGIT IS STORED 


SKIP ON 5 OR LESS DIGITS 
BAD DATA 


M9800053 

M983G05H 
H9800 055 

M980 0 056 

M9800057 
H983 0 0 58 
M980 0 059 


M98 J u uo D 
M9 80 0 uo 1 
M980 G0&2 
M980 G 063 
M98Q 0 064 
M983 0065 
H98QQ 066 


M98GQ 067 

M983 0 068 

M983G 069 

M980aG70 

M980 0G7i 

M98Q 007 2 

M9800073 

M980 0 074 

M983 0 075 

M983 0 076 

H98 3 fl 077 

M98GQQ78 

M9300079 

M98GQ080 

M980a 081 

M98G G 082 

M9890Q83 

M983 0 084 

M9800Q85 

H9830086 

M983 0 087 

M98QU088 

H980 0089 

M9600Q90 

M98Q0091 

M960Q092 

M98Q0 033 

M980ua94 

M9830095 

M9800096 

H9830097 

H983 0098 

M9830099 

M9800100 




JUMPRl 



PAGE 3 

DATES 01/27/99 

0101 

P0Q5B 

18 EB 

HEX5 

JMP^ 

HEX 3 

CONTINUE 

0102 



* 




0103 

P0 05C 

5 814 

HEX13 

RTJ^ 

BACK 

BACK SCAN UP ONE 

0104 

POO 50 

C8E2 


LDA» 

NUM 


0105 

P0 05E 

1CE3 


JMP^ 

(HEX) 

DONE 

010 6 



‘f- 




0107 



* THIS 

SUBROUTINE JNPACKS 

A CHARACTER FROM THE INPUT BUFFER 

010 8 



A^iD 

RETURNS IT IN A . 


010 9 







0110 

P0G5F 

00 00 

GET 

NUM 

0 


0111 

P0 060 

CODD 


LDA^ 

(WDIX) , I 

GET CHARACTER WORD 

Q112 

P00 61 

E8DD 


LDQ^ 

CHAR 

CHARACTER FLAG G=LEFT 1=RIGHT 

0113 

P0062 

01 51 


SQN 

GETl-^- 1 

SKIP ON RIGHT CHARACRER 

0114 

P0 063 

0FC8 


ALS 

8 


Oil -3 

PO 0 6 4 

AOCA 

GETl 

AND- 

$A 

UNPACK IT 

0116 

poaes. 

0 1 44 


5QZ 

GET2-^“1 

SKIP ON LEFT 

0117 

P0066 

0842 


CLR 

Q 


0118 

P0067 

48D7 


STQ^ 

CHAR 

UPDATE LEFT/RIGHT FLAG 

Q119 

P0 0 68 

D8D5 


RAO^ 

WOIX 

UPDATE WORD INDEX 

0120 

P00&9 

1CF5 


JMP- 

(GET) 

RETURN 

0121 



¥ 




0122 

PC06A 

0804 

GET2 

RAO^ 

CHAR 

UPDATE LRFT/RIGHT FLAG 

0123 

P 0 0 D 8 

E8D2 


Loa^ 

HDIX 

TEST FOR BUFFER END 

012-f 

PQ Q6G 

OODA 


INQ 

-37 


012 3 

PO CoO 

0 1 41 


SQZ 

OFLOW-«^-l 

END OF BUFFER - ERROR 

0126 

3 0 0 6 F 

ICFO 


JMP» 

(GET) 

RETURN 

012 7 

PO 0 6 F 

18A4 

OFLOW 

JMP^ 

JMP15 

TO PRINT DIAGNOSTIC 

0128 



¥ 




0129 



^ THE 

if. 

FOLLOWING BASKS THE 

SCAN UP ONE CHARACTER. 

U i 3 u 

0131 

P0070 

GOOD 

BACK 

NUM 

0 


0132 

P0C71 

C8CD 


LDA^ 

CHAR 


0133 

P 0072 

0 115 


SAN 

8AC:<l-*^-l 

SKIP ON RIGHT 

0134 

P0073 

08CB 


RA 0^ 

CHAR 

SET TO RIGHT 

013 3 

P007 4 

C3C9 


LDA* 

WOIX 


0136 

PCC75 

Q9FE 


INA • 

-1 


Q13 7 

PG076 

68C7 


STA^- 

WOIX 

BACK UP ONE WORD 

0138 

P 0 0 7 7 

1CF8 


JMP*^ 

(BACK) 


0139 

PO 078 

0 8 44 

BACK! 

CLR 

A 


0140 

Pfl079 

68C5 


STA^ 

CHAR 

SET TO LEFT CHARACTER 

0141 

P0Q7A 

1CF5 


JMP’^ 

(BACK) 



M98a0i01 

M98jai02 

M9800103 

M980C1Q4 

M98G 0105 

M9B0 0105 

M983 fllOr 

H9830108 

M9800109 

M9800110 

M98Q0U1 

M98a01i2 

H980G113 

H980 0 11‘^ 

H983 3 11 5 

M980Q116 

M98J0117 

M98GQ 118 

M98QG119 

M9800120 

M9 800 121 

M983U122 

H9800123 

M9800124 

M9830125 

H9800126 

M980 0127 

H9830123 

M98G 0 129 

M980 Q130 

M980 0131 

M9830132 

M983D133 

M983 0 134 

M980 0 13 5 

H9800136 

M9830137 

M9830138 

M9800139 

M980ai40 

H980G1-+1 


JUMPRi 


PAGE 


4 


date: 01/27/99 


0143 








0144 





ADDRESS 

COMPARE ROUTINE 

0145 








014 6 





A.GT.Q 


DIFFERENCE RETURNED IN A 

014 7 





A.EQ. Q 


A EQUAL 0 

0148 





A.LT.Q 


A EQUAL SFFFF 

0149 








0150 








0151 

^0 07B 

OBOG 

CHPV4 

NOP 

0 



0152 

P007C 

C 132 


SAM 

AJP°ER 


A IN UPPER BANK 

0153 

P0070 

0165 


SQP 

8THSAM 


BOTH IN LOWER BANK 

0154 

PO 07E 

18 08 


JMP* 

QBIGER 


A IN LOWER, Q IN UPPER 

0155 

P0G7F 

0173 

AUPPE^ 

SQH 

8TH3AM 


BOTH IN UPPER BANK 

0156 

POO 60 

0 8 52 


TCQ 

Q 


A IN UPPER, Q IN lower 

0157 

PO 081 

0834 


AAQ 

A 


GET DIFFERENCE IN A 

0158 

P0 082 

1805 


JMP«^ 

ABIGER 



0159 

P0G83 

G 8 52 

BTHSaM 

Tca 

Q 



0150 

P0064 

0 8 34 


AAQ 

A 


SUBTRACT Q FROM A 

0151 

P0D85 

0 121 


SAP 

ABIGER 


A IS BIGGER 

015 2 

P008b 

03 04 

QBIGER 

SET 

A 


Q IS BIGGER 

0153 

P0 0 8/ 

1CF3 

ABIGER 

JMP-^ 

CGMPV4) 



0154 




END 




PG'i = 

0088 

( 

136) 30M 

! = 0000 ( 

0 ) 

DAT = 0000 ( 0) 


o 


o 

o 


M98D 0143 
M98Q 0144 
M983 0145 
M9800146 
M98D0147 
M9800148 
H980 0149 
M9800150 
M980015i 
M980ai52 
M98C0153 
M9800154 
H980 0 155 
M980G15b 
M9800157 
M930015B 
M980 0 159 
H93Q0160 
H9800151 
M9800152 
M98Q01&3 
M98jGlb4 


G 

O 

o 

c 

o 

o 

o 

c- 

o 

o 

o 


JUMPRl 


PAGE 5 


DATE: 01/27/99 


EGIUIVALENCES 


DEF.LINE 'JAME 
OOGG I 


VALUE 9E-ERENGE0 AT LINE NUHBER 

DUFF (000255) 3013, 0062 











1 "'1 
, ■ 

( } 
0 


JUHPRl 


PAGE 6 


date: 

01/27/99 


0 

o 

s r M B 0 

L S 







0 

o 

OEF . LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE NUMBER 





0010 

JMPRTJ 

00 0 0 

0 0 67 







0 0 20 

JMP2 

00 0 9 








0 0 28 

TRYFF 

0011 

0 0 26 





0 

u 

GG30 

JMP15 

0014 

QlOO , 

0127 






j V 62 

JMP3 

0016 

0 0 24 







0 0 33 

JMP4 

0017 

0 0 27 , 

0 029 






0 GL 2 

JMP42 

OOIF 

C039 





r.) 

'■U 

0 C>4 8 

JMP5 

002 5 

U 0 







3 0 51 

JHP 6 

00 27 

0 0 45 , 

0 047 






0 05 b 

JMP 

00 2 E 

0 0 54 







0 0 6 6 

AQOR 

G03A 

0Q15, 

0 021 , 

UUdOl 

0042, 0057 


0 


0 0 69 

TAD R 

G03D 

00 11 , 

0 061, 

0064 , 0065 





3 3 7 0 

WOIX 

303E 

3018, 

0111 , 

ull9, 3123, 

0135, Ul37 




0 Q 71 

3HAR 

00 3F 

0 016, 

0 112 , 

0118, 0122 , 

0132, 0134, 

0 1 40 



0 0 72 

NUM 

0 0 4 0 

0 0 73 , 

0 080 , 

0093, 0096, 

0097, 0098, 

Q 1 O 4 

■ ( 1 

' 

0 0 76 

HEX 

00 42 

0 0 20 , 

0 032, 

0105 





00 7 7 

HEX2 

G 0 4 3 








0 0 81 

HEX3 

0047 

3101 





' 0 


0 0 8 5 

HEXa 

0C4B 

0 003 





O 

0093 

HEXLOS 

0053 

0 087 







0101 

HEX5 

0G5B 

0 0 99 







0 103 

HEXIO 

00 5C 

0 084, 

0 090, 

0 092 




i-~\ 

0 110 

GET 

0Q5F 

0022 , 

0081, 

0120 , 0126 



L.) 

U 

0 115 

GETl 

0 064 

3113 







3 122 

GET2 

00 6 A 

3 116 







012 7 

3FLOW 

006F 

0 125 






,'T^ 

0131 

BACK 

Q07Q 

0103, 

0138, 

0141 



■ 0 

■'iy 

0139 

8AGK1 

3078 

0 133 







0151 

CMP VL 

0 0 7B 

OC 38, 

0 u4 4, 

0163 





015 5 

AUPPER 

0 07F 

0152 







0159 

3THSAM 

0 08 3 

0153, 

015 5 




" U 

■■j 

0162 

9BIGER 

00 66 

3 154 







0163 

ABIGER 

0087 

3158, 

0161 





O 









; 0 

o 









; 0 

o 









0 

o 









0 

C) 









0 












JUMPRl 


PAGE 


1 


date: 01/27/99 


j_ 

P H A 

B E T I 

CAL 

SORT 

0 F 

A8IGER 

Q1&3 

ADDR 

0 0 65 

AUPPER 

0155 

GETl 

0115 

GET? 

0122 

HEX 

0 0 76 

I 

cgoQ 

JMP 

0 C55 

JMP15 

0 0 30 

J'i^RTJ 

U V 1 U 

NUM 

3 072 

□ FLOW 

3 127 


S Y M B 

0 L S 





BACK 

0131 

BACKl 

0139 

8THSAM 

0159 

HEXIG 

010 3 

HEX2 

0077 

HEX3 

0081 

JMP2 

0 0 20 

JMP3 

0 03 2 

JMP4 

0033 

QBIGER 

0162 

TADR 

0069 

TRYFF 

0028 


CHAR 

0 0 71 

CMPV4 

0151 

GET 

0110 

HEX4 

00 35 

HEX405 

0 09 3 

HEX5 

0101 

JMPA2 

0 3 42 

JHP5 

0048 

JMP6 

0051 


WDIX 0070 


LUCHGi 


PAGE 


1 


DATE: 01/27/99 


GOOl 
00 0 2 
GO 03 
0 3 3 4 
0 0 0 5 
QOOfa 
OQ 07 
0 0 0 8 

0 3 0 9 
0010 
Gull 
0.12 
0013 

001 + 
0015 
03 16 
03 17 
0018 
00 19 
u J 2 u 
0 3 2 1 
00 22 
0 3 2 3 
03 2 - 
03 2 5 
0 0 2 6 
03 2 7 
0 3 23 
00 29 
00 3 0 
0 3 31 
0 3 32 
0 0 33 

00 3- 
03 3 5 
0G36 

00 3 7 
0 0 3 3 
0039 
00 4 0 

0041 
0 u 42 
0 0 4 3 
0 3 4 4 
Ou 45 
0 u 4 o 
0 3 47 
03 48 
0 j 49 
0 u 5 C 


POOOu 
PO 001 
PG0G2 
PO 0G3 
POOG- 
PGGD5 
POQCb 
P0DQ7 
PGGOb 
P0 009 
POOOA 
POO OB 
P 0 0 0 c 

POOGD 
P 0 0 u E 
P(j 0 u F 
POGIO 
PQQll 

P0012 
POOIS 
P0014 
P0015 
P Q 0 1 6 
PQ017 
P 0018 

pooig 

POGIA 
PO OIB 
POOIC 
POOID 
POOIE 
POOIF 
P002G 
PGu21 
P0Q22 
P0Q23 
P0 024 

PG025 

P0G26 

P0Q27 

P0G28 


0 0 0 0 
0 9 0 4 
6829 
09 08 
bOFF 
OAOi 
6826 
63 26 
5837 
0 9B6 
0101 
0820 
6827 
5332 
09D3 
0102 
OAOO 
1128 

583E 
0822 
80 00 


NAM LUCHGI DECK-ID M99 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 197o 

THIS PROGRAM PROCESSES THE -fLUI AND "^LUO 3 T AT EM ENTS FOR BRE A KPO INT 
THE VALUES PROVIDED BY A USER WILL NOT BE ^HECKED FOR LEGALITY 
DUE TO INABILITY OF BREAKPOINT TO ACCESS EQUIPMENT TABLES. 


SUHMARY-110M9900a01 
M9900002 
M990 0 3 0 3 
M99Q 0GG4 
M990 0 0 0 5 
M99G0006 
M993 0u07 
M993 0 006 
M993 0 00 9 



EXT 

LOGIA 

LUC 

MUM 

0 


INA 

4 


STA^ 

LIMOEX 


INA 

8 


STA- 

I 


ENA 

1 


STA^ 

WDIX 


STA^ 

CHAR 


RTJ^ 

GET 


INA 

-$4 9 


SAZ 

LUCl-^^-l 


RAO^ 

LIN3EX 

LUGl 

STA^ 

FLAG 


RTJ'^ 

GET 


INA • 

-$2C 


SAZ 

LUC2-^-l 

LUC15 

ENA 

0 


JMP- 

40, I 

LUC2 

RTJ^ 

DEC 


TRA 

Q 


ADD 

=NS1000 


LOC. OF LU STORAGE IN BRKPTD 

INPUT BUFFER ADDRESS 
INDEX TO 4TH CHARACTER 

SET CHARACTER FLAG FOR 4TH 
GET 4TH CHARACTER 

SKIP IF LUI 
SET INDEX FOR LUO 
SET I/U FLAG 
GET DELIMIT OR 

SKIP IF A COMMA 

FORMAT ERROR - BACK TO CONTROL PROGRAM 
CONVERT LOGICAL UNIT NUMBER FIELD 
FOR ASCII MODE 


M990 0010 
M990 dull 
M99Q 3 012 
M990 0 013 
M990 0 014 
M990 0 015 
M99D001& 
M993 0 017 
M990 0 018 
M99 j Q019 
M99GQ02Q 
M9900 021 
M9900022 
M99CQ023 
M99GQ 024 
M990 0025 
M99C0Q25 
M99JQ027 
H9900023 
M990 0029 
H99Q 0 030 
M990Q031 
M9900032 
M99G0a33 


1 0 Q Q 
6818 



3TA+ 

NUM 

0 314 



TRQ 

A 

9400 

X 


SUB 

LOGIA 

7FFF 

0132 

X 


SAM 

LUC25-<^-l 

0101 



SAZ 

LUC25-'^-l 

18F3 



JHP^ 

LUC15 

£600 

X 

LUC25 

LDQ 

LOGIA, Q 

GO 19 
C2Q8 

X 


LDA- 

8,Q 

A005 



AND- 

5 

E8 12 



LOO,=^ 

FLAG 

0141 



SQZ 

LJC3-^^-l 

0 C 02 



ENQ 

2 

00 02 


LUC3 

INQ 

9 

08B4 



LAQ 

A 

0111 



SAN 

LUC4-^-l 

ISES 



JMP^‘ 

LUC15 

G806 


LUC4 

LOA^ 

NJM 


SAVE LOGICAL UNIT 


LU NUMBER TOO LARGE 
GET PHYSTAB ADDRESS IN Q 

WORD 3 OF PHYSTAB ENTRY 
UNPACK AVAILABILITY BITS 

SKIP ON LUI 
LU IS OK 


M990 0034 
M99G0Q35 
M990 0035 


M9900 037 
M990Q 036 
M9930039 
M9900040 

M9900041 
M99 0 00 42 
M9900043 
M990 0 0-4 4 
M990 0045 
M990 0 046 
M99Q 0 047 
M993 0 048 
M9900049 
M99D 0 Ob 0 


LUCHGl 


P^GE 


2 


date: 01/27/99 


0 0 5 1 

P0C29 

5C0 2 


STA^ 

(LINDEX) 

0 3 5 2 

P00 2A 

1CD5 


JMP-' 

(LJC) 

0 3 5 3 



¥ 



0 u 5 4 

P002B 

0 0 01 

LINDEX 

BSS 

LINDEX (1) 

C 3 p 5 

POdZC 

0 0 01 

WUIX 

BSS 

WOIX(l) 

0 3 5 6 

P0020 

0 0 01 

CHAR 

BSS 

CHARI 1 ) 

0 0 5 7 

P0 02E 

00 05 

NUM 

BSS 

NUM (53 

Ou58 

P0033 

0 0 01 

FLAG 

BSS 

FLAG ( 1) 

0 0 59 






00 60 



» THE 

FOLLOWING BACKS 

005 1 






0062 

P0034 

0 0 0 Q 

BACK 

NUM 

0 

00 6 3 

P0Q35 

C8F7 


LOA^ 

CHAR 

QQ 64 

P0C3 6 

0115 


SAN 

8ACKl-’'-l 

0 0 6 5 

P0037 

D8F5 


RAO^ 

CHAR 

0 0 66 

P003<5 

C8F3 


LDA^ 

WDIX 

00 67 

P0 0 39 

09FE 


INA 

-1 

00 58 

P U 0 3 A 

68F1 


STA-» 

WDIX 

03 69 

P 0 0 0 B 

1CF8 


JMP- 

( BACK ) 

00 7 0 

P0 03C 

0 8 44 

8ACK1 

CLR 

A 

00 7 1 

PO 03D 

68EF 


STA^ 

CHAR 

0u72 

PO 03E 

1CF5 


JMP’f 

( BACK) 

007 3 



4 



0 07-+ 



^ THIS 

SUBROUTINE UNP 

0 0 7 5 



^ AND 

RETURNS IT IN A 

DO 7 6 



4 



00 7 7 

P003F 

0 0 0 0 

GET 

NUM 

0 

00 78 

P0040 

CDEB 


LOA^‘ 

(WDIX) t I 

0 0 79 

POO 41 

E8EB 


LDQ- 

CHAR 

00 80 

P0G42 

0151 


SQN 

GET 1-^-1 

00 8 1 

P0G-r3 

0FC8 


ALS 

3 

Oo 8 2 

PQ044 

AQOA 

GETl 

AND- 

$A 

0^83 

P 0 0 4^ 

0 1 44 


5QZ 

GET2-«--l 

03 8 4 

P 0 046 

0 8 42 


CLR 

Q 

00 3 5 

PQ0 47 

48 E5 


STQ- 

CHAR 

0 3 8 i? 

P0043 

D8E3 


RAO^ 

WDIX 

03 37 

P0 049 

1CF5 


JMP^f 

(GET) 

0 3 88 

P004A 

D8E2 

GETZ 

RAO^ 

CHAR 

00 39 

POO 4B 

E8ED 


LDQ^ 

WDIX 

0090 

PO 04C 

ODDA 


INQ 

-37 

Q091 

P004D 

Q 1 41 


SQZ 

OFLOW-i^-l 

0092 

PQ04E 

ICFQ 


JMP» 

(GET) 

00 93 

PDC4F 

18C0 

OFLOW 

JMP^ 

LUC15 

0094 



V- 



0095 



^ thi 

S SUBROUTINE CO 

0096 



4 



0 3 97 

P0 05Q 

G 0 u 0 

DEC 

NUM 

0 

0098 

P0051 

0 8 44 


CLR 

A 

00 9 9 

P0052 

68DB 


3TA^ 

NUM 

0100 

P0053 

68DB 


STA^ 

NUMf 1 

0101 

P005 4 

68D0 


ST A^ 

NUM + 2 

0102 

P0055 

0 AFB 


ENA 


0103 

P005o 

6 8 DA 


STA^ 

NUM43 


STORE NEW LOGICAL UNIT 
DONE 

ADDR. OF LOGICAL UNIT IN QUESTION 
WORD INDEX OF CURRENT CHARACTER 
CHARACTER FLAG 0=LEFT 1=RIGHT 
SCRATCH 

Q=INPUT not zero = OUTPUT 


SKIP ON CHAR = RIGHT 


SET CHAR TO LEFT 


GET CHARACTER WORD 

CHARACTER FLAG Q=LEFT 1=RIGHT 

SKIP ON RIGHT CHARACTER 

UNPACK IT 
SKIP ON LEFT 

UPDATE CHARACTER FLAG 
UPDATE WORD INDEX 
RETURN 

UPDATE CHARACTER FLAG 
TEST FOR BUFFER END 

SKIP ON INPUT BUFFER END - ERROR 
RETURN 


SUBROUTINE CONVERTS SIGNED DECIMAL INTEGERS TO BINARY 


CLEAR NUMBER 

SET SIGN POSITIVE 

SET 1ST CHARACTER FLAG TO 1ST 

SET DIGIT COUNT 


M9900a3i 
M9900052 
M990 0 053 
H990 0 05^ 
M99j0G5t? 
M99u0056 
M990 0 05 7 
M990 0 05 8 
M99lj 0 059 
M993 0 D60 
H990 0 Ool 
M993 0062 
M993 0 063 
M99J 0 064 
M990 0 065 
H990 0 066 
M99G 0 067 
M99QQ06a 
M99 0 0 06 9 
M99j 0 07 0 
M990 0 071 
M99Q 0 072 
M99G0073 
M990 0074 
M993 0 07 5 
M9900076 
M99GQ 077 
M99- u 078 
M990 0 079 
H9900 080 
M990tj081 
M9900u82 
M99a0083 
M990 0084 
M99u0Q85 
M9900086 
H990Ca87 
M993U088 
M990G089 
M990 0 09 0 
M9900091 
M99QQ092 
M9900a93 
M99Q 0 094 
M9900G95 
M99Q0Q9b 
M9900 097 
M993 0 098 
M9930099 
M990Q100 
M990 OiOi 
M993 010 2 
M9900i03 



LUCHGl P4GE 3 


o 

0134 







010 6 

P0 0 57 

58E7 

DECl 

RT 

GET 

o 

0 1 C 6 

P 0 0 6 8 

E8D7 


LDQ^'- 

NU'H-2 

GIG 7 

PC 059 

Q15A 


SQN 

OEC8-^-l 


0108 

PG Q5A 

0 9 04 

DEC 2 

INA 

-$2B 


01G9 

P0 05B 

0112 


SAN 

0EC5-^-l 


QUO 

POO 5C 

D8D3 

DEC3 

RAO’^ 

NUM+-2 


0111 

P0G5D 

laF9 


JMP- 

DECl 


0112 

PO Q5E 

09FD 

DEC5 

INA 

-2 


0113 

P0 05F 

0112 


SAN 

DEC6-^-l 


0114 

P0060 

D8CE 


RAO^ 

NUM^-l 

\ J 

0115 

P0061 

18FA 


JMP- 

DEC3 


0116 

P0062 

0 8 CD 

DECS 

RAO^ 

NUM + 2 


0117 

PQQ63 

Q92D 


INA 

$20 


0118 

P0Q6-T 

E8CC 

DECS 

LDQ^ 

NUM43 


0119 

PO 0 b 5 

0 151 


SQN 

DEC9-^-l 


0120 

PQQ66 

18A9 


JMP-^ 

LUC15 


0121 

P0067 

08C9 

DEC9 

RAO^ 

NUMiH3 

o 

0122 

PO 068 

Q9CF 


INA 

-S3Q 

D123 

P0Q69 

0121 


SAP 

D ECIO-'^- 


0124 

P006A 

1810 


JMP^ 

DEC30 


G12 5 

PO 06B 

09F5 

DEC 13 

INA ■ 

-$A 


0126 

P0 06C 

0131 


SAM 

DECll-^- 


0127 

P006D 

1800 


JMP^‘ 

OEC30 


0128 

PO udE 

09GA 

DECll 

INA 

$A 


0129 

PQ06F 

68G2 


STA» 

NUM + 4 


G13Q 

P0 07 0 

0 A OA 


ENA 

10 


0131 

Pu071 

2 SBC 


MUI^ 

NUM 


0132 

PG 072 

3 1 41 


SQZ 

DEC12-^- 


0133 

P0G73 

18 9C 


JMP- 

LUC15 


013- 

P0074 

QIBO 

DEC12 

SNO 

0 


0133 

P0Q75 

88BC 


ADO^ 

NUH-i-4 


013 6 

P0G76 

OlBl 


SNO 

DEC13-^- 


013? 

PQ077 

1898 


JMF» 

LUC15 

o 

0138 

P 0 0 7 8 

6 8B5 

DEC13 

STA^ 

NJM 

0139 

P0079 

18DD 


JMP^^ 

DECl 


0140 ^ 



0141 

PQ07A 

58B9 

DEC 3 0 

RTJ^ 

BACK 


0142 

P0Q7B 

G8B2 


LUA^ 

NUM 

‘-vX 

0143 

PQ07C 

E8B2 


LDQ^^ 

NUM + 1 


0144 

P0 07O 

0 1 4l 


SQZ 

OEC31-^“ 


0145 

PQ07E 

1891 


JMP« 

LUC15 

n 

014 6 

P007F 

ICDO 

OEC31 

JMP^ 

(DEC ) 


014 7 




END 



date: 01/27/99 


GET A CHARACTER 

SKIP ON NOT 1ST CHARACTER 

SKIP IF NOT A PLUS 

TURN OFF 1ST CHARACTER FLAG 


SKIP IF NOT A MINUS 
SET SIGN NEGATIVE 

TURN OFF 1ST CHARACTER FLAG 


SKIP IF LESS THAN 5 DIGITS 
TOO MANY DIGITS 
UPDATE DIGIT COUNT 

SKIP ON OK SO FAR 
NOT A DECIMAL DIGIT 

SKIP ON DECIMAL DIGIT 


HERE IS THE ACTUAL CONVERSION 

SKIP IF NUMBER LESS THAN 32 763 
NUMBER TOO LARGE 


SKIP IF NUMBER LESS THAN 32768 
NUMBER TOO LARGE 
SAVE CURRENT PROCEEDS 
GO GET NEXT DIGIT 

BACK UP SCAN BY ONE 


SKIP ON POSITIVE NUMBER 
NO NEGATIVES ALLOWED 
DONE 


PGM= 0080 { 12S) COM = uGJu ( 


0 ) DAT = 000 (3 ( 


O 


C) 


M99j 010 4 

M99D0105 

M99a01Q6 

M990Q107 

M9900108 

M99i3ul0 9 

M990 0110 

M990aill 

M9900112 

M9900113 

M9930 114 

M990011 5 

M9900116 

M990G117 

M9900118 

H990G119 

M990ai20 

M990Q121 

M9900122 

M990G123 

M990Q124 

M9900125 

M99u0126 

M99G0127 

M99D0128 

M990 0129 

M993 G 130 

M99a0131 

M9900132 

M9900133 

M990Q134 

M9900135 

M993 0 136 

M9900137 

H9900138 

M993Q139 

M9900140 

M990G141 

M99Q0142 

M99D0143 

M99 3 0 1 44 

M9900145 

M9900146 

M9930147 


o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

G 

O 

C) 

c 

o 

c 

o 


LUCHGl PAGE 4 DATE: 01/27/99 

o 

EaUIVALENCES 

r) DEF.LINE MAME VALUE REFERENCED AT LINE NUMBER 

0 3 0 0 r 0 OFF ( 00 0255) 0 01b 

O 

O 


C) 


o 

o 

o 

o 

o 

o 

o 

o 

r") 


o 

o 

o 

o 

o 

(D 

o 

o 

c 

o 

V.-‘ 

o 

o 

o 

o 


o 


LUCHGl 3AGE 5 DATE: «i/27/99 

S Y H B 0 L S 


o 

DEF.LINE 

NAME 

ADDRESS 

referenced at 

LINE 

NUMBER 



0012 

LUC 

0 0 G C 

0 0 52 







0 u 2 n 

LUCl 

OOOC 

0 0 22 






o 

0 C 28 

LUC15 

0 0 lu 

0 3 39 , 

0 3 49 , 

3;.93, 

0120, 

013 3, 

0 13 7 


0 0 31 

LUC2 

0012 

0 0 27 







0 3 40 

LUC25 

OOID 

0 0 3 7, 

0 038 






0 0 4 6 

LUC3 

u 0 2 4 

0 0 44 






o 

0 350 

LUC4 

0C28 

0 0 48 






3 0 3 4 

LINDEX 

U02B 

0 014, 

0023, 

0051 





0 0 5 5 

WDIX 

002C 

0 0 18, 

0 0 66, 

0068, 

0 0 78, 

0 0 8 6, 

0 089 


0 05 6 

CHAR 

0C2D 

0 019, 

0C63, 

0 055 , 

0 0 7 1, 

0 0 79 , 

0085 


0 0 5 7 

NUM 

302E 

0 0 34, 

0050 , 

0099, 

0100, 

u 10 1 , 

0 10 3 




3 142, 

0143 






0 0 58 

FLAG 

0033 

00 24 , 

0 043 






0 062 

BACK 

00 3 h 

0 0 69 , 

0C72, 

0141 





0 0 70 

3ACK1 

G03C 

0 0 04 







0 0 77 

GET 

003F 

0 0 2G , 

0 02 5, 

G u 3 / , 

0092, 

010 5 



0C82 

GET 1 

004 4 

0 0 80 







0088 

GET2 

QO 4 A 

0 G83 






o 

3 093 

OFLOW 

004F 

0 u 91 






0097 

DEC 

0 0 50 

0Q31, 

0146 






010 5 

OECl 

0 0 5 7 

0111, 

0139 






0108 

DEC2 

a05A 








0 113 

0EC3 

u 0 5 C 

0115 







0112 

DECS 

005E 

0109 







0116 

0EC6 

0 0 62 

0113 







0118 

DEC8 

0064 

0107 






■T' 

0121 

0EC9 

0 06 7 

3 119 







0125 

DECIO 

0Q6B 

0123 







0126 

DECll 

Q06E 

0126 







0134 

DEC12 

0G74 

0132 






o 

0138 

0EC13 

0078 

0 136 






0141 

DEC30 

007A 

0 124, 

0127 






0146 

DEC31 

Q07F 

0 144 







o 


o 

o 

o 


Q 

o 

C) 

0145 0 

0 0 38 

0106, 0110, 0114, 0116, 0118, 0121, 0129, 0131, 0135, 0138 0 

■ O 

: o 

: O 
; O 
O 
, O 
O 
O 


O 


o 


LUCHGl 


=>AGE 


o 


date: 01/27/99 


EKTERNALS 

OEF.LINE .^AME VALUE REFERENCED AT LINE NUMBER 

0010 LOGIA OOIE 0036, u040 


(' ) 


o 

o 

o 

o 


I 




o 


o 

o 

o 

o 


C) 

o 

o 

c 

o 

Q 

o 

r- 

o 

o 


Q 

o 

o 

o 

c 


LUCHGl 


Pi\GE 


7 


date: 01/27/99 



(J 

A L 

P H A 

B E T I 

CAL 

S 0 ^ T 

0 F 

S Y M B 

0 L S 



Q 

BAGK 

iJ 0 62 

3ACK1 

QG70 

CHAR 

0 0 56 

DEC 

0097 

OECl 

0105 


DEG2 

0 1 Oo 

DEC 3 

u 110 

DEC 3 0 

0 l4l 

DEC31 

01^0 

DECS 

3112 


GET 

0 077 

GETl 

Q082 

GETZ 

0 0 88 

I 

oooo 

LINOEX 

0054 

O 

o 

LJG2 

0Q31 

LUC25 

j 040 

LUC3 

0 0 46 

LUCA 

OOrJb 

NUH 

0 05 7 



o 

o 

o 

o 

o 

o 

o 


o 

o 


OECIO 

0125 

DECli 

0128 

DEC12 

0 134 

DEC13 

0138 

O 

DEC6 

0116 

DECS 

0113 

DEC9 

0121 

FLAG 

0 05 8 


LOGIA 

0010 

LUC 

00 12 

LUCl 

'0024 

LUC15 

0028 


OFLOW 

0093 

WDIX 

00 55 





■ O 









o 









o 









o 









(■"■') 


o 

o 

o 

o 

o 

o 

o 


u 


BRKPTl 


PAGE 


date; 01/27/99 


00 0 1 
00 0 2 
OGQ 3 
03 0 4 
03 0 5 
00 0 6 
03 0 7 
0GQ8 
00 0 9 
0010 
0 311 
03 12 

0013 

0014 

0015 
00 16 

0017 

0018 
0019 
00 2 0 
0021 
0022 
0 3 23 
00 2 4 


¥ 

a- 


NAM BRKPTl DECK-ID NOl MSOS 5.0 

HASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 


SUMMARY- 


^ THIS IS THE CONTROL PROGRAM FOR BREAKPOINT.. 

^ ON INITIAL ENTRY FROM THE MONITOR, 0 CONTAINS THE ENTRY LOCATION 
^ TO THE USER PROGRAM. NORMAL ENTRIES FROM THE USER AS THE RESULT 
OF BREAKPOINTS ARE MADE AT BRKP. 

^ IN RESPONSE TO USER COMMANDS BRKPTD WILL CALL, AS OVERLAYS, 

* THE APPROPRIATE PROCESSORS TO PROCESS THE COMMANDS.. THE PROCESSORS 
^ ARE ACCESSED AS ABSOLUTE, LOAD ANYWHERE PROGRAMS FROM THE PROGRAM 

^ LIBRARY VIA GTFILE REOUESTS.. THE PROGRAMS (OVERLAYS) ARE LOADED 
^ INTO THE AREA DESIGNATED AS OLAY. EACH OVERLAY IS ENTERRED AT 
^ ITS LOWEST LOCATION AS A CLOSED SUBROUTINE. ON ENTRY, A WILL 

* CONTAIN THE CORE ADDRESS OF THE BLOCK OF TABLES AND DATA STARTING 
^ AT QX IN THIS PROGRAM. THE BLOCK OF DATA FROM QX TO USERP SHOULD 
^ NOT BE DISTURBED AS IT REPRESENTS THE COMMUNICATION BETWEEN THIS 

^ PR3GRAH AND THE OVERLAYS. 

^ NBTS REPRESENTS THE MAXIMUM NUMBER OF BREAKPOINTS ALLOWED. IT MAY 
^ 8E CHANGED BY ASSEMBLY OF THOSE PROGRAMS IN WHICH IT IS AN ASSEMBLY 
^ PARAMETER. NEW STATEMENTS AND PROCESSORS MAY BE ADDED DY SIMPLY 
^ ADDING THEM TD THE BPTAB AND BPREL TABLES. STATEMENT PROCESSING 
^ IS CONTAINED ENTIRELY WITHIN THE STATEMENT PROCESSOR (OVERLAY). 


IIONOIOOOQI 
NQ100002 
N013GQQ3 
N0100304 
NO 10 0 3 0 5 
N0 10 0 0G6 
NO 13 u 00 7 
N01Q0006 
NGIG 0 009 
N j 13 0 OIG 
NQlOOOll 
NUIJ G 012 
NOlO 0013 
N0100014 
NOIQOGIB 
N013Q01& 
NOlO G 017 
NOlOO 018 
NOlO 0 019 
N010Q02G 
NulOGGZl 
NO 13 0 02 2 
N31u0023 
N01GC324 


00 25 







NOlO 0 02 5 

00 26 




ENT 

BRKPT D 


NO 13 0 026 

0 3 2 7 



If. 




N3 13 0 02 7 

00 2 8 


03 OF 

NBTS 

EQU 

NBTSd?) 


N0100028 

G u 29 






< 

NO 10 0 029 

C 3 3 u 

p 0 0 0 3 

58 01 

BRKPTD 

RTJ^ 

^41 

FIRST ENTRANCE TO BREAKPOINT 

NOlO 0030 

0 j 3 1 

PO uu 1 

0 BOO 


NOP 

0 

WILL HOLD ABS LOC OF BRKPTD+1 

N0100031 

03 32 

POO 02 

4800 


STD 

USERP 

SAVE ENTRY TO USER PROGRAM 

NOlO 0032 


PO uu 3 

G0D7 






0 3 3 3 

POuGm- 

C8FQ 


LDA^ 

BRKPTD41 


N0100033 

0Q3h 

P G 0 u 5 

0911 


INA 

3RKP-BRKPTD-1 


N0130034 

0 3 3 5 

P 0 G fl 6 

60 F3 


STA- 

SF3 

SET ENTRY TO BREAKPOINT FROM THE USER 

N01U0Q35 

0 0 3 6 

PG007 

C8F9 


LDA^ 

BRKPT D41 

COMPUTE BUFFER ADDRESS 

NO 10 0 036 

0G37 

° 0 0 u 6 

0 9 40 


INA 

3RKP1-BRKPTD- 

1 

NOlO 0037 

3 3 3 3 

P 0 0 u 9 

6832 


STA-'^ 

ADDRES 

STORE BUFFER LOC. FOR OUTPUT 

NOlO 0 036 

Ca 3 9 

POO OA 

C8F6 


LOA^ 

BRKPTO+1 

COMPUTE A3S LOC OF BP FOR OUTPUT 

NOlO 0039 

0040 

P 0 0 0 B 

0 9 52 


INA 

BP-BRKPTD-1 


N01u034G 

0341 

p a 0 0 c 

68 4F 


STA^ 

ADDRSS 

STORE IN OUTPUT REQUEST 

N01uQu41 

UJ 42 

PuuuD 

C8F3 


LDA^ 

BRKPTDfl 

COMPUTE INPUT BUFFER ADDRESS 

NOlO 0042 

0 3 43 

PQGQE 

8 0 00 


ADD 

=XBJF-BRKPTD- 

1 

NOlOO 0 43 


PGO OF 

0 0 8F 






CG 4- 

P031Q 

68 50 


STA^ 

AORl 

STORE FOR INPUT REQUEST 

NOlO 0 044 

0 J p 

PuOli 

1844 



READY 

NOIJ 0045 

0 3 4 6 







NG130046 

00 47 

PuGlZ 

0800 

8RKP 

NOP 

0 

ENTRY FROM USER PROGRAM 

NOlO 0047 


POO 13 

6872 


STA^ 

AX 

SAVE USER A 

N01ui3048 

3 3 4 9 

P 0 0 1 •+ 

48 70 


STQ-^ 

QX 

SAVE USER Q 

NO 10 0 0 49 

u J 5 0 

P Q u 1 5 

CQFF 


LOA- 

I 


NO IG 0 050 

u 0 5 1 

POGlb 

68 70 


STA + 

IX 

SAVE USER I 

N0100051 


O 

T) 


r'-'! 


O 

O 

n 

O 


r-, 


o 


Q 


U 


O 

o 

o 

c 


o 

o 

C) 

o 


o 

o 

o 

0 

“w* 

(3 


O 


o 


8RKPT1 


^AGE 


date: 01/27/99 


00 5 2 

P0017 

0 8 0 C 


TRM 

A 

Q 0 5 3 

P0018 

686F 


STA^ 

MX 

0 0 5 4 

P0019 

C3F8 


LOA-> 

BRKP 

0 0 5 5 

PQOIA 

09FE 


INA 

-1 

0 0 56 

POOIB 

68 70 


STA^ 

BPLOC 

00 5? 

POOIC 

680 0 


STA 

SPG 


POQID 

0 090 


STA^ 


l3 O' 5 8 

POOIE 

686E 


W1 

0 3 5 9 
00 5 0 

PQGIF 

0C03 

4 

ENQ 

3 

0 0 51 



4 the 

FOLLOWING CONVERTS 

00 5 2 



4 



0 053 

P002U 

AO 06 

RPT 

ANG- 

6 

0 0 5 4 

P0 021 

D9F5 


INA 

-$A 

Q0o5 

P0Q22 

0131 


5 AH 

LTlO-^-1 

0 D 5 6 

PQQ23 

09 07 


INA 

7 

0 3 5 7 

P0 024 

b93A 

LTlu 

INA 

$3A 

00 5 8 

P 3 0 2 5 

6A67 

STORE 

STA^ 

W1,Q 

0 0 5 9 

PG026 

0 1 45 


SQZ 

FIN-^-1 

0 0 7 j 

P0 027 

ODFE 


INQ 

-1 

0 3 71 

P0C28 

C8 64 


LDA- 

HI 

0 3 72 

PQ0 29 

0 F 44 


ARS 

4 

00 73 

P002A 

6862 


STA'^ 

HI 

00 7 4 

PO 020 

18F4 


JHP- 

RPT 

Qu7 5 

PO 02C 

0FC8 

FIN 

ALS 

3 

00 7 o 

P0Q2O 

8860 


ADD^ 

W2 

Qu77 

P00 2E 

E860 


LDQ^ 

W3 

0 0 7 8 

P0Q2F 

0FA8 


QLS 

3 

0 0 79 
03 3 0 

P00 30 

F85F 

4 

AOQ^ 

W4 

ODSl 

P0031 

63 IF 


STA^ 

BRKPi+2 

0 3 3 2 

P0032 

48 IF 


STQ» 

BRKPl+3 

0 3 33 

PQQ33 

C856 


LOA^ 

LUO 

03 8 4 

PaG34 

68 05 


STA^ 

LUOl 

00 85 

P0 035 

5 4 F4 


RTJ- 

( $F4) 

0 0 8 6 

PO'036 

4C00 


NUM 

S4CD0 ,0 


P0G37 

QOQQ 




008 7 

P0Q38 

0 0 0 0 


HUM 

0 

00 88 

P0039 

18FC 

LUOl 

NUM 

$18FC 

Ou 3 9 

Pflu3A 

0 0 05 


NUM 

o 

009 J 

PQ03B 

u 0 0 C 

ADORES 

NUM 

0 

G-;.91 



4 


LUOl-1 

0 3 92 

P003C 

C8F8 

WAIT 

LOA» 

0093 

PQ03O 

0101 


3AZ 

THOK 

Gu9- 

PQ03E 

18 FO 


JMR4 

WAIT 

0 3 95 

=50 u3F 

GCflE 

THOK 

ENQ 

N8TS-1 

0 0 9 b 



4 



00 9 7 



^ THE 

FOLLOWING TRIES TO 

C098 



4 


8PL,a 

0 0 99 

P 0 G 4 0 

CA 00 

BRKP2 

LDA 

P0Q41 

0 0 7A 



SPC 

GIOG 

==>0042 

9 3 78 


SUB» 

0101 

PQ 043 

0106 


SAZ 

BR<P4-^-l 


SAVE M 

BREAKPOINT LOG. TO A 

SAVE BREAKPOINT LOCATION 
SAVE IT HERE ALSO 

BREAKPOINT ADDRESS TO A ASCII CHARACTERS 
CONTAINS $F - UNPACKS 1 HEX DIGIT 
SKIP IF DIGIT LESS THAN $A 

SAVE A CONVERTED DIGIT 
SKIP IF CONVERSION COMPLETE 


ADDRESS NOW IN ASCII IN A AND Q 
STORE FOR OUTPUT 

SET OUTPUT DEVICE 
WRITE BP,HHHH 


LOCATE THE BREAKPOINT IN THE TABLE 
BREAKPOINT LOG. TABLE SEARCH 

SKIP IF LOCATION FOUND 


N01G0052 
N0100053 
NOIjOOGA 
NOlQD 055 
NO 10 d 056 
N0 10 0 05 7 

N010Q05B 
NOlO 0 059 
NOIG CD6C 
NOlOOObl 
NOIGO 062 
N01GQ063 
N0100064 
NOlu 0 065 
NQlu 0 066 
NOlO 0 Qo7 
NOIOO 068 
NO 10 0 059 
NOlO 00 70 
NOlO 0071 
NaiOG072 
N31G0073 
ND10007A 
N01Q0075 
N01Q0075 
NOl] 0 077 
N0130078 
N0100079 
NQ100080 
NOlO GOBI 
NQIG 0 382 
N0100083 
N0100084 
N01DG385 
NQl] 0 085 

N01Q0087 
NOlO 0 0 88 
NOlOOuSg 
NO 10 u 09 0 
NQ13Q 091 
NOiOOD92 
N0100093 
NOlO 0 094 
NOIOO 095 
N3100096 
NQIO 0 097 
N013 u 098 
N01Q0099 

NQIOOIOD 
NOlO 0101 


G 

C' 

C; 

o 

o 

o 

A.- 

o 


o 

o 

o 

o 

o 


o 


o 


BRKPTl 


=>AGE 


3 


date; 01/27/99 


010 2 

PO 04h 

QDFE 


INQ 

-1 

010 3 

PG 045 

0 1 71 


SQM 

8RK^3-*-l 

010 - 
010 5 

PQG46 

18F9 


JHP¥ 

ORKP2 

0106 

PGG47 
PO 048 

ccoo 

0800 

BRKP3 

LOA 

= N$B0 0 

010 7 
0108 

P0049 

1303 


JMP^ 

BRKP5 

0109 

PG04A 

P004B 

CAOO 
0 0 80 

BRKP4 

LDA 

INST, Q 

0110 

P004C 

587E 

BRKP5 

STA^ 

SPGl 

0111 

0112 

POJ40 

1812 

»/• 

JMP^ 

READl 

0113 

POG 4 E 
P00-+F 
P0 05U 
P0 051 

2042 
502C 
2020 
20 20 

BRKPl 

ALE 

4, 3P , 

011*+ 

Oils 

P0Q52 

GOOD 

Af- 

NUM 

$0D3O 

011b 
Oil 7 

P0053 
POOS 4 

OD 42 
5 0 00 

6P 

¥ 

NUM 

S0342,S500D 

0118 

PQQ55 

5-+F4 

READY 

RTJ- 

{$F4) 

0119 

P0 05 6 
PO 057 

wCOD 
0 0 0 0 


NUM 

$4C00 , 0 

C12u 

P0 058 

0 0 0 0 


NUM 

a 

0121 

P0059 

18FC 

LU02 

NUM 

$13FG 

0122 

PO G5A 

0 0 02 


NUM 

2 

0123 
Q12 + 

PuOSP 

oaoo 

ADDRSS 

¥ 

NUM 

0 

0125 

POO 5C 

C8FB 

WAIT2 

LDA^ 

LU02-1 

0126 

P005D 

QlCl 


3AZ 

READl 

0127 

P 0 C5 E 

18F0 


JMP^ 

WAIT2 

0128 

P 0 u 5 F 

GC27 

READl 

ENQ 

39 

0129 

P 0 0 6 u 

08 04 


SET 

A 

013 0 

poasi 

6A2F 

REAOYl 

STA^ 

BUF,Q 

0131 

P0062 

CDFE 


INQ 

-1 

0132 

P 0 Ob 3 

0171 


SQM 

READ-*- 1 

0133 

0134 

POO 64 

18 FC 

¥ 

JMP’^ 

READY 1 

013 5 

P0065 

G823 

REAU 

LDA^ 

LUI 

013 6 
0137 

POO 6b 

0 8 u 5 

¥ 

STA^ 

LUII 

0138 

P0067 

54F4 


RTJ- 

($F4) 

0139 

P0068 
PO 069 

48 00 
0 0 00 


NUM 

34800,0 

u 1 -+ 0 

PG 06A 

00 0 0 

THREAD 

NUM 

0 

01 -tl 

PO Q6B 
P0 06C 

18FD 
0 0 28 

LUIi 

NUM 

$18F0,4Q 

0142 

0143 

poaeo 

00 aa 

ADRl 

¥ 

NUM 

0 

0144 

PQQ6E 

C8FB 

STAT 

LOA* 

THREAD 

0145 

P006F 

0101 


SAZ 

COMT-*-i 


SKIP IF LOCATION CANNOT BE FOUND 
CONTINUE SEARCH 

SET INSTRUCTION AS A NOP 

GET CORRESPONDING INSTRUCTION 
STORE AS CURRENT INSTRUCTION 


2 CARRIAGE RETURNS 

BP SURROUNDED BY CARRIAGE RETURNS 

WRITE BP 


BACKGROUND INPUT BUFFER TO $FFFF 

SKIP WHEN DONE BACKGROUNDING 

SET INPUT DEVICE 
REAU A STATEHENT 

READS 8Q CHARACTERS 

WAIT FOR COMPLETION 
SKIP WHEN DONE 


NOluOluE 

NQ100103 

N0iDQia4 

NOlOOlOP 

NQlOOlOb 

NDlOQiO/ 

NOIOOIOB 

NU1001Q9 

NOlGOliO 
NQlOOlll 
NQIOO 112 
NOlOOllS 


NU100114 

NOlOOiiS 

NQ10011& 

NOlOull? 

N0100118 

NQ100119 

N013 0120 

N010Q121 

N0100122 

N01D0123 

NU100124 

NQ1Q0125 

N01G0126 

NQIO 012/ 

NQ10Q128 

NOiOOiZg 

NOlOOiSO 

NOIQOISI 

N01QQ132 

NfllG0133 

NOlO 0134 

NQIC Q135 

N013 Gt3b 

N0100137 

N0i00i38 

N0130139 


NQID 0140 
NOIQ 0 l4l 

N0iQ0142 
NU100143 
NGIJ 0144 
NO 10 014 5 


BRKPTl 
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date: Qi/27/99 


0146 

P0070 

18FD 

0147 

PQG71 

C8F9 

0148 

P0 072 

0121 

0149 

POO 73 

18E1 

015 0 

PQQ74 

18 0 0 

0151 

POO 75 

Q12E 

0 1 ? 2 

POO 76 

H- 6 4 F 


P0 0 7 7 

524D 


P0Q78 

*tl5P’ 


P00 79 

2 0 45 


P 007A 

5252 


PO j 7B 

•+F52 


PQ07C 

2020 

0153 

PGD7D 

50 52 


PG07E 

J+F 54 


P007F 

1+543 


Puoao 

5420 


P0u8i 

45 52 


PG082 

524F 


P0083 

5220 


CONT 

TDEF 

JMP’'^ 

LDA» 

SAP 

JMP^ 

JMP 

STAT 

LUIl 

TDEF--- 1 
READY 
DE- INE 

wait some more 

SKIP IF NO READ 
GO 3ACK AND TRY 

ERRORS 

IT AGAIN FROM THE START 

ERR MSG 

ALF 

7 , FORMA T 

ERROR 



ERR M2 

ALF 

7 , PROTECT 

ERROR 




NOlOOl^tb 
NOlOQlH? 
NQ1QQ148 
N0130149 
NOlOfl 150 

NQiaOlSi 

NQ1Q0152 


N0100153 


BRKPTi PAGE 5 DATE: 01/27/99 


015!? 








N31D0155 

0156 



^ THE 

following TABLES BUFFERS ETC. ARE USED IN 

OVERLAYS OF 

N013 015o 

0157 



^ BREAKPOINT. THE LOCATION €A8S0LUTE> OF QX IS 

TRANSFERRED IN 

N013 0 157 

0150 



^ THE A REGISTER TO ALL 

CALLED OVERLAYS. 


NO 13 015 8 

0159 








Nfll00159 

015 0 

P0084 

0 0 01 

QX 

BSS 

QXtl) 

USERS a 


NO 13 u 160 

0151 

P Q 0 8 5 

0 0 01 

AX 

BSS 

AX(1) 

USERS A 


N013D161 

0152 

P0 086 

0 0 01 

IX 

BSS 

IX(1) 

USERS I 


Nfll00162 

0153 

P0087 

0 0 31 

HX 

BSS 

MX( 1) 

MASK REGISTER CONTENTS 


N0100163 

0 1 5 4- 

P0088 

18FD 

LUI 

NUM 

$18F0 

LOGICAL UNIT FOR INPUT 

(WHOLE WORD 

NO 13 0 15 4 

0155 

PQ089 

18FG 

LUO 

NUN 

$18-C 

LOGICAL UNIT FOR OUTPUT 

(WHOLE WORD) 

NOlJ 016 5 

0156 

PQ08A 

G 001 

PASS 

BZS 

PASS (1> 

FIRST PASS FLAG 


N010G166 

0157 

P 008E 

0 0 01 

BPLO: 

BSS 

3PL0C (1) 

STORAGE FOR BREAKPOINT 

ADDRESS 

NO 10 0 167 

0158 

P008C 

0 0 01 


BSS 

WKl) ,W2(1) ,W 

31 1) , W4{i) 


N0100168 


P 00 80 

0 0 01 








PG Q8E 

00 01 








PO08F 

0 0 01 







0159 

P0G90 

0 3 28 

BUF 

BSS 

BUF (40 ) 

INPUT BUFFER 


N0100169 

017o 

POU B8 

1323 


JHP- 

BOl 



N01C0170 

0171 

PD0B9 

1836 


JHP- 

302 



N0130171 

0172 

POOBA 

‘0 0 01 

SPC 

BZS 

SPC (1) 

CURRENT BREAKPOINT LOCATION 

N0100172 

0173 

P 0 0 B 9 

00 OF 

BPL 

BZS 

BPL(NBTS) 

BREAKPOINT TABLE 


NQ1GG173 

017 9 

pQuCA 

0 u 01 

SPCl 

BZS 

SPCl (1 J 

INSTRUCTION AT CURRENT 

BREAKPOINT 

N013 0174 

0175 

PflOCB 

0 G OF 

INST 

BZS 

INSTCNBTS) 

INSTRUCTION TABLE 


NOID 0175 

017 5 

POODA 

7FFF 

USER = 

NUM 

S7FFF 

USER PROGRAM INITIAL ENTRY LOCATION 

Nj 13 0 176 

0177 








NG130177 

0178 



* THE FOLLOWING ARE ERROR TYPEOUTS 


NOi; 0178 

0179 








N0100179 

ulBu 

PO GDR 

fllOl 

BO 1 

SAZ 

801A-^-i 

SKIP ON BAD STATEMENT 


NDIOOIBO 

0181 

POODC 

56 19 


RTJ^ 

FIELD 

PROCESS BAD FIELD 


N0100181 

0132 

POOOD 

C800 

801A 

LDA 

9RKPTD^■i 

COMPUTE ADDRESS OF BAD 

STATEMENT ERROR MESS. 

N01QQ182 


POQDE 

FF22 







0133 

PGODF 

0975 


INA 

ERRHSG-BRKPTD' 

-1 


N0100183 

013- 

POQEQ 

6 8 G 9 

3Z1 

STA-^ 

ADR3 



NOIj 0 184 

013 5 

PCOEi 

C8 A7 


LDA^ 

LUO 



N010Q185 

0186 

PO u E2 

6805 


STA» 

rfOlB 

SET OUTPUT DEVICE 


N013D186 

018 7 

PG0E3 

54 F4 


RTJ- 

($Fh) 

ERROR MESSAGE OUTPUT 


NG13G187 

0188 

P00E9 

40 0 0 


NUM 

$4C30,Q,Q 



N013 0188 


P0DE5 

0 Q GO 








P00E6 

00 00 







0139 

PQ0E7 

18FC 

Boia 

NUM 

$18FC , 7 



NQIO 0 189 


PO 0E8 

0 0 07 







0190 

PO 0E9 

0 0 00 

A0R3 

NUM 

a 



NO 10 019-0 

0191 

POOEA 

C8FB 

STATl 

LDA^ 

8D18-1 

WAIT FOR COMPLETION 


N0100191 

0192 

POOEB 

0101 


SAZ 

QOMTl-^-1 

SKIP IF DONE 


N3130192 

Q193 

POOEC 

18FD 


JMP’»- 

STATl 

WAIT SOME MORE 


N01QQ193 

019- 

POGED 

1800 

CONTI 

JMP 

READY 



NQia0194 


POQEE 

FF66 







0195 



V- 





N010019 5 

019 6 

POUEF 

0101 

802 

SAZ 

B02A---1 

SKIP ON BAD STATEMENT 


N1J100196 

0197 

PflOFG 

58 05 


RTJ*^ 

FIELD 

PROCESS BAD FIELD 


NO 10 0197 

0198 

POOFl 

Ca GO 

302A 

LDA 

BRKPTDf 1 

COMPUTE ADDRESS OF PROTECT ERROR MESSAGE 

NQ10G198 


POGFZ 

ffoe 









8RKPT1 
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OATEJ 01/27/gg 


C199 
0 2 0 G 


0 2 0 1 
02 0 2 
0203 

020 A 


PDuFo G97C 
P00F4 18EB 


* 


INA ERRM2-3RKPTO-1 
JMP^ 3Z1 


THIS ROUTINE PRINTS THE CONTENTS OF A BAD FIELD. 
THE INDEX TO THE FIELD START IS IN A ON ENTRY. 
FIELD IS TERNINATEO BY A COMMA OR. STATEMENT END. 


020 5 



-¥• 



02u6 

P00F5 

0 0 0 0 

FIELD 

NUM 

0 

020 7 

P00F6 

60FF 


STA- 

I 

0 2 0 8 

P0GF7 

68 wtj. 


SIA- 

WOI X 

02 09 

PO GF8 

uAOl 


ENA 

1 

0 210 

P0QF9 

6843 


STA^ 

CHAR 

0211 

PQOFA 

C995 


LDA^ 

3UF, I 

0212 

PDGF9 

AO lA 


AND- 

$1A 

0213 

POOFC 

PGOFD 

90 00 
2CGO 


SUB 

=N$2C0Q 

021^ 

POOFE 

0114 


SAN 

Fl-’^-l 

0215 

POOFF 

C990 


LDA^ 

BUF, I 

0216 

P 0 10 0 

A 0 OA 


AND- 

$A 

0217 

PQlul 

BO lA 


EOR- 

$1A 

0218 

0219 

PG102 

6980 

■¥■ 

STA^- 

BJ",I 

0 22 0 

P0103 

E838 

Fi 

LDQ’^ 

WOIX 

0221 

POlO H 

CA8B 


LDA^ 

BJF,Q 

0222 

POlO 5 

E837 


LOQ"" 

CHAR 

0223 

POiOb 

C 151 


SQN 

F2-*-l 

022 h 
0225 

P0107 

QFC8 

V- 

ALS 

8 

022 6 

PU108 

AO QA 

F2 

AND- 

SA 

02 2 7 

P01Q9 

Q9DF 


INA 

-$20 

0228 

PGIDA 

GIGE 


SAZ 

F4 

0229 

PGIOB 

09F3 


INA 

-$C 

0230 

POIGC 

01 DC 


SAZ 

F4-^-i 

0 231 

PQIGO 

09FC 


INA 

-3 

02 32 

POlOE 

OiOA 


SAZ 

F4-^-l 

0233 

POlOF 

POllu 

9Q00 

uODO 


SUB 

= N$00 

0 2 3 4 

POlil 

010 7 


SAZ 

FA-’^-l 

0235 

P0112 

0144 


3QZ 

F 3-^-1 

02 3 6 

PO 113 

0 8 42 


CLR 

Q 

0 23 7 

P0114 

48 2 8 


STQ* 

CHAR 

0238 

P0115 

D826 


RAO^ 

WDIX 

0239 

POllb 

18EC 


JMP^ 

FI 

0240 

P0117 

0325 

F3 

RAO^^ 

CHAR 

0241 

0242 

P0118 

13EA 


JMP^ 

FI 

0243 

P0119 

E322 

F4 

LDQ^ 

WOIX 

0 2 4 4 

POilA 

C822 


LDA^ 

CHAR 

0 2 4g 

POllB 

0113 


SAN 

F5 - 1 

0 2 46* 

POllC 

POllD 

CQQO 

3FFF 


LDA 

=N53FF- 

0247 

POllE 

13 05 


JMP- 

F 6 

02 4 8 

= 011F 
PQ120 

CAGO 

FF6F 

F5 

LDA 

3UF,Q 


SAVE INDEX TO FIELD START 
SAVE AS INDEX FOR FIELD SCAN 

SET CHARACTER FLAG FOR RIGHT 
GET 1ST WORD 
CONTAINS $FF00 


SKIP IF 1ST CHAR IS NOT A COMMA 

SAVE RIGHT CHARACTER 
SET COMMA TO RU80UT 
RESTORE TO BUFFER 

SET INDEX FOR CURRENT WORD 
GET WORD WITH NEXT CHARACTER 

SKIP ON RIGHT CHARACTER 


UNPACK THE CHARACTER 
SKIP IF BLANK 
SKIP IF A COMMA 
SKIP IF A SLASH 


SKIP IF END OF STATEMENT 
SKIP ON LEFT CHARACTER 


SKIP IF IT WAS RIGHT CHARACTER 
QUESTION MARK AND RUBOUT 


NQIO 0199 
NO 10 0 20 Q 
NQ1D0201 
NQ1J02Q2 
NO 10 0 20 3 
N01Q0204 
NQ100203 
NO 10 0 20 6 
NO 10 0 20 7 
N310 0 208 
N010Ci209 
NO 10 0 21G 
NOIQ 0211 
NQ100212 
NO IGO 213 


NQIO 0214 
NO lu 0 21 5 
NOIOG 216 
N0100217 
N31uu218 
NQ10G219 
N0 100 220 
N010 0221 
N01Q0222 
N013Q223 
N(J10 0224 
NQIO 0225 
NQ130226 
NQ1Q0227 
NOIQ 0 22 8 
N01Q0229 
NOlOO 230 
N010G231 
NGID 0232 
N0100233 

NOlO 0234 
N0100235 
NQIO 0236 
N01QQ237 
NOIQ 0238 
NQIG 0 239 
NaiC0240 
NJ100241 
NOIQ 0242 
N0100243 
NOIQ 0 244 
NO 10 0 245 
N010024b 

N0100247 

NQ100248 


BRKPTi 


PftGE 
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DATE! 01/27/99 



c 



0249 

P0121 

AOIA 


ANG- 

$1A 


025u 

P0122 

G9 3F 


INA 

$3F 

o 

Q251 

P0123 

6 A 0 0 

Fo 

STA 

BUF, Q 


P0124 

FFoB 



ADRl 


0252 

P0125 

C8 0 0 


LDA 



P0126 

FF46 




Q 

0253 

P0127 

30FF 
6 8 0 E 


ADD- 

I 

025t 

PQ128 


STA^'- 

STRT 


0 2 55 

P0129 

C812 


LDA^ 

WDIX 


U256 

P012A 

90FF 


SUB- 

I 


025 7 

P012B 

09 01 


INA 

1 


0 2 5B 

P012C 

6809 


STA- 

FWORDS 


0 259 

P012D 

caoa 


LDA 

LUO 


P012E 

FF5A 



FOUT 

Q 

025 0 
02 51 

P012F 

68 05 


STA^ 

RTJ- 

( S- 4) 


0252 

PO 130 

5 ‘I- F 4 



0253 

P0131 

4C0O 


NUM 

$ 4iy 0 0 » 0 » 0 



P0132 

u 0 G 0 






P0133 

GOOD 





025 4 

P0134 

0 0 0 0 

FOUT 

NUM 

0 


0255 

P0135 

QGuO 

FWORDS 

NUM 

0 


02 5 6 

P0136 

OOGG 

STRT 

NUM 

0 

■'w' 

0 25 7 

P0137 

C8F8 

WAIT3 

LDA^ 

FOUT-1 


0 2 6 8 

PO 138 

0 101 


SAZ 

1 


0 2 59 

P0139 

18FD 


JMP^ 

WAIT3 


0270 

P013A 

ICBA 


JMP^ 

(FIELD) 


0271 



>(■ 


WDIX ( 1) 


0 2 7 2 

PO 13B 

U OCl 

WO IX 

BSS 


0273 

P013C 

0 0 01 

CHAR 

BSS 

CHAR( 1) 


027 4 



* 




REMOVE RIGHT CHARACTER 
REPLACE WITH A QUESTION MARK 
RESTORE WORD TO BUFFER 


STARTING ADDRESS FOR OUTPUT 


NUMBER OF WORDS TO OUTPUT 
OUTPUT UNIT 


PRINT THE BAD FIELD 


EXIT 

WORD INDEX FOR BUFFER SCAN 
CHARACTER FLAG FOR BUFFER SCAN 


O 


o 

o 

Q 

o 


o 


( 


o 


N013 C 249 


N010G250 


NQ 13 0 251 

O 

NOlO 0252 


NOIGQ 253 

o 

NQ 13 0 254 


NQID 0 255 


NQ10 0 256 


N0130257 

C) 

NOlu 0258 


NOlO G 259 


NOlOO 25G 

- o 

N010 0 261 


N0 13 0 262 


N013 0 255 



o 

NOIj 0264 


N013 0 265 


N01Q026& 

o 

NQia0267 


NO 13 0 268 


NOIG 0269 


N0130270 

■ 

NQlu 0271 


N01Q0272 


N01Q0273 


N0130274 

C) 


! ! 


o 


o 


o 




BRKPTi 
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027 5 

0277 

0278 

0279 

0280 
0281 

0282 

0283 

02 34 
0285 

0285 

028 7 

0 23 3 
02 89 

029 0 
0291 

02 92 

02 93 

0299 

0295 

0296 

0297 

0298 

0299 

0 3 0 0 

030 1 

0302 

0308 

0 304 

0305 

0306 

03 07 

050 8 

0309 

0310 

0311 

0 312 


* 

* 

V- 


THE FOLLOWING 13 A TABLE OF ALL POSSIBLE STATEMENTS WHICH ARE 
LEGAL TO BREAKPOINT TOGAETHER WITH AN INDEX TO AN ASCII 
NAME USED TO ASSESS THE ASSOGIAIEO PROCESSOR. 


■V- 


P0i3n 

2 A 53 

BPTAB ALF 

2,^3AH 

P015E 

4148 



PG 13F 

0 0 0 0 

NUH 

0 

PQ 14U 

2A53 

ALF 

2 ,-SaH 

P U 1 ^ 1 

51 48 



P0142 

li 0 0 0 

NUM 

0 

P01h3 

2A53 

ALF 

2 ,*SIH 

POlUH 

h-9 48 



P0145 

0 0 0 0 

NUM 

0 

PO l4 b 

2 A 45 

ALF 

2,'^END 

P0147 

4E44 



P0148 

0 0 0 6 

NUM 

6 

P01t9 

2 A4C 

ALF 

2,^LRG 

POIhA 

52^7 



Pul4B 

0 0 03 

NUM 

3 

PQ14G 

2 A4C 

ALF 

2. '"LHX 

POl^O 

4858 



P014E 

CO 09 

NUM 

9 

PQ14F 

2A4C 

ALF 

2,^LIT 

P015Q 

h954 



PG151 

0 0 09 

NUM 

9 

P0152 

2A4C 

ALF 

2,^LAS 

P0153 

4153 



P 0 15 4 

0 0 09 

NUM 

9 

P 015 5 

2A4C 

ALF 

2,'^LSP 

P0156 

5350 



PO 157 

0 0 09 

NUH 

9 

PQ15R 

2A4C 

ALF 

2»»L9P 

P0159 

4450 



PuiSA 

0 0 09 

NUM 

9 

P015B 

2At4 

ALF 

2»'^DPC 

PG15C 

5043 



P015D 

uOOC 

NUM 

12 

PQ15E 

2A44 

ALF 

2 j’^DIC 

P015F 

4943 



P0160 

0 0 Q C 

NUM 

12 

POlbi 

2 A 44 

ALF 

2,^DAS 

P01b2 

4 I 53 



PO 163 

OOGC 

NUM 

12 

poie^* 

2 A^44 

ALF 

2 ,^DSP 

P0165 

5350 



PO 166 

0 0 OC 

NUN 

12 

P0167 

2 A 44 

ALF 

2,^DDP 

P0163 

4h50 



PD169 

0 0 QC 

NUM 

12 

P016A 

2A4A 

ALF 

2 

P016B 

502C 



P016C 

OOGF 

NUM 

15 


SET A 
SET Q 
SET I 
RESUME 

LIST REGISTERS 
LOAD HEX 
LOAD DECIMAL 
LOAD ASCII 

LOAD SINGLE PRECISION FLOATING POINT 
LOAD DOUBLE PRECISION FLOATING POINT 
CORE HEX DUMP 
CORE DECIMAL DUMP 
CORE ASCII DUMP 

CORE SINGLE PRECISION FLOATING DUMP 
CORE DOUBLE PRECISION FLOATING DUMP 
JUMP 


N01QQ276 
NOlOO 277 
NQ1Q0278 
NQ13 0 279 
N013 u 280 
NfllO 0 281 

NQIO 0232 
NOl j 0 283 

N0100284 

N01QQ285 

N010 0 286 
N0100287 

NuIj G 288 
NO 10 0 28 9 


NOlOGZgO 
NQIO G 291 


NC10D292 

Nul00293 

NOIQ 0294 
NQia0295 

N01Q0296 
N0100 297 

N0100298 

N0100299 

N01G 0 30 0 
NOIOG 301 

N01yG302 

NfllDD3G3 

NQIO 0304 
N010 0 30 5 

NOlO 0306 
NOl] D3G7 

N01j03Q8 
NOlO G3C9 

NQ100310 
NulQ G 311 

NOlOO 312 





BRKPTl 
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0313 

P0160 

2A52 

ALF 

2 , R J , 


RETURN JUMP 



N01QG313 

o 

Q31u 

0315 

PO 16E 
P016F 
PQ170 

4A2C 
GOOF 
2A 53 

NUM 

ALF 

15 

2,^SET 


SET BREAKPOINT 



NOl] 0 314 
NO 10 0 315 

/'^ 1 

0316 

0317 

P0171 

P0172 

P0173 

4554 

0012 

2A54 

NUM 

ALF 

18 

2 , '^TRM 


TERMINATE A 0REAKPOIN T( S) 



NOlii 0 316 
NO 10 0 317 

(^} 

0318 

0319 

Puirt* 
Pu 175 
PO 176 

52*^0 
0 0 15 
2 A -t4 

NUM 

ALF 

21 

2,'‘DMH 


MASS STORAGE HEX DUMP 



N0 13 0 31 8 
NQ 13 0 3i9 

o 

Q32G 

0321 

P0177 
?0 173 
P0179 

4048 

0018 

2A44 

NUM 

ALF 

24 

2 


MASS STORAGE DECIMAL DUMP 



NOlO G 320 
NOlu 0 321 

o 

0322 

0323 

P017A 

P017B 

P017C 

4049 
0 018 
2 A 44 

NUM 

ALF 

24 

2,'fOMA 


MASS STORAGE ASCII DUMP 



NOIQ 0 322 
Ndl3 0 32 3 


0 32^ 
0 3 2 5 

P0170 

PQ17E 

P017F 

40 41 
00 18 
2A44 

NUM 

ALF 

24 

2,^0tMS 


MASS STORAGE SINGLE PRECISION 

FP 

DUMP 

NOIQ 0 324 
NQIQ G 325 

O' 

0 3 2 6 
03 2 7 

P0180 
PO 18 1 
P0182 

h053 
0018 
2 A 44 

NUM 

ALF 

24 

2,^0MD 


MASS STORAGE DOUBLE PRECISION 

FP 

DUMP 

N0130326 

N010Q327 

0 

03 28 
0 329 

P0183 

P 018 h 

PC185 

4 D t 4 
G018 
2A4C 

NUM 

ALF 

24 

2,^LUI 


CHANGE INPUT LOGICAL UNIT 



NQ 13 0 328 
N01J0329 

o 

033 0 
Q331 

PG166 

P0187 

PQ183 

5549 

flOlB 

2A4C 

NUM 

ALF 

27 

2, ''-LUO 


CHANGE OUTPUT LOGICAL UNIT 



NQ1GG330 
NOIOG 331 


0 33 2 
033 3 

PQ189 
PO 18A 
PQlbB 

554F 
QOIB 
2 A 41 

NUM 

ALF 

27 

2,^ADF 


SKIP FILE(S) 



NQIOO 332 
NOlO 0333 

o 

033h 
033 5 

P018C 

PQ18D 

P018E 

4446 
00 IE 
2A42 

NUM 

ALF 

30 

2i’^BSF 


BACKSPACE FILE 



NBIO 0 334 
N013 0 335 

€) 

03 3 6 
0 3 3 7 

P018F 

P0190 

PU191 

5346 

OOIE 

2A4l 

NUM 

ALF 

30 

2,-AOR 


SKIP RECORD 



NOlO 0 336 
Nai0 0 337 

o. 

0 3 3 8 
0339 

PQ192 
PG 19 3 
t>G19i+ 

4452 
CO IE 
2A42 

NUM 

ALF 

30 

2t^BSR 


BACKSPACE RECORD 



N0100338 
N01G 0339 

o 

0 3 4G 
0341 

P0195 

P0196 

P0197 

5352 

OOIE 

2A57 

NUM 

ALF 

30 

2,’^WEF 


WRITE EOF 



N0laQ34D 

N010G341 

0342 
0 3 4 3 

P0193 

P0199 

PG19A 

4546 

OOIE 

2A52 

NUM 

ALF 

30 

2,“^REW 


REWIND 



NQIOO 342 
N0130343 

o 

0344 
QS4 5 

P019B 

P019C 

P019O 

4557 

OOIE 

2A55 

NUM 

ALF 

30 

2,^UNL 


rewind and UNLOAD 



NOIG 0 3-+4 
NOlOO 345 

o 

Q3 46 
0347 

P019E 

P019F 

POIAO 

4E4C 

ODIE 

2A53 

NUM 

ALF 

30 

2,-'^SLD 


SET DENSITY 



NQlj 0 34b 
NOlO 0347 



POlAl 

4C44 









o 


SvX 

L.-’ 

O 

c 

o 

C) 

o 

o 

o 

o 

o 

o 

o 

o 


o 


8RKPT1 
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date: 01/27/99 


0348 

PG1A2 

OOlE 


NUM 

30 


0349 







0.3 5 Q 



* OTHER BREAKPOINT FJNCTIONS HAY BE INSERTED HERE. 

0351 







0352 

PQ 1A3 

0 0 00 

LASTAB 

BSS 

LASTAB ( 0) 

DEFINES END OF BPTAB 

0353 










^ THE 

FOLLOWING CODE CODE SEARCHES BPTAB FOR A MATCHING STATEMENT 

0 3 5 5 
0 3 5 6 

P01A3 

OC 65 

DEFINE 

ENQ 

LASTAB-BPTAB- 

1 

03 5 7 

P01A4 

CAOO 


LOA 

8PTA8-1 »Q 

GET 1ST TABLE WORD 


P01A5 

FF96 





0 3 5 8 

PQ1A6 

98 00 


SUB 

8UF41 



POIA 7 

FEE9 





0 3 5 9 

PQ1A8 

0 101 


SAZ 

OEFOl-^-1 

SKIP ON 1ST 2 CHARACTERS MATCH 

0 3 6 0 

P01A9 

1806 


JMP^^ 

DEFQ2 


0361 

POIAa 

CAijQ 

DEFOl 

LDA 

0PTA3-2 , Q 

GET OTHER ENTRY WORD 


POlAB 

FF8F 





0362 

POIAC 

9800 


SUB 

BUF 



POiAD 

FEE2 





G 3 6 3 

POIAE 

01 06 


SAZ 

0EF2-^--l 

SKIP IF HE HAVE A MATCH 

036 4 

PO lAF 

DDFC 

DEF G2 

INQ 

-3 

SET INDEX FOR NEXT TABLE ENTRY 

0 3 6 5 

POlBu 

0171 


SQM 

0EF1---1 

SKIP IF NO MATCH CAN BE FOUND 

03 66 

POlBi 

18F2 


JMP^ 

DEFINEf 1 


0367 

PQ1B2 

G A 0 0 

DEFl 

ENA 

0 


0368 

P01E3 

1800 


JMP 

BOl 

GO PRINT DIAGNOSYIC 


P01B4 

FF26 





03 59 



jf- 




037 D 

P01B5 

EADD 

DEF2 

LDQ 

BPTAB ,Q 

GET 8PREL INDEX 


P01B6 

FF86 





0371 

PO 1B7 

0017 


INQ 

BPREL-FIRST 

COMPUTE DISPLACEMENT FOR GTFILE 

03/2 

POlBo 

4312 


STQ^ 

EYE 


0373 

PG1B9 

C80Q 


LDA 

BRKPTD41 

COMPUTE OVERLAY BUFFER ADDRESS 


POIBA 

FE4& 





03/4 

PO 1 BB 

8 0 OQ 


ADD 

=XOLAY-BRKPTD 

-1 


POIBC 

OlFA 





03/5 

PQIBD 

680B 


STA^ 

ESS 

STORE FOR GTFILE 

03/6 

POIBE 

OA 00 


ENA 

0 


037 / 

PQIBF 

68GC 


STA* 

SECTOR 

RE-INITIALIZE SECTOR NUMBER 

0 3 7 8 

PGiCO 

68QC 


STA^ 

SECT0R41 


0379 

POICI 

68 0 8 


STA^ 

ES3+1 


03 8 0 

P01C2 

54F4 

GETOLA 

RTJ- 

( $F4) 

GTFILE REQUEST FOR AN OVERLAY 

038 1 

PU1C3 

5A0 0 

FIRST 

NUM 

S5AOO ,0 



P01C4 

0 0 0 0 





033 2 

PO 1C5 

0 0 0 0 

THUD 

NUM 

0 


0333 

P01C6 

08C2 

VEE 

NUM 

S8C2, D 



PO 1C7 

0 0 0 0 





0 3 3 4 

PQ1C6 

0 0 0 0 

ESS 

NUM 

0,0 



PO 1C9 

0 0 0 0 





0385 

POICA 

U 0 0 0 

EYE 

NUM 

0 


0336 

PQ ICB 

0 0 0 0 

SECTOR 

NUM 

Q ,Q 



PO ICC 

0 0 0 0 





0337 

POICD 

C8F7 

CHK 

LDA^ 

THUD 

WAIT FOR COMPLETION 

0388 

PO ICE 

0101 


SAZ 

PAR-»-l 

SKIP IF COMPLETE 


NO 1 J 0 3^-8 
NQIO Q 3^9 
NO 10 u 35 Q 
NQ10Q351 
NOlOO 352 
NaiD0353 
NQIO 0354- 
N013 D 355 
NO 10 0 35 6 
N013 0 35/ 

NOlO G 358 

NOlO 0 359 
N01Q0360 
NQlOu 361 

NQIOO 362 

NOIG 0363 
NQID 0 364 
NQ100355 
N01u0366 
NQig0367 
NO 1 G 0 36 8 

NQIO 0 369 
N01Q037G 

N01QQ371 
NQIG 0 372 
N01Q0373 

NOID 0 374 

N0100375 
N0lGO37b 
NO 10 G 37 7 
NOiO 0378 
NOlj 0 379 
NOlj 038C 
NQ10Q381 

NO 10 0 38 2 
NU10 0 383 

NOlOO 384 

NOIO 0385 
NQi00385 

NOIO 0 387 
N01Q 0388 


BRKPTi 


DATE: 01/27/99 
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0339 

POICF 

13FD 


JMP^ 

CHK 




N0100389 

0390 

POIDO 

C8F5 

PAR 

LDA'^ 

VEE 

CHECK FOR ERRORS IN TRANSFER 

N01G0390 

0391 

POIDI 

0121 


SAP 

GO-^-1 

SKIP IF NO ERRORS 



NulO 0 391 

0392 

PQ1D2 

18EF 


JMP--^ 

GETOLA 

ERROR, TRY AGAIN 



NOIQG 392 

0393 

P01D3 

C300 

GO 

LOA 

BRKPTD+1 

COMPUTE TABLE ADDRESS 



NOlO 0395 


P01D4 

FE2C 








039^ 

P 0 1 D 5 

ao 00 


ADD 

= XOX-BRi<PTO-l 




NGIOO 394 


PO 106 

0 0 83 








0395 

P01D7 

5824 


RTJ+ 

OLAY 

GO TO OVERLAY 



NOlO 0 395 

0396 

PG1D8 

1800 


JHP 

READY 

GO BACK TO GET A COMMAND 

ON RETURN 

NOlOO 396 


P01D9 

FE7B 








039 7 









N010G397 

03 90 




THE FOLLOWING TABLE IS 

THE ONE REFERRED TO ABOVE 

IN THE 

NOlO 0 398 

0399 




DESCRIPTION OF 8PTA8. 

IT REPRESENTS ALPHABETIC 

NAMES 

N010 0 399 

0*00 



¥• 

USED IN GTFILE REQUESTS TO OB TAIN OVERLAYS 

ASSOCIATED WITH 

NO IG 0 40 G 

0401 




THE PROCESSING OF EACH CONTROL STATEMENT. 



NGIOO 401 

0402 









NGIOO 402 

0 40 3 

PulDA 

42 50 

BPREL ALF 

3,BPRSET 

SET REGISTERS 



NOlO 0403 


POIDB 

5253 









PQIDC 

45 54 








0 0 

PDIDD 

4250 


ALF 

3,BPRLS T 

LIST REGISTERS 



NOlO 0 404 


POIDE 

52 4C 









POiOF 

33 54 








0^0 5 

PGIEQ 

42 50 


ALF 

3,BPEND 

RESUME 



NOlOO -,05 


POIEI 

45 4E 









P01E2 

4420 








0 4- U b 

P01E3 

42 50 


ALF 

3,3PL01 0 

LOAD CORE 



NGIO O 4 Q 0 


P01E4 

4C4F 









P01E5 

4i 44 








0 4C7 

PQ1E6 

4250 


ALF 

3,BP0WPC 

DUMP CORE 



NG1G04Q7 


PQ1E7 

4440 









P01E8 

5043 








0 ♦ j t> 

P01E9 

4250 


ALF 

3,BPJMP 

JUMP AND RETURN JUMP 



NOlO 0 408 


POIEA 

4 A 40 









PGIEO 

5u 2 0 








0409 

POIEC 

4250 


ALF 

3,3PST 

SET BREAKPOINTS 



NOlOOnOg 


POIEO 

5354 









POIEE 

2 0 20 








0 410 

POIEF 

42 50 


ALF 

3,BPCLR 

CLEAR BREAKPOINTS 



NOlO O 4 IO 


PQIFO 

434C 









POIFI 

5220 








0 411 

P01F2 

42 50 


ALF 

3,8PMASS 

MASS STORAGE DUMP 



NOIOQ 411 


P01F3 

40 41 









P01F4 

5353 








0412 

P01F5 

42 50 


ALF 

3,3PBPLU 

I/O UNIT CHANGE 



NOIG j 412 


P 0 1 F o 

4250 









P01F7 

40 5 5 








0 413 

P01F8 

42 50 


ALF 

3»BPTAPC 

TAPE REQUESTS 



NQ100413 


PD1F9 

5441 







1 


PQIFA 

5043 








0+14 









NQIDQ 4 I 4 

0 415 









NO 10 0 415 

0416 




BELOW IS 

THE ARnA RESERVED FOR OVERLAYS. THIS 

AREA CAN 

NO lOG 416 



BRKPTl 


PftGE 12 


date: 01/27/99 



o 

o 

o 

o 

o 

r") 


IS CURRENTLY NQl-3b-+17 

NOIOOhIS 

NO 10 0^+19 O 

N01Q0420 
NQlO 0 421 
NOiQ 0 422 

■ o 


o 


o 


o 


o 


o 


o 


o 


c 


O' 


o 




C'' 


BRKPTl 

PAGE 13 

DATE: 01/27/99 

o 

u 

E :i u I V 

A L E N C E S 



o 

1 ) 

DEF . LINE 

NAME VALUE 

referenged at 

LINE NUMBER 

o 


0000 

I OGFF 

(000255) 0050, D207, 

3253, 0256 



0 0 2fl 

NBTS OGUF 

(OaOOlip) 0 095, 0173, 

0175 



o 


o 


o 


u 

n 

o 

o 


o 

o 

0 

o 

o 

o 

o 


o 


o 


BRKPTl 


DATE; 01/27/99 


c 


PAGE 19 


3 Y M B 0 L S 


DEF . LINE 

NAME 

ADDRESS 

0G26 

BRKPTD 

G 0 0 0 

3 097 

BRKP 

0012 

0 0 63 

RPT 

0020 

0067 

LTIQ 

0029 

0 068 

STORE 

0025 

0 0 7 9 

FIN 

Q02C 

3 Q 88 

LUOl 

0039 

0 090 

ADORES 

003B 

0092 

^AIT 

003C 

3 0 9 5 

THOK 

00 3F 

00 99 

BRKP2 

0090 

310 6 

BRKP3 

0047 

0109 

BRKP9 

009A 

0 110 

BRKP5 

O09C 

3 113 

3RKP1 

Q09E 

0116 

BP 

0 053 

0118 

READY 

0055 

0121 

LU02 

0059 

3123 

ADDRSS 

00 5 B 

012 5 

W A I T 2 

005C 

3 128 

REAOl 

005F 

j 13Q 

READY! 

0061 

013 5 

READ 

0065 

0 190 

THREAD 

006A 

0141 

LUIl 

G06B 

0142 

ADRl 

006D 

0194 

5TAT 

Q06E 

019 7 

CONT 

0071 

U 15 0 

TDEF 

0079 

3 152 

ERRMSG 

00 7 6 

0153 

ERR M2 

0070 

0 16 0 

31X 

0 08 9 

0161 

i\ X 

S085 

0162 

IX 

00 8 6 

0163 

MX 

0087 

0 lo9 

LUI 

0088 

016 5 

LUO 

0089 

3166 

PASS 

Q08A 

0167 

BPLOC 

0 08 B 

0 168 

HI 

ooac 


RE- EREND 

ED AT 

LINE 

NUMBER 

0G26, 
0 399 

0 Q o 3 , 

0339, 

0 0 36, 

3 0 39 , 
0 0 79 

0 05 9 



0 0 65 




0 0 59 
3 0 34 , 
0 0 33 
3 0 99 
0 0 93 

3109 

0103 

3101 

0 092 



3107 
00 37, 
0 090 

0 081, 

0082 

0 395 


3 0 95 , 
3 125 

0199, 

0199, 


0 391 
0127 




3111, 

0133 

312 b 



0132 

0194 

3136, 

0l4? 



0 0 94 , 
0 l9o 

0252 



0 195 
0198 
0183 
0 199 
3 0 99 , 
3 0 93 
3G51 

G 399 



00 53 
0155 
3 3 8 3 , 

0 18 5, 

0259 


0 0 55 
0 0 58 , 

0 068, 

0 0 71. 

, 3 073 


U 039, 


Ou'-tU, OQ+2, 0093, 0182, 


0183, 


0198, 0199, 0373, 0379, 0393 


o 


o 

o 

o 

o 

c 

o 

c 

o 

o 

o 


BRKPTl 
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DATE: 01/27/99 


0168 W2 008D 

3168 W3 Q08E 

0166 H4 QG8F 

0169 BUF 0 09 0 

0172 SPC OOBA 

3173 BPL UOBB 

n, 0174 SPCl OOCA 

Q175 INST OflCB 

0176 USEP.P OCDA 

0 180 80 1 CiOOB 

O 0182 8Q1A uODD 

0184 8Z1 UOEO 

0189 BOIB Q0E7 

319C ADR3 00E9 

r-, 0191 3TAT1 OOEA 

0194 CONTI OQED 

0196 302 uOEF 

3198 B02A uOFl 

^ 0206 FIELD 00F5 

W 0 220 Fi 0103 

0226 F2 0108 


/■ \ 

•3 243 

F4 

0119 

{ J 

02^,8 

F5 

OllF 


3 251 

F6 

0123 


0 2d4 

FOUT 

0134 

o 

0265 

FWORDS 

013 5 

0266 

STRT 

013 6 


a 26 7 

WAIT3 

G13 7 


0 2 72 

HOI X 

013B 

o 

0 273 

CHAR 

01 3 C 

0 281 

BPT AB 

013D 


0 352 

LASTAB 

01A3 


0356 

DEFINE 

01A3 


0 361 

DEF 01 

OlAA 

•^1 

0364 

OEF 02 

QIAF 


0367 

DEFl 

G1B2 


Q 370 

DEF 2 

018 5 

o 

0 38Q 

GETOLA 

01C2 

0 381 

FIRST 

01C3 


D 362 

THUD 

G1C5 


0 383 

VEE 

Q1C6 

o 

0 384 

ESS 

01C8 

0385 

EYE 

OICA 


3 3 86 

SEC TOR 

OICB 


0 3 8 7 

CHK 

OICD 

o, 

0 390 

PAR 

0 IDO 

0393 

GO 

Q1D3 


0 40 3 

8PREL 

OlOA 

o 

o 

o 

3 -2 0 

OLAY 

oifb 


3 0 75 
0 0 77 
0 0 79 

0043, 0130, 0211, 0215, 0218, 0221, 
0057, 0100 
3 0 99 
0110 
J109 
3 0 32 

3170, 0368 

3180 

0200 

0136, 0191 
0184 
0193 
0192 
0 171 
0 196 

3181, 0197, 0270 
0214, 0239, 0241 


3 223 
0235 
0 2 28 , 

0 23Q , 

0 2 32, 

0234 

0 2 45 
0 247 
3 260 , 
0 258 
0 254 
0 269 

0267 



3 2u 8 , 

Q 220 , 

0238, 

0243 

3210 , 
0 355 , 

0222, 

0237, 

0 24*3 

035 7, 

0361, 

0370 

3 356 




3 150 , 
0 3 59 
0 3 60 

0 366 



0 3 65 
0 3 63 
0 392 
0371 
0 3 87 
Q39Q 
0 375 , 
0 372 

0379 



3 377 , 
0 3 89 

0 378 



0 388 
3 3 91 
0 3 71 
3 3 7-+, 

0395 




0248, 0251, 0358, 0362 


Ci 

Q 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 


BRKPTl 
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DATE: ai/27/99 


o 


L161 
0A03 

oi&g 

0370 
0243 
0393 
008 8 
012 8 
0 06 8 
0168 

o 


C) 


o 


o 




o 


o 


o 


o 


o 


A L 

P H A 

8 E T I 

CAL 

SORT 

0 F 

S Y H B 

0 L S 

^ ^ 

A03RES 

0090 

ADUPSS 

0 123 

ADRl 

0142 

ADR3 

0190 

AX 

BO 2A 

0198 

BP 

0 116 

BPL 

0173 

BPLOC 

016 7 

BPREL 

BRKP3 

010 6 

BRKP4 

0109 

BRKP5 

3 113 

BRKPTD 

0 0 2 6 

BUF 

CDMTl 

0194 

DEFDl 

0 361 

DEF02 

0 364 

OEFl 

036 7 

DEF2 

EV'- 

0385 

FI 

D 220 

F2 

3 226 

F 3 

0 24 0 

F4 

FIRST 

0381 

FOUT 

0 2b4 

F WORD 3 

0265 

GETOLA 

Q380 

GO 

LTl 0 

0 0 6 7 

LUI 

0164 

LUIl 

3 141 

LUO 

016 5 

LUOl 

PAR 

0 39 0 

PASS 

0166 

QX 

0150 

READ 

013 5 

READl 

SPG 

0172 

SPCl 

0174 

STAT 

0 14h 

STATl 

0191 

STORE 

THJD 

WAIT3 

0382 
0 26 7 

USERP 

WDIX 

0176 
0 272 

VEE 

0 383 

Vil 

0168 

W2 


o 


BOl 

0 18 0 

BOIA 

0182 

BPTAB 

0 281 

BRKP 

0 3 4 7 

BZi 

G184 

CHAR 

0 2 73 

DEFINE 

0356 

ERR M2 

0153 

F5 

02«+8 

F 6 

025 1 

I 

000 0 

INST 

0175 

LU02 

0121 

MX 

0163 

READY 

0118 

REAQYl 

0130 

STRT 

0266 

TDEF 

0150 

W3 

0168 

W4 

0158 


BOlB 

0189 

BG2 

0196 

BRKPl 

0113 

BRKP2 

0099 

CHK 

0 38 7 

CONT 

0147 

ERRKSG 

0152 

ESS 

0684 

FIELD 

0206 

FIN 

0075 

IX 

0162 

LASTAB 

0 352 

NBTS 

0D28 

OLAY 

0420 

RPT 

0 063 

SECTOR 

0386 

THOK 

0 09 5 

THREAD 

0140 

WAIT 

0092 

WAIT2 

0125 


o 

o 

o 

c 

o 

I 

o 

c 

C) 

G 

o 

s^- I 

o 

o 

o 

o 

o 


BPTAPi 


PAGE 


1 


date; 01/27/99 


00 0 1 
00 0 2 
0 0 0 3 

0 j 0 ‘T 

00 0 5 
0 0 Q o 
OJ 0? 


NAH BPTAPI DECK-IO N02 MSOS 5.0 

^ MASS STORAGE OPERATING SYSTEM VERSION b.O 

» SMALL SYSTEMS DIVISION, LA JOLLA, CALI FORM lA 

^ COPYRIGHT CONTROL DATA CORPORATION 197b 

^ THIS PROGRAM PERFORMS ALL TAPE FUNCTIONS FOR BREAKPOINT. 
NO legality CHECK IS MADE ON LOGICAL UNIT NUMBER. 


INPUT BUFFER LOCATION 
SET FOR 5TH CHARACTER 


SUMMARY- 


03 0 8 







0u09 





EXT 

L031A 

0010 







Cj 11 

POC G 0 

0 0 00 


TAPE 

NUM 

0 

00 12 

PQ 001 

0 9GC 



INA 

12 

0 013 

POO 02 

6QFF 



3TA- 

I 

0014 

PO 003 

GA02 



E N A 

2 

0315 

PO 0 0 4 

6840 



STA- 

W DI X 

001b 

P 0 0 0 5 

0 8 44 



CLR 

A 

0 017 

P 0 0 0 6 

68 4C 



STA^ 

CHAR 

03 18 

P 0 0 0 7 

ClOl 



LDA- 

1,1 

0019 

POQ 38 

68 40 



STA-^ 

NUM 

OG 20 




V- 



00 21 

P0Q09 

GCQE 



ENQ 

CTEND-CT ABL 

0022 

p 0 0 0 A 

C A52 


TAPEl 

LDA^ 

CTABLE, Q 

0 3 23 

PO OOB 

9848 



SUB^ 

NUM 

0 3 24 

POOOC 

0 10 3 



SAZ 

TAPE2-^-l 

0 3 25 

POuOU 

ODFD 



INQ 

-2 

0 0 2 6 

POOOE 

01 76 



SQH 

TAPE25 

00 2 7 

PQOuF 

18FA 



JMP'®^ 

TAPEl 

00 28 







C029 

POOlO 

GA4D 


TAPE2 

LOA^ 

GTABLE+1 ,Q 

0 0 3 0 

POQil 

663E 



3TA^ 

OP 

00 31 

P0012 

5865 



RTJ^ 

GET 

00 32 

P0013 

09D3 



INA 

— 1> 2 C 

0 0 3 3 

P0014 

0 102 



SAZ 

TAPL3-’^-l 

Ql-3 4 

P0015 

OAOC 


TAPE25 

ENA 

0 

00 3 5 

P0Q16 

1128 



JMP- 

hQ , I 

00 36 







0 0 3 7 

P0017 

5871 


TAPE3 

RT 

DEC 

0038 

poai8 

0822 



TRA 

Q 

0 J 39 

P0Q19 

68 35 



ST A^ 

LU 

004Q 

POOIA 

0104 



SAZ 

TAPE31-1 

00 41 

P 0 0 1 B 

940 0 

X 


SUB 

L 0 G 1 A 


POOIC 

7FFF 

X 




00 42 

PQOlO 

0132 



S A J-1 

TAPE31-^-l 

0 3 43 

POQIE 

0101 



SAZ 

TAPE31-^-l 

0 3 44 

PGOIF 

18F5 



JMP^ 

TAPE25 

OuAi:? 

P002a 

t 6 0 0 

X 

TAPE31 

LDQ+ 

L0G1A,Q 


P0Q21 

OQIC 

X 




0 0 46 

P0022 

E208 



LDQ- 

8 , Q 

0 0 47 

P0023 

OF 61 



LRS 

1 

00 48 

P 0 0 2 4 

C121 



SAP 

TAPE36-^-l 

0 3 49 

PQ02 5 

18EF 



JHP*" 

TAPE25 

0 0 50 







QD51 

PD026 

C829 


TAPE36 

LOA^ 

OP 


SET FOR LEFT CHARACTER 
GET 2ND AND 3RD CHARACTERS 


'search TABLE FOR NEEDED COMMAND 
SKIP IF OPERATION FOUND 

SEARCH SOME MORE 
GET COMMAND TYPE FLAG 
GET OELIMITOR 
SKIP IF A COMMA 

FORMAT ERROR - RETURN TO BRKPTD 
DECODE LOGICAL UNIT NUMBER 
STORE FOR REQUEST 


LU NUMBER TOO LARGE' 

GET PHYSTAB ADDRESS' IN Q 

WORD 8 OF PHYSTAB 

SKIP IF OK TO ADDRESS FROM BACKGROUND 


11QNQ200001 
' N023 QG32 
N02Q 0 003 
^ NOZaOOOA 
N0200005 
N020000O 
N02j 0007 
N820^0Q08 
N02Q 0 0 0 9 
N0200Q1Q 
N02QOQ11 
N020 0 012 
N0200013 
NO 20 0 014 
N0 20 0 015 
NO 20 0 016 
N0200017 
NU2GG31S 
N020Q019 
N020 0020 
NO 20 0 021 
N02C 0 022 
N02Q0023 
' N02Q0024 

N02GOG25 
N02GaQ25 
N02J0027 
• NQ20GQ28 
N0200029 
NQ200Q30 
N023Qu31 
N02Q0032 
N8203 033 
N02UQ 034 
N0230335 
N020G036 
N0200037 
NO 2Q 0 33 8 
N02 30039 
N020 0040 
N32i3 0041 

N023U042 

N0200043 

N020Q044 

N0230045 

N320034b 
N3200 047 
N0200048 
N0230049 
N0200Q50 
N0200U51 


BPTAPl PAGE 2 DATE: 01/27/99 



O j 52 

P0027 

0137 


SAM 

TAPES-"^-! 

SKIP ON ALL BUT REW , UNL, S LO 


0053 

PQ028 

Q9FE 


INA 

-1 


Q 

0 0 5 4 

P0 029 

0105 


SAZ 

TA=>E5-’^-l 

SKIP ON SLO 

0055 

P0Q2A 

584D 


RTJ’^ 

GET 

GET DELIHITOR 


0 0 5 6 

PQ02B 

90 OA 


3UB- 

SA 



005 7 

P002C 

0101 


SAZ 

TAPE4-^-1 

SKIP ON STATEMENT END 

0 

QQ58 

P002D 

18E7 



TAPE25 

FORMAT ERROR - BACK TO BRKPTD 

00 59 

^0025 

18 1C 

TAPE4 

JMP^ 

NOTION 

TO EXECUTE 


00 6 0 



* 





0 0 61 

P002F 

5848 

TAPES 

RTJ^ 

GET 

GET OELIMITOR 

0 

00 62 

P0030 

0903 


INA 

-$2C 


00 6 3 

P0 031 

0 108 


SAZ 

TAP£7-’^-l 

SKIP IF A COMMA 


03 6 4. 

P0032 

C90C 


INA 

$C 

IS IT A BLANK 


0 0 6 5 

P0033 

am 


SAN 

TRYFF 


; — 

0 D 6 5 

P003^ 

1805 


JHP^ 

TAPE6 



0 3 6 7 

P 0 0 3 5 

9000 

TRYF- 

SUB 

= NSDF 

IS IT A FF 



P0G36 

0 OOF 






0 3 6 8 

PG037 

0101 


SAZ 

TAPE5-^-l 

SKIP IF STATEMENT END 

0 

0 0 6 9 

POO 38 

18DC 


JHP^ 

TAPE25 

FORMAT ERROR - BACK TO BRKPTD 

00 70 

PQ039 

1811 

TAPE6 

JHP^ 

MOTION 

TO EXECUTE 


00 7 1 








00 72 

P003A 

58-tE 

TAPE7 

RTJ^ 

DEC 

GET REPEAT CODE OR DENSITY FLAG 


00 73 

PO 03B 

C81.t 


LDA^ 

OP 



03 7-+ 

P003C 

0139 


SAM 

TAPE9-»-l 

SKIP IF NOT SLD 


00 7 5 

P0G3C 

G816 


LDA^ 

NUM 

GET DENSITY FLAG 


0076 

PGG3E 

G8 22 


TRA 

Q 

DENSITY REQUESTED CODE TO Q 

1 I 

00 77 

PO Q3F 

0121 


SAP 

TA=>E8-'^-l 

SKIP IF PLUS 

1 J 

0078 
0 0 79 

P 0 0 4 0 

1804 


JMP^ 

TAPE25 

FORMAT ERROR - BACK TO BRKPTD 


008C 

P 0 0 4 i 

09F8 

TAPES 

INA 

— 


0 

iiu 81 

Pu 042 

0 131 


SAM 

TAPE8A 

FLAG IN PROPER RANGE 0-3 

D032 

0033 

P0043 

1801 


JMP>^ 

TAPE25 

FORMAT ERROR - BACK TO BRKPTD 



00 3.^ 

P 0 0 44 

CA14 

TAPES A 

LOA^ 

OENCO ,Q 


0 

008 5 
00 8 6 

P00^5 

68 OE 


STA^ 

NUM 

SAVE DENSITY CODE FROM TABLE 


OD 37 

P004o 

C809 

TAPE9 

LDA'^ 

OP 



0088 

P 0047 

AOIA 


AND- 

$1A 



003 9 

PO 0 48 

B8 OB 


EOR* 

NUM 

PUT REPEAT COUNT OR DENSITY IN REQUEST 


00 90 
009 1 

P0049 

6 8 0 6 

* 

STA^ 

OP 



0U92 

P004A 

5 4 F 4 

MOTION 

RTJ- 

($F4) 

THIS IS THE PLUGGED MOTION REQUEST 

0 

u393 

PO 04B 

5C00 


NUM 

$5C00, 0,0 



P004C 

0 0 0 0 







P0040 

0 0 0 0 






0 3 94 

P004E 

10 00 

LU 

NUM 

$10 3 0 

LOGICAL UNIT GOES HERE 

0 

03 95 

PO 04F 

QOuO 

OP 

NUM 

0 

OPERATION GOES HERE 

0 0 9 6 
0097 

P0 05G 

ICAF 

¥ 

JMP«^ 

( TAPE) 

DONE - EXIT 



03 98 







0 

00 99 

PQ051 

0 0 01 

WDIX 

BSS 

WOIX(l) 

WORD INDEX TO BUFFER 

010 u 

P0G52 

0 0 01 

CHAR 

BSS 

CHAR(l) 

CHARACTER FLAG 0=L£FT 1=RIGHT 


010 1 

POO 53 

00 05 

NUM 

BSS 

NUM (5 ) 

SCRATCH 


o 


n 

•v^ 


NQ20oa52 
NQ200G53 
NG 2 OOO 3 P 
N0200 055 
N02D 0 05d 
N020G 05 7 
Nj2j 0 05 8 
N0 2L 0 059 
N0 20 0 060 
N02UDQ61 
NO 2 j U G 6 2 
Nu2Ci0 063 
N020U064 
N02QD 065 
N02QG066 
N 0 2 0 u 0 o 7 

N020 0 068 
NQ20 0069 
N0200Q70 
N0200U71 
N02G0072 
N0230073 
H02jQ 074 
NO2C0G75 
N0200076 
N020 0 0 77 
N02DQ07S 
NQ20 0 079 
N02u G 060 
N02 00081 
N020 0 082 
N02G 0 083 
NOZOOOSk 
N02Q0085 
N0200086 
N02000S7 
NOZa 0088 
NQ20 0 0 89 
N020 0090 
N02G 0 091 
NOZOQQ92 
N02u0093 


N020 0094 
N02G0095 
NO2OO096 
N0200097 
NOZOD 098 
NQ29 0 099 
N02Q01GG 
NQ20 01Q1 



r'^ 

o 

C' 

o 

o 

C' 

T) 

o 

C) 

o 

o 

o 

o 

o 

o 

o 
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PAGE 


0102 
0103 
QIQh 
010 5 
01 G 6 
0107 
010 8 
0109 
OllQ 
Dill 
0112 
0113 
ull- 
fl 1 1 & 
0116 

0117 

0118 
0119 
012C 
0121 
0122 

012 3 
Q12-. 
0126 
0126 
ul2/ 
012 8 
0129 

013 0 

0131 

0132 

0133 

0 1 Sij- 

0135 
013 6 
013 7 
ul3d 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 
015-^ 




4 

>>■ 



DENSITY CODES 

P0Q58 

0 0 03 

DENCD 

NUM 

3 

0. 200 BPI 

PQ059 

G0C2 


NUM 

2 

1. 556 BPI 

P Q 0 5 A 

0 0 0 1 


NUN 

1 

2. 800 BPI 

P0 05B 

0 0 0 4 


NUM 

4 

3. 1600 BPI 



^ THIS 

TABLE CONTAINS TWO 

WORD ENTRIES. THE FIRST CONTAINS 



^ THE 

2ND AND 3RO CHARACTERS FROM EACH POSSIBLE STATEMLNI GUUt 



^ THE 

2ND CONTAINS THE ASSOCIATED MOTION REQUEST CODE 



^ ALONG WITH A DEFAULT PAPvAFETER. 

at 

P0 05C 

4 4 46 

CTABLE 

ALF 

1,DF 

ADVANCE FILE 

P0050 

DO Q1 


NUM 

SDOQl 


P 0 0 5 E 

5346 


ALF 

1,3F 

BACKSPACE FILE 

P005F 

EO 01 


NUM 

SEOOl 


P0D6G 

41+ 52 


ALF 

1,DR 

ADVANCE RECORD 

P 00 61 

FO 01 


NUM 

SFQOi 


P00b2 

5352 


ALF 

i’5R 

BACKSPACE RECORD 

P 0 0 6 3 

9 0 01 


NUM 

$9001 


P0G6-^ 

45 46 


ALF 

1 ,EF 

WRITE END OF FILE 

P 0 0 6 5 

AO 01 


NUM 

SAOOl 


P0066 

4557 


ALF 

1,EW 

REWIND 

P0067 

300 0 


NUM 

$300 0 


P0068 

4 E 4C 


ALF 

l + NL 

UNLOAD 

P0069 

40 0 0 

UNLOAD 

NUM 

$4000 


P006A 

4 C 4 4 


ALF 

i,LD 

SET DENSITY 

P0G6B 

0 0 01 


NUM 

1 


P0G6G 

0 0 0 0 

GTEN3 

DSS 

CTEND ( 0 ) 




^ THE 

Ar 

FOLLOWING BACKS UP 

THE STATEMENT SCAN BY ONE CHARACTER. 

=>G06C 

0 0 00 

BACK 

NUM 

0 


PQG6D 

C8E4 


LDA^ 

CHAR 


P006E 

0115 


SAN 

8ACKl-^-l 

SKIP ON CHAR > RIGHT 

P0 06F 

D3E2 


RAO^ 

CHAR 


P00 70 

C8E0 


LDA^ 

WOIX 


PO 071 

09FE 


INA 

-1 


P0072 

68UE 


STA^- 

WDIX 


P 0 0 73 

1CF8 


UMP’*^ 

{ BACK) 


PQ074 

0 8 44 

BACKl 

CLR 

A 


P 0 0 7 5 

68DC 


STA^ 

CHAR 

SET CHAR TO LEFT 

P0u76 

1CF5 


UMP- 

(BACK) 




» THIS 

SUBROUTINE UNPACKS 

ONE CHARACTER FROM THE INPUT BUFFER 



» AND 

RETURNS IT IN A. 


PG 077 

0 0 0 0 

GET 

NUM 

0 


PO 0 78 

CODS 


LDA^ 

(WDIX3 , I 

GET CHARACTER WORD 

POO 7P 

E8D8 


LDQ^ 

CHAR 

CHARACTER FLAG fl=LEFT 1=RIGHT 

P0Q7A 

0151 


SQN 

GETl-^-1 

SKIP ON RIGHT CHARACTER 

PG07B 

0FC8 


ALS 

B 


Pu j7C 

AGO A 

GETl 

AND- 

$A 

UNPACK IT 


N02QQ102 

N02001Q3 

N0200104 

N02Q 0105 

N020G1Q6 

N02Q 0107 

N02aQlQ8 

N020G1Q9 

NO 20 G iiO 

NaEGQlli 

NQ20D112 

N0200113 

NO 20 0 11 H 

NG2G Oil 5 

N02G Q 116 

N02CG117 

N0200118 

H0200119 

NQ20G12C 

N02D0121 

N02l 0 122 

NQ200123 

NQ2G0124 

N020 0125 

N02G0126 

NG20 0127 

N020Q128 

N02j 0129 

N0 20 0 130 

N020 0 131 

N020Q132 

N0200133 

NO 20 0 13 H 

N02QG135 

N02Q 0136 

N0200137 

NG20 0138 

NQ20 Q 139 

N0200140 

NQ2Q0141 

N0200142 

N02G0143 

N0200144 

N02Q0145 

N0 20 0 146 

N02Q0147 

N0200148 

N020 0 Ih-9 

N020015D 

N020Q151 

N0200152 

N0200153 

N020 0 15'^ 


( : 





BPTAPl 
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( 1 ' 

015-^ 

PGQ7D 

01 44 


saz 

GET2-^-l 


0156 

P007E 

0 8 42 


CLR 

Q 

I 

012 7 

PQ07F 

4802 


STQ^ 

CHAR 


0158 

POO 8u 

D8D0 


RAO^ 

WDIX 


015 9 

PO 081 

1CF5 


JMP^ 

(GET) 


015 0 

P0082 

08CF 

GET2 

RAO» 

CHAR 


0151 

P0083 

E8CD 


Loa^ 

WDIX 


0 i 0 2 

P0084 

OODA 


INQ 

-37 


0163 

PO 08 5 

0 1 41 


SQZ 

OFLOW-^-1 


0154 

P0086 

ICFO 


JMP'^ 

(GET ) 


0165 

P0 0 67 

18 8D 

OFLOW 

JMP^ 

TAPE25 


016 6 







0167 



* THIS SUBROUTINE COM 


016 3 







0169 

P0u88 

0 000 

DEC 

NUM 

0 

o 

017 0 

P0Q89 

0 8 44 


CLR 

A 


0171 

PQQ8A 

6dC8 


STA-‘ 

NUM 


0172 

P008B 

68C8 


STA» 

NUM + 1 


G173 

P0 08C 

5 3C8 


STA^ 

NUMf 2 


0174 

P0Q8D 

0 AFB 


ENA 

-4 


0 1 7 5 

PGQ8E 

o3C7 


STA^ 

NUM + 3 


0176 







01 7 7 

P008F 

58E7 

DECl 

RTJ- 

GET 

/ 

0178 

PG09Q 

E8C4 


LDQ^ 

NUM 4- 2 


0179 

P0 091 

01 5A 


3QN 

DEC3-^-l 


0180 

P0092 

09D4 

OEC2 

INA 

-$2B 


0181 

P0093 

0 112 


SAN 

QEC5-^-l 


0182 

P009h 

38GG 

DEC3 

RAO^ 

NUM +2 


0133 

P0095 

18F9 


JMP'f 

DECl 


0184. 

P0096 

09FD 

OEC5 

INA 

-2 

/'“’s 

Q 1 3 5 

P0Q97 

0 112 


SAN 

D£C6-^-l 

'■J 

013 6 

PGQ98 

DSBB 


RAO^ 

NUM41 


013 7 

P0099 

18FA 


JMP^ 

□ EC3 


0188 

P009A 

0 8 BA 

OECb 

RAO^ 

NUM + 2 

■T', 

0139 

P0Q9B 

0920 


INA 

$20 


013 0 

PQ 09C 

E889 

DECS 

LDQ^ 

NUM + 3 


0131 

P0G9D 

0151 


SQN 

0EC9-^-l 


0132 

PO Q9E 

1810 


JMP^ 

OEC125 


0133 

P009F 

D806 

DEC9 

RAO^ 

NUM + 3 


D13h 

POOAC 

09CF 


INA 

- $3 0 


3135 

PG OAl 

0 121 


SAP 

DEClO-'^-l 


0195 

P00A2 

1810 


JMP’^ 

D EC 3 0 


019 7 

PG0A3 

09F5 

OECIO 

INA ■ 

-$A 

LJ 

0198 

PO 0A4 

0 131 


SAM 

DECll-’^-l 


0199 

P 0 0 A 5 

1800 


JMP^ 

DEC30 


020 0 

PO OA 6 

U9QA 

DEC 11 

INA 

$A 

r->. 

020 1 

POO A 7 

68 AF 


STA- 

NUM+4 


0202 

P0GA8 

0 AOA 


ENA 

10 


020 3 

P00A9 

28A9 


HUI^ 

NUM 


020 4 

PQ OAA 

01 41 


SQZ 

DEC12-^-l 


0 2 3 5 

P'j GAB 

1803 


JMP^ 

DEC125 


0206 

P 0 Q A C 

88 AA 

DEC12 

AOD^ 

NUM + 4 


02 0 7 

POOAU 

0 1 B2 


SNO 

0EC13-'^-l 


date: 01/27/99 


SKIP ON LEFT 

UPDATE CHARACTER FLAG 
UPDATE WORD INDEX 
RETURN 

UPDATE CHARACTER FLAG 
TEST FOR BUFFER END 

SKIP ON INPUT BUFFER END 
RETURN 


- ERROR 


CLEAR NUMBER 

SET SIGN POSITIVE 

SET 1ST CHARACTER FLAG TO 1ST 

SET DIGIT COUNT 

GET A CHARACTER 

SKIP ON NOT 1ST CHARACTER 

SKIP IF NOT A PLUS ^ 

TURN OFF 1ST CHARACTER FLAG 


SKIP IF NOT A MINUS 
SET SIGN NEGATIVE 

TURN OFF 1ST CHARACTcR FLAG 


SKID IF LESS THAN 5 DIGITS 
TOO MANY DIGITS 
UPDATE DIGIT COUNT 

SKIP ON OK SO FAR 
NOT A DECIMAL DIGIT 


SKIP ON DECIMAL DIGIT 


HERE IS THE ACTUAL CONVERSION 

SKIP IF NUMBER LESS THAN 32 768 
NUMBER TOO LARGE 

SKIP IF NUMBER LESS THAN 32768 


NQ200155 

N020 0 15 6 

N020D157 

NQ2G0158 

N02u 0 159 

NQ200160 

N0200i&l 

N020 0 152 

N02D0163 

N020016A 

N02Q 016 5 

N02G 0166 

N020G167 

N02QG168 

N020 0169 

ND20G170 

N02G 0171 

N020 0172 

NQ2D3173 

N02Q 0174 

NQ20 0 17 5 

N0200176 

N020Q177 

ND2Q 0178 

NQ200179 

NQ200180 

N020G181 

NQ20Q182 

N020Q183 

N02] Q18h 

N020018 5 

N0200186 

N020 0187 

NQ2Q0188 

N0 23 0 189 

Na2fl0190 

NQ20G19i 

Na200192 

N0200 193 

N020019H 

N02Q0195 

N020Q196 

N02c0197 

N3230i98 

N020 0 199 

NO 20 0 20 0 

NO 20 0 201 

N02302Q2 

N02uu203 

NQ20 0 2G^ 

N02Q 0 20 5 

N02Qa206 

N02u0207 


Q 


O 

o 

o 


o 

O 

C-' 

O 

Q 

O 

O 

o 


o 


o 


o 






date: ui/27/99 



o 

o 


u2D8 PUOAE OAGG 
QE09 POJAF iiZa 
021G POOBH 68A2 

0211 PQOBl 18DD 

0212 

0213 P00G2 58B9 
021h P0ljB 3 C89F 
0215 POOB^ E89F 
Q21fa P0GB5 0141 

0217 ^OOBd 18F7 

0218 P0QB7 1C DO 

0219 


DEC125 ENA 0 

JHP- 40,1 
DEC 13 STA-^ NUN 
JMP^ DE31 

❖ 

DEC3Q RTJ^ BACK 
LDA^ NUN 
LOQ-'^ NUM + 1 
SaZ DEG31-^-l 
JMP- OEC125 
DEC31 JMP’^ (DEG) 

END 


NUMBER TOO LARGE 
SAVE CURRENT PROCEEDS 
GO GET NEXT DIGIT 

BACK UP SCAN BY ONE 


SKIP ON POSITIVE NUMBER 
NO NEGATIVE NUMBERS ALLOWED 
DONE 


P3N= 00B8 { 184) COM = UQOO ( 0) DAT = 0000 ( 0) 


'0 

© 

© 


o 

o 

o 

Q 

O 


o 


N020 0 208 
N02Q u 209 
NQ20 C 210 
N02G G211 
N02GQ212 
N02G0213 
NQ2JQ214 
N02G0215 
N0 20 0 216 
N022 0217 
N023 0 21 8 
N020 0 219 

• O 




C 


L7 


o 


o 


o 


c 


o 


o 



o 


o 


BPTAPl 
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I I 


aUIVALENGES 




o 


DEF.LINE i'JAME 
0 0 0 0 I 


VALUE RE-ERENGED AT LINE NUMBER 

OOFF (000255) 0013 


o 


o 


o 


o 

o 

o 

o 

o 


o 


o 


o 

o 

o 

o 

o 


o 


o 

o 

o 

c 

o 


o 


o 



BPTAPI page 1 DATE: 01/27/99 

SYMBOLS 


OEF. LINE 

NAME 

ADDRESS 

REFERENC 

ED AT 

LINE NUMBER 





0011 

TAPE 

aoQ 0 

0097 







0 0 22 

TAPEl 

00 0 A 

00 27 






r"i 

0 0 29 
0 0 3 H 

TAPE2 

TAPE25 

OCIO 

0015 

0 0 24 
0 0 26, 

0 U4 4, 

0u49, 0058, 

0 069 , 

0078, 0082, 

0165 

3 0 57 

TAPE3 

0017 

0 0 33 


0043 





0 0 5 

TAPE31 

0020 

OL 40 , 

0042, 





9 0 5 1 

TAPE36 

0026 

0 0 48 






0059 

TAPE4 

302E 

0 057 

0 05 4 






0 0 61 

TAPES 

u02F 

00 52 , 






0067 

TRYFF 

003 5 

0 0 65 

0 068 






Du7Q 

TAPE6 

0C39 

0 u 66 , 





;■_) 

0072 

TAPE7 

0 03 A 

0 063 







G 080 

TAPE8 

0 0 41 

0 0 77 







D08U 

TAPE8A 

0 0 4 4 

0 0 81 






■w 

0 0 b 7 

TAPE9 

0 0 4 b 

0 0 74 

0 370 





0 0 9 2 

NOTION 

004A 

0 059 , 






0 0 94 

LU 

OG-tE 

0 0 39 


Gu73, 0087, 

0090 




0C95 

OP 

0G4F 

0 0 30, 

Q 0 5 1 , 

0161 



0 C 99 

WDI X 

uGSl 

0 015, 

0138, 

0140, 0150, 

0158 , 


; O 

0100 
0 101 

CHAR 

NUM 

G052 

0D53 

0 0 17, 
0 019, 

0135, 

0023, 

0137, 0143, 
0075, 0085, 

0151, 

0089, 

015 7, 0160 
0171, 0172, 

0173, 0175, 0178, Q182, Q186, 0188, Q19G, G193, Q2D1 


■3 2 0 3, 

020 6, 

0210, 0214, 

0 215 



: O 

0 IC*- 

OENCD 

0058 

0 0 84 

0022, 

0 029 




0114 

C T A BLh 

0 0 5C 

0 0 21, 





012 7 

JNLOA D 

0 0 6 9 

3 0 21 







3 130 

GTEND 

u06C 


0213 





0154 

BACK 

006C 

0141, 

0144, 





0142 

8ACK1 

0074 

0 136 


0061, 3159, 

0 164 , 

0177 



0149 

GET 

00 77 

3 -3 31 , 

0 0 5 5, 



3 154 

GETl 

0Q7C 

0152 







0 16 0 

3ET2 

0 0 82 

0 1p5 






- Q 

0165 

OFLOW 

0087 

0 163 

0072 , 

0218 





0169 

DEC 

0086 

QU37, 





017 7 

DECl 

008F 

Q183, 

0 211 





; O 

G 18C 

DEC 2 

0092 

0187 






0182 

DEC3 

0094 







0184 

DECS 

009 6 

3 181 







0168 

0EC6 

DD9A 

0135 






: O 

Q 19 0 

DEC 8 

LG9C 

0179 






0193 

DEC9 

009F 

0191 







019 7 

DECiO 

0 0 A 3 

3195 








C 

o 


o 


BPTAPl 


PAGE 


8 


OATEJ 01/27/99 



c 

o 

o 


0 2CG 

□ ECU 

00 Ab 

0 198 


02u 6 

0EC12 

OOAC 

0 2 0*+ 


Q2C8 

DEC125 

OOAE 

0192, 

0205 

0 21Q 

DEC13 

OOBO 

0 207 


} 213 

0 h C 3 0 

00B2 

0 196, 

0199 

0218 

0EC31 

0087 

3 216 



0217 


n 



■;,j 

Q 

O 

O 

o 

o 


o 


C) 

o 

o 

C 

• T': 

I 

i 

o 
, o 
■ o 
o 

: O 

- O 

. o 
c 
o 

, 


BPTAPI page 9 date; Ql/27/99 

o 

Q EXTERNALS 

Q DEF.LINE NAME VALUE REFERENCED AT LINE NUI-tBER 

0 3 09 LOGiA 0021 0 U4i,0Q4'5 

o 

o 

o 

o 

o 

o 

o 

o 

o 


I 


Q 

O 


c 

c 


u 


o 

c 


o 


o 

Q 

O 

o 

o 


o 


o 




RPTAPl 


PAGE 

10 

A L 

P H A 

B E T I 

GAL 

S 0 ^ T 

0 F 

BACK 

013 4 

BAGKl 

0142 

CHAR 

0100 

OE: 12 

0 2u 6 

DEC125 

9 208 

DEC13 

0 210 

DECS 

U19Q 

OEC9 

0193 

OENCO 

9 104 

MOTION 

0092 

NUM 

0101 

OFLOW 

0 165 

TAPE 31 

Cl Cl 4 £> 

TAPE36 

9 051 

TAPE-r 

0 0 59 

T^YFF 

0067 

UNLOAD 

3127 

wnix 

3 0 99 


DATES 01/27/99 


SYMBOLS 


CTABLE 

0114 

CTENO 

013 0 

DEG 

015 9 

DEC2 

0180 

DEC3 

0182 

DEC30 

0213 

GET 

0149 

GETl 

Q15if 

GET2 

0 160 

OP 

0 09 5 

TAPE 

0011 

TAPEl 

0 02 2 

TAPE5 

0061 

TAPE6 

007 0 

TAPE7 

0072 


DECl 

0177 

DECiO 

019 7 

3EC11 

0 20 0 

DEC31 

0218 

DECS 

018 4 

DEC6 

0188 

I 

0 9 Li u 

LOGIA 

0009 

LU 

DG94 

TAPE2 

0 0 29 

TAPE25 

'0034 

TAPE3 

0037 

TAPES 

0 Q 8 0 

TAPE8A 

0084 

TAPE9 

0087 


c 



MAsnni 


PAGE 1 

DATEJ 01/27/99 




000 1 




NAM 

MA3DM1 

DECK-ID NJ3 MSOS 5.0 


SUMMARY-li3ND3000ai 

u 


OQD 2 




MASS 

STORAGE OPERATING SYSTEM VERSION 5.0 


N03D0002 


o 

0GC3 




SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


N0300003 

^ o 

00C4 




COPYRIGHT CONTROL 

DATA CORPORATION 1976 


N0300QG4 


00 0 r> 








Nu33 0 00 5 



0 j ] 6 



» THIS 

PROGRAM PROCESSES 

ALL REQUESTS TO DUMP 


N03 0 0 0 0 5 


o 

0 0 0 7 



- MASS 

STORAGE FOR BREAKPOINT. THE LOCATION OF 


N030 0 00 7 

: O 

00 08 



♦ QX IN BRKPTO IS IN A ON 

ENTRY. 


N0300008 


Oi 09 








N033 0 GG9 



0010 

P U u U u 

0 0 00 

MAS 

NUM 

0 



NQ3G 0 010 



0011 

PQ OQl 

u9ac 


INA 

12 



NQ30 0011 

o 


0012 

PQ302 

5GFF 


STA- 

I 

SAVE INPUT BUFFER ADDRESS 


N033 0012 


00 13 

P0003 

0 8 h-4 


CLR 

A 



Nu3G 0ul3 



0014 

POOD9 

6800 


STA 

CHAR 

SFT TO UNPACK LEFT CHARACTER 


N03G 0014 


o 


POtiuS 

30B4 






■ o 

0015 

P00 06 

-3 A 02 


ENA 

2 



N030 0 015 


0 016 

PuOj 7 

6800 


STA 

HOIK 

SET TO UNPACK 5 TH CHARACTER IN 

GET 

ROUTINE NU330015 




PQOuS 

Q0B2 







o:i7 

P0G09 

6 3Q0 


STA 

FSTRT 

SAVE FIELD START INDEX 


N030 0 017 




POOOA 

oQBF 






i r 


0 J J. 0 

POOGB 

ClOl 


LDA- 

1,1 

GET 2ND BUFFER WORD 


NO 33 0 018 



Oi 19 

POQOG 

AOOA 


AND- 

$A 

UNPACK 4TH CHARACTER 


NG3QQ 019 



0020 

POQQD 

68 0 0 


STA 

TYPE 

DEFINES FORM OF DESIRED OUTPUT 


N030.Q320 




POOOE 

GOAD 






V.-- 


002 1 

P G 00 F 

0CF8 


ENQ 

-7 



N033 G 021 



0 3 2 2 

POOlO 

C722 


LDA- 

(S22) ,3 

GET OUTPUT UNIT 


N033 u 022 


o 

03 23 

PdOll 

68 0 0 


STA 

LU 

STORE IN WRITE REQUEST 


N03a0Q25 



PGul2 

0102 





• 


0 3 2^4 








NQ3j0024 



0Q25 

PO 013 

■3C14 


ENQ 

20 



N03] 0025 



0 3 2 6 

= 0014 

3A30 

MASl 

LDA 

DMPTAB,Q 

SEARCH FOR DATA ON THIS OUTPUT 

FORM 

N0300326 

■ O 



PO 015 

0 0B5 







03 2^ 

PC016 

9800 


SUB 

TYPE 



NQ33 0 02 7 




P0 017 

0 0 A4 








Q028 

PGQ18 

0102 


3AZ 

HAS 2--^- 1 

SKIP WHEN RIGHT SET OF DATA FOUND 

N030 0 028 

' r"; 

03 29 

P0G19 

ODFA 


INQ 

- 5 



N03Q 0 029 


0 3 3 u 

PGulA 

18F9 


JMP-> 

MASl 



NO 30 0 030 



00 31 








NO 30 0 3 31 



03 32 

POOIB 

CAGO 

MAS2 

LDA 

DMPTAB+1 ,Q 



N03GG 032 




POOIC 

GOAF 






o 


00 33 

P 0 0 1 D 

6 8 0 0 


STA 

INCREM 

SET NUMBER OF WORDS PER VALUE 


NQSQOOSJ 




POulE 

0 0 9F 







0 

0039 

POGIF 

CAOQ 


LDA 

DMPTAB+2,Q 



N030 0 034 



P0020 

0 0 AC 






u 


0035 

P0021 

58GQ 


STA 

VPL 

SET VALUES PER LINE 


NO 3] 0035 




PCG22 

0 0 9A 







r') 

0 3 56 

P0G23 

CAGO 


LDA 

DMPTAB<-3,Q 



N03G 0 036 




P0 024 

Q 0A9 







00 37 

POO 25 

6 8 0 0 


STA 

COMVRT 

SET CONVERSION ROUTINE INDEX 


N030 0 037 




PO 326 

GO 9E 







O 

0 3 3 8 

PGG27 

CAGO 


LDA 

DHPTABf 4,Q 



N030 0 036 



P0023 

GO A6 





' u 


09 39 

P0029 

58 00 


STA 

OBUP 

SET NUMBER OF POSITIONS PER FIELD 

NO 30 0 039 




PO U2A 

U Q 9C 







O 

O 










o 

c 




MASDMl 



PAGE 2 

C J *f u 






0 3 41 

=>0020 

5800 


RTJ 

COMCHK 


PQ02C 

OQCB 




0 0 42 

P0C2D 

5800 


RTJ 

HEX 


P0U2E 

0 0 ED 




0 u 4 3 

P002F 

6800 


STA 

MSB 


P 0 C 3 0 

0 QD6 




0 G T H 

PQ031 

5600 


RTJ 

COMCHK 


032 

0 0C5 




0 3 4 5 

P0C33 

580 0 


RTJ 

HEX 


P0G34 

0QE7 




0 0 4 5 

P0035 

6800 


STA 

LSB 


P0Q35 

GODl 




0)47 

POO 37 

5800 


RTJ 

COMCHK 


P0 038 

0 0 BE 




00^8 

P0Q39 

5800 


RTJ 

HEX 


PO 03A 

0 0 El 




0 3 49 

P0G3B 

0 8 42 


CLR 

Q 

0 0 ? 0 

P 0 03C 

300 0 


QVI 

= N95 


P0 03D 

0 0 60 




0 3 5 1 

PO G3E 

88 00 


ADD 

LSB 


PO G3F 

OOC8 




00 52 

P0G4Q 

01B3 


SNO 

MAS 20 1- ■^'-1 

0 0 5 3 

P0041 

08 0 0 


RAO 

MSB 


P00h2 

0 0 C4 




0 0 5 4 

PD0^3 

AQ 11 


AND- 

$11 

0 0 5 5 

P 0 G H 4 

B800 

MAS 23 1 

STA 

LSB 


P0 345 

OOC2 




G 0 5 D 

PC 0 40 

4 8 0 0 


STQ 

START 


P0Q47 

0 0 80 




0 0 5 7 

PO 048 

5800 

MAS 25 

RTJ 

COMCHK 


P0049 

OOAE 




0 0 5 8 

P004A 

5800 


RTJ 

HEX 


P004B 

OODO 




0 3 5 9 

Pfl04C 

5 8 0 0 


STA 

NWDS 


P004D 

0 0 7B 




0050 

P004E 

0123 


SAP 

MAS26-^-l 

0 0 51 

P004F 

C800 

MAS22 

LOA 

FSTRT 


P005G 

0 0 79 




005? 

PC051 

1128 


JMP- 

40,1 

00 5 3 

P0Q52 

5800 

MAS25 

RTJ 

GET 


P0053 G0F8 
PG054 900A 
0055 P0G55 JlQi 
0Q66 P0056 18F8 
0 0 57 

0058 Pu0t>7 

0059 PG058 
0 3 7 0 POO 59 
0071 P005A 

P0 05B 
0 3 7 2 Pi3Q3C 
PO 050 


DATE! 01/27/99 

CHECK 1ST DELIMITOR 

GET SECTOR MOST SIGNIFICANT BITS 

CHECK DELIMITOR FOR COMMA 

GET SECTOR LEAST SIGNIFICANT BITS 

CHECK FOR COMMA DELIMITOR 
GET STARTING WORD NUMBER 


SET STARTING WORD NUMBER IN SECTOR 
CHECK DELIMITOR FOR COMMA 
GET NUMBER OF WORDS TO DUMP 

SKIP ON POSITIVE NUMBER OF WORDS 

FORMAT ERROR - BACK TO BRKPTD 
GET NEXT CHARACTER - SHOULD BE END 

CONTAINS SEE 

SKIP IF STATEMENT END 

FORMAT ERROR - BACK TO BRKPTD 


5801 
0 0 Ou 
C8FE 
8Q 00 
017D 
5 8 0 0 
0 D 89 


HAS 3 


SUB- SA 

SAZ MAS3-'^-l 

JMP^ MA322 


RTJ^ 

NUM 


ADO 

STA 


Q 


^ + 1 


LDA--*^ ^-1 


:X0JTBJF-MA33-1 


;ss 


STORE ABS LOCATION OF OUTPUT BUFFER 


NO 33 u 0 40 
NOSjOuhI 

N030 OOtB 

N050 G 043 

NC300044 

N03Q0Q45 

N0300046 

N030 0 047 

N03300^8 

NO 33 0 049 
N 0 3 u u 0 5 0 

N030 0 0 51 

N03i3Q05E 
NO 30 0 05 3 

Nosoaos^ 
N 0 3 0 u a p 5 

NG30GU56 

N03uu057 

NQ3 00058 

N030 0 059 

NQ3jQ050 

NQ30Q051 

N03000&2 

N0300053 

N0330Q6h 
NOSOOOdS 
NO 3 0 0 0 66 
NQ3QQ067 
NO 30 0 058 
NQ300069 
NG30007D 
N05uuu71 

NO 30 OQ 72 


o 


MASOMi PAGE 3 DATE; 01/27/99 

o 



0 J 7 3 

P0 05E 

C8F9 


LQA^ 

MA53+1 


N0300075 



0Q7-* 

P005F 

8 00 0 


ADD 

= XIMBUF-MAS3- 

1 

N0300074 


o 

0 3 7 5 

P 0 G 6 u 
P0Q61 

OlAl 
680 0 


STA 

INLOC 

STORE A8S LOCATION OF INPUT BUFFER 

N030 Q 075 

. O 



Pli 062 

0 0 A3 








0Q7b 







N0300Q76 



0 3 7 7 

P 0 0 b 3 

COOO 

hash 

LDA 

=N52Q20 

BLANKS 

N03J 0 077 

: O 



P0064 

2D20 







0Q7B 

PG065 

6800 


STA 

OUT8UF 


ND300078 




P0 066 

0 1 6F 







o 

00 79 

P0067 

u AOl 


ENA 

1 


NQ330Q79 

■ r\ 

OOSfl 

POOfaS 

68 0 0 


STA 

OBIX 


N030008Q 




P0G69 

DO AC 








GOBI 

POObA 

580 0 


RTJ 

WRITE 

WRITE A BLANK LINE 

N03G 0 081 


o 


P0C6B 

0 0 A4 







OOB 2 

P006C 

53G0 


RTJ 

WRITE 

ANOTHER BLANK LINE 

N0300U82 

L,..' 



POQ60 

0QA2 








COB. 5 







N030 0 083 


o 

003 P 

P006E 

OA GO 


ENA 

0 

THE FOLLOWING PUTS SECTOR NUMBER IN OUTBUF 

NO 30 0 0 8 4 

• O 

003 5 

P006F 

68 0 0 


STA 

OBIX 


N 0 3 G 0 0 8 5 



POO 70 

0 DA5 








0 0 6 o 

P0071 

C80 0 


LDA 

MSB 


NO 30 Q 08 6 




P0 072 

0 0 94 






o 


0 0 3 7 

° 0 G 7 3 

58 0 0 


RTJ 

HEXM 

SPECIAL ENTRY TO HEXO 

NQ33 0 087 



P0G7-. 

0 117 








0 3 8 8 

P0075 

0 A02 


ENA 

2 


N030 0 083 


o 

0 0 8 9 

POO 76 

6800 


STA 

OBIX 


N03a0089 

: 


PG077 

0 0 9E 







00 9 0 

P0 0 78 

C8 00 


LDA 

LSB 


N030 0 090 




P0 079 

0 0 8 £ 







o 

0 3 91 

POO 7A 

5300 


RTJ 

HEXM 

SPECIAL ENTRY TO HEXO 

N0330091 

■ O 

00 9 2 

P0Q78 

0110 

¥ 




NO 30 0 09 2 




0 0 9.3 

PQQ7C 

U A U 4 


ENA 

4 


N030QQ93 


0 

G G 9 4. 

POO 70 

6800 


STA 

OBIX 


N 0 3 0 0 0 9 4 

: 


PG07E 

0 097 







OG 9 5 

P007F 

58 00 


RTJ 

WRITE 

OUTPUT SECTOR NUMBER 

N030 Q 095 




PO 080 

0 0 8F 







0 

0 j 9 D 

P0 08i 

5 8 0 0 


RTJ 

READ 

READ A SECTOR 

N0300096 


0097 

PQ082 

0 0 7C 

¥ 




NO 300097 




00 98 

PQ083 

0C23 

MAS& 

ENQ 

35 


NG3QQQ98 



00 99 

PQ Q8h 

COOO 


LDA 

=N52Q2Q 

BLANKS 

NQ3Q 0 099 

: O 



PC085 

2020 







010 e 

P0 0 8 b 

6A00 

MAS6 

STA 

OUTBUF, Q 

BLANK OUTPUT BUFFER 

NU30 0100 




P0G87 

014E 







O, 

QiQ 1 

P0088 

QDFE 


INQ 

-1 


N030Q1Q1 

: O 

010 2 

PQ 089 

0171 


SQM 

MA37-^-l 

SKIP WHEN DONE 

NQ300102 


0103 

POObA 

18FB 


JMP^ 

MASS 


N03 j 0103 



010 4 



¥ 




N03i 0104 


Q 

010 5 

P0Q8B 

GAOC 

MAS7 

ENA 

0 


N0300105 

; O 

0106 

P008C 

68 0 0 


STA 

OBIX 

INITILIZE OUTPUT BUFFER INDEX 

N03C01Q6 



PO 06D 

0 Q88 








u 


MASnMl 


PAGE 4 


OATEJ 01/27/99 


010 7 

P008E 

C82E 


LOA^ 

VPL 

0108 

P008F 

09FE 


INA 

-1 

010 9 

PQD90 

A837 


AND^ 

START 

Oil Q 

PG091 

5834 


STA-^ 

CV 

0111 






01L2 

P00 92 

C335 

MASa 

LDA^ 

START 

0113 

P0 093 

5 80 0 


RTJ 

HEXM 


P009-f 

0GF7 




011-T 

PO 095 

DA 04 


ENA 

4- 

0115 

PO 096 

58 0 0 


STA 

OBIX 


Pu097 

0 0 7E 




J 11 6 






0117 

c’OOgB 

E82C 

MAS9 

LDQ^ 

CONVRT 

Oil 8 

P0 099 

5A4A 


RTJ- 

C3NTBL, Q 

0119 






012 t 

PCQ9A 

0828 


RAO-^ 

CV 

0121 

P009 8 

C82C 


LDA^ 

START 

D122 

P0G9G 

8821 


AOD» 

INCREM 

0123 

P0 090 

63 2A 


STA» 

START 

012^ 






012 5 

P009F 

C877 


LOA^ 

OBIX 

012 6 

P00 9F 

8827 


ADD^ 

DBJF 

0127 

PQOAG 

6 3 75 


STA’^ 

OBIX 

0128 

PGOAl 

C827 


LDA- 

NWQ3 

0129 

P0uA2 

G9FE 


INA 

-1 

013C- 

P00A3 

68 25 


STA^ 

NWOS 

0131 

PO uA4 

0116 


SAN 

MA311-'f-l 

0132 

POO A5 

C820 


LDA’ 

CV 

013 3 

PG0A6 

0 111 


SAN 

HAS 1 0-^-1 

0134 

P 0 0 A 7 

18 0 2 


JMF^ 

MASBY 

013 5 

P 0 0 A 3 

5867 

MAS 13 

RTJ^^ 

WRITE 

013o 

P00A9 

1C 0 0 

MASBY 

JMP 

(MAS) 


POO AA 

FF55 




0137 






0138 

P00A8 

C81C 

HASH 

LDA^ 

START 

0159 

POGAC 

099E 


INA 

-97 

0140 

Pu OA D 

0 135 


SAM 

MAS12-'^-l 

0141 

P G 0 A F 

5 8 61 


RTJ- 

WRITE 

0142 

POQAF 

D858 


RAO^ 

L3B 

0143 

POOBD 

0 8 44 


CLR 

A 

0144 

POOEl 

6816 


ST A"^ 

START 

014 5 

PO 0B2 

13 BO 


JMP-s^ 

MAS^ 

0146 






014 7 

P00B3 

C812 

HAS12 

LDA- 

CV 

0148 

P G 0 C 4 

98 08 


SU8'^ 

VPL 

0149 

P0QB5 

0101 


SAZ 

MASl3-^-l 

0150 

P00B6 

18E1 


JMP» 

MAS 9 

0151 






Li2? 

P00E7 

5858 

HAS13 

RTJ’^ 

WRITE 

015 3 

PGGB8 

18CA 


JMP- 

MAS5 

013 4 






015 5 






015 6 

PO GB9 

a 0 Qi 

CHAR 

BSS 

CHAR( 1) 


MASK FOR COLUMN POSITION IN A 

GIVES CURRENT NUMBER OF VALUES IN THE LINE 

SPECIAL ENTRY TO HEXO FOR LINE START ETC. 


N03: DID 7 
N0300108 
N03G 0109 
NGSDOlie 
N030 ulll 
NO 30 Oil 2 
N0300113 


SET INDEX FOR STORING OUTPUT DATA 


NU3jail4 
N3300 11 5 


CONVERT AND STORE DATA IN BUFFER 
INCREMENT NO. OF VALUES ON THE LINE 

SET INPUT BUFFER INDEX FOR NEXT VALUE 
UPDATE BUFFER INDEX 


SKIP IF MORE OUTPUT NEEDED 

SKIP IF PARTIAL LINE NAITING FOR OUTPUT 
DONE - EXIT 
EMPTY THE BUFFER 
DONE - EXIT 


N03uull6 
NOS j 0117 
N03J 0118 
N0300 119 
N03jG12G 
NQ32G121 
NO3G0122 
NQ300123 
N33G0124 
NQ3J0125 
N030 0 126 
N03Q 0127 
NG330128 
N03 00129 
NO 30 013 C 
N030U131 
NQ300132 
N030 0133 
NQ3aQ134 
N03uQ135 
N03Q 0136 


SKIP IF MORE DATA IN THIS SECTOR 

EMPTY BUFFER 

UPDATE SECTOR NUMBER 

REINITIALIZE INBUT BUFFER INDEX 


SKIP IF AT END OF LINE 


EMPTY BUFFER 


CHARACTER FLAG 0=LEFT 1=RIGHT 


N03ii 0137 
N03Q 0138 
N03Q 0139 
NQ30 0 140 
N0 33 G141 
NO 30 0 1 h2 
N03C0145 
N0 30 0144 
NQ3GQ145 
N030 0146 
N03D0147 
NO50 0 148 
N033 0149 
N0300150 
N03G0151 
NO 300152 
NQ3QQ153 
NG300154 
N0300155 
N0 30 0 156 




MASOHl 


PAGE 5 

DATE: Dl/27/99 


Q1p7 

POOBA 

G GDI 

WDIX 

BSS 

WOIX(l) 

WORD INDEX TO INPUT BUFFER - USER 

NQ30 Q 157 

Q158 

POflBB 

0 0 01 

TYPE 

8SS 

TYPEdJ 

DUMP TYPE 

N03G 0158 

ij 1 5 9 

POOBC 

0 0 01 

VPL 

BSS 

VPL (1) 

NUMBER OF VALUES PER LINE 

N0300 159 

0160 

POOBD 

oaol 

INCREH 

BSS 

INCREM( 1) 

INCREMENT BETWEEN SUCCESSIVE VALUE LOCATIONS 

NG300 160 

0 i □ 1 

PO OBE 

GO 06 

NUH 

BSS 

NUN (5 ) 

SCRATCH 

N0300161 

0152 

POOC^ 

0 0 01 

CONVRT 

BSS 

CONVRT Cl ) 

INDEX TO CONVERSION ROUTINE ENTRY 

Na300162 

0163 

PO GC5 

0 0 01 

CV 

BSS 

CVC 1) 

CURRENT NUMBER OF VALUES ON A LINE 
NUMBER OF POSITIONS PER FIELD 

N0300163 

016'^ 

P00C6 

0 0 01 

DBUF 

BSS 

0 BU F ( 1 ) 

N03Q0164 

0165 

P00C7 

0 0 01 

START 

BSS 

START (1 ) 

INDEX TO DISK INPUT BUFFER 

N0300165 

Q 1 6 6 

POOC8 

QGCl 

NWDS 

BSS 

NWOS (1) 

NUMBER OF WORDS LEFT TO DUMP 

N030Q166 

015 7 

poec9 

0 0 0 1 

FSTRF 

BSS 

FSr RT (1) 

FIELD START INDEX 

N0300167 

0153 



V 




N0300163 

0159 



♦ THE FOLLOWING TABLE CONTAINS OATA FOR EACH TYPE OF DUMP. 

NQ30Q169 

017 0 



^ ea:h 

ENTRY CONSISTS OF 

5 FIVE WORDS AS FOLLOWS, 

N03QQ170 

0171 







N03C0171 

0172 




WORD 

1 ASCII 

CHARACTER IDENIFYING THE DUMP 

NG3Q0172 

0173 




WORD 

2 NUNBER 

OF WORDS PER VALUE BEFORE CONVERSION 

N0300173 

017if 




WORD 

3 NUMBER 

OF VALUES PER LINE OF OUTPUT 

N033Q174 

0175 




WORD 

4 INDEX 

TO THE CONVERSION ROUTINE TABLE CCONTBL) 

N030 0 17 5 

0176 




WORD 

5 NUMBER 

OF BUFFER WORDS PER FIELD 

N 0 3 0 0 1 7 6 

0177 







N0 33 G177 

0178 

PGOCA 

D 0 ul 

DHPiab 

NUM 

£4l»l»3»0,2 

ASCII 

N830 0178 


POOCB 

0 0 0 1 







POOCC 

0 0 08 







POOCB 

U OOG 







PQOGE 

00 02 






0179 

POGCF 

0 Q 48 


NUH 

$48,1»8,h,4 

HEX 

N030 0179 


P u G Do 

0 OQl 







PGODl 

0 0 0 8 







PuOD2 

0 0 04 







PQ0D3 

0 0 04 






0130 

PO 0D4 

0 Q h4 


NUM 

$44,3,2, 8, 13 

DOUBLE PRECISION 

Na30G 180 


PO 005 

0 0 0 3 







P00D6 

0 0 02 







PO 007 

G fl 08 







POODS 

GOOD 






0131 

POO 09 

0 0 49 


NUM 

$49,1,3,12,^- 

DECIMAL 

N 0300181 


POODA 

0 0 01 







PGODB 

GO 08 







POODG 

u 0 OC 







POODD 

0 0 04 






0132 

PO ODE 
POODF 
POOEO 

0 0 53 
£0 02 
0 0 02 


NUM 

£53,2,2 ,16,13 

SINGLE PRECISION 

NQ300 182 


POQEl 

00 10 







P 0 U E 2 

GOOD 






0133 



-V- 




N0S00133 

013^ 



ENTRY 

TABLE TO CONVERSION ROUTINES 

N0300184 

0185 







Na33G135 

016 5 

P0QE3 

0 0 00 

CUNT3L 

NUM 

0 


N033 0186 

013 7 

PGOEh 

580 0 


RTJ 

ASCII 

ASCII 

N0300187 


P0QE5 

0 0 7E 





0138 

P 0 G E6 

ICFC 


JMP^ 

(^-3 ) 


N033 0 188 


M ASQMl 


OAGE 


o 


date: 01/27/99 



NQ3 j 0189 
NQ30Qi90 

WU330191 

N030Gi92 

N0300193 

N0300194 
N0300195 
NG30 0196 

NQ30Qi97 
N03 3 0198 
N030G199 

N03G u 20 0 
NO 30 0 20 1 
NG30 0202 
N03u0203 
N033 0 204 
N03j 0 205 
N030u20& 
N030 0207 
NQ30 0208 
N030 Q209 
Nu300 210 
N030 0 211 
N030 0 212 
N03Q0213 
N030Q214 
NQ3Q0215 
N0300216 

N030 0 217 
N030Q218 
N0300219 
NO 3 0 0 22 C 
N03UU221 
N030 0222 
NO 30 0 22 3 
N0 30 0 224 
NO 33 0225 
N0 33 0 22 6 
N039 0227 
N03UC228 
N03U 0 229 
N030 0 23 0 
N0300231 
N0300232 
NO 30 0 233 
N030 0234 
NQ30 0 235 
N030Q236 


O 

o 

o 

o 

o 

o 

1^) 

o 

0 

© 

€ 

© 

o 

o 

o 

o 

J 


MASQMl 


=>AGE 
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DATE: jl/27/99 



P0113 

0 0 00 




0 2 3 7 

PO 114 

0000 

LU 

NUH 

0 

0238 

P0115 

0 0 00 

OBIX 

NUM 

0 

0239 

PC116 

0 0 0 0 

ESS 

NUM 

0 

0240 



¥ 



0241 

P0117 

C8FB 

WRITEl 

LDA^ 

LU-1 

0242 

PG 118 

0101 


SAZ 

WRITE2-^-l 

0243 

P0119 

18FD 


JMF^ 

WRITEl 

02 44 

PQilA 

1CF4 

WRITE2 

JMP^ 

( WRITE) 

0245 






024 6 



* THIS 

ROUTINE CONVERTS 

0247 



V- 



0 2 48 

POllB 

OOGQ 

HEX 

NUM 

3 

0249 

POliC 

C890 


LDA^ 

WDIX 

0250 

PGllD 

63 AB 


STA^ 

FSTRT 

025 1 

PGllE 

Q8R4 


CLR 

A 

0252 

POUF 

689E 


STA^^ 

NUH 

0253 

PO 120 

OAFA 


ENA 

-5 

0 2 5 4 

P0121 

6890 


STA» 

NUM + i 

0255 






0 2 5 6 

PG122 

53 2 9 

HEX3 

RT J- 

GET 

0257 

P0123 

09CF 


INA 

-$3 0 

025 8 

PO 124 

0 121 


SAP 

HEX4-^-l 

0259 

P0125 

1 813 


JMP^ 

HEXIO 

026 0 

PC126 

0 822 

HEX4 

TRA 

Q 

0261 

PQ127 

OOF5 


INQ 

-$A 

02 52 

Pfll28 

0175 


SQM 

HEX405---1 

0 2 5 5 

PO 129 

G9F8 


INA 

-7 

0 2 6 4 

P012A 

Q0F8 


INQ 

-7 

0 2 5 5 

P012B 

Q17C 


SQM 

HEXlO-^-1 

0 2 5 6 

PG12C 

0DF9 


INQ 

-6 

02 6 7 

PG120 

016A 


SQP 

HEXlO-’^-i 

0 2 68 

P012E 

E88F 

HEX-^O 5 

LOQ--^ 

NUM 

0259 

P012F 

0FA4 


QLS 

4 

0270 

PO 130 

0 874 


EAQ 

A 

0271 

P0131 

688C 


STA^- 

NUM 

0272 

P0132 

D88C 


RAO-'*^ 

MUM + 1 

0273 

P0133 

C88B 


LQA^ 

NUM + l 

0274 

PQ134 

0112 


SAN 

HEX5-^-l 

027 5 

P0135 

C393 


LDA^ 

FSTRT 

0276 

PQ136 

1123 


JMP- 

4 0 » I 

0277 

= 0137 

18EA 

HEX5 

JMP^ 

HEX3 

02 78 

P0138 

58 0 5 

HEX13 

RTJ^ 

BACK 

0279 

P0139 

C8 84 


LDA- 

NUM 

023 0 

P 0 13 A 

ICEO 


JMP<^ 

(HEX) 

u2Si 



¥ 



0282 



^ THE 

FOLLOWING BACKS U 

0283 






u 2 3 4 

PQ 13B 

0 0 0 0 

BACK 

NUM 

0 

0285 

PQi3C 

C80Q 


LDA 

CHAR 


P0130 

FF 7B 




0236 

POISE 

0113 


SAM 

BACKl-'^-l 

023 7 

PQ13F 

D 8 0 0 


RAO 

CHAR 


PQl-rQ 

FF78 





OUTPUT BUFFER INDEX 


GET THREAD 
SKIP WHEN DONE 
WAIT 
EXIT 

HEX (ASCII) FIELD TO BINARY. 


SAVE FIELD START INDEX 

INITIALIZE CONVERTED VALUE 

INITIALIZE DIGIT COUNT 

GET A CHARACTER 
UNDER $30 CHECK 
SKIP ON NUN ERIC - HAYBE 
NOT NUMERIC 


SKIP ON DIGIT 0 THRU 9 


SKIP IF NON-NUMERIC 
UNDER $A7 CHECK 
SKIP IF NON-NUMERIC 
CONVERTED DIGIT IN A 


PACKED DIGIT IS STORED 


SKIP IF H OR LESS DIGITS 

FORMAT ERROR - BACK TO CONTROL PROGRAM 
CONTINUE 

BACK UP SCAN BY ONE 
RETURN 

THE STATEMENT SCAN BY ONE CHARACTER. 


SKIP ON CHARACTER = RIGHT 


N03a0237 
N03Q0238 
N033 0239 
N0309240 
N0330241 
N033 0242 
N033 0 2^*3 
N333 0 244 
NO 33 0 245 
N03D0 245 
Na3Q024? 
N03CG248 
NG300249 
N033 0 250 
N03D0251 
N03J0252 
N030Q 253 
NiJ33 0 254 
N03G G255 
N033 025b 
NQ33Q257 
N030 0 258 
N0330259 
NO 30 Q 26 u 
N033326i 
N033Q262 
N0330263 
N05G0264 
NQ33 0265 
N0300266 
N03Q0267 
NOS 0 0258 
N033 0 269 
N030 D 270 
N03QQ271 
NG3Q0272 
NQ3QQ273 
Nu330274 
NO 30 0 27 5 
NO 33 0 276 
N0300277 
N030 0 278 
N0300279 
N030 G 280 
N03QQ 281 
N030 0282 
N0300283 
N030 0 284 
N0300285 

N0300286 

N0300287 


date: Gi/27/99 


MASOHi 
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0288 

P0141 

C800 


P0142 

FF 77 

0 2 89 

P0143 

09FE 

0290 

PU144 

5 8 0 0 


P0145 

FF74 

0291 

PO 146 

1CF4 

02 92 

P0147 

0 8 44 

0293 

P0148 

6800 


P0149 

FF6F 

Q29t 

P014A 

ICFO 

0295 



0296 



0297 



0298 



0299 

PO 14B 

0 0 0 0 

0300 

P014C 

COGO 


P014O 

FF6C 

030 1 

PG14E 

E8 00 


P014F 

FF69 

0 30 2 

P0150 

0 151 

0 3 0 3 

PG151 

0FC8 

U 3 0 *+ 

P0152 

AQGA 

03 05 

P0153 

0146 

0 3 0 6 

PGlSw 

08 42 

Q30 7 

PG155 

4800 


P0156 

FF62 

030 8 

P0157 

D 800 


P0158 

FF61 

0 33 9 

PU 159 

ICFl 

0310 

P015A 

0800 


P015B 

FF5D 

0311 

P015C 

E800 


P015D 

FF5C 

0312 

P015E 

ODDA 

0313 

P 0 15F 

0 141 

0314 

poieo 

ICEA 

0 315 

P0161 

0 A 0 0 

0316 

P0162 

1128 

0317 



0316 



0319 



0 32 0 



0321 

P0163 

0 0 00 

0322 

Pu 164 

E8G0 


P0165 

FF61 

0323 

P0166 

CAOO 


PG 167 

0 0 92 

u32^ 

P0168 

E8 00 


P0169 

FFAB 

032 5 

PQloA 

6A6B 

G32& 

P016B 

1CF7 

0327 



03 2 8 




LDA WDIX 

INA -1 
5TA HOIK 


BACKl 


JMP- 

CLR 

STA 


(8AGK) 

A 

CHAR 


JMP^ (BACK) 


^ THIS SUBROUTIiME JNPACKS 
^ AND RETURNS IT A. 

GET NUH 0 

LDA (WDIX)»I 

LOQ CHAR 


GETl 


GET2 


SQN GETl-^-1 
ALS 8 
AND- $A 


SGIZ 

CLR 

STQ 


GET2-^-i 

Q 

CHAR 


RAO WDIX 

JMP^ (GET) 
RAO CHAR 

LDQ WDIX 


INQ 

saz 


•37 

OFLOW-^-1 


JMP^ (GET) 


OFLO<^ ENA 0 


JMP- 40,1 


SET TO LEFT CHARACTER 

ONE CHARACTER FROM THE INPUT BUFFER 

GET CHARACTER WORD 

CHARACTER FLAG u=LEFT 1=RIGHT 

SKIP ON RIGHT CHARACTER 

UNPACK CHARACTER 
SKIP ON LEFT 

UPDATE CHARACTER FLAG 

UPDATE WORD INDEX 

RETURN 

UPDATE CHARACTER FLAG 
TEST FOR BUFFER END 

SKIP ON INPUT BUFFER END - ERROR 

BACK TO BRKPTO 


^ THIS ROUTINE MOVES DATA FROM A WORD DiRfCTLY TO 
* THE OUTPUT BU'FER. NO CONVERSION IS NcCESSARY. 


ASCII 

NUM 

LOQ 

0 

START 


LOA 

INBUF,Q 


LDQ 

OBIX 

if. 

5TA^ 

JMP-5^ 

OUTBUF, Q 
(ASCII) 

^ THIS 

ROUTINE CONVERTS 


GET A VALUE FOR OUTPUT 

INDEX TO CURRENT OUTPUT BUFFER LOCATION 

STORE IN BUFFER 
THAIS ALL 

THE CONTENTS OF AN INPUT BUFFER VALUE 


N03C 0288 

N05C 0 289 
N0 30 0 290 

NQ300291 

N0300292 

NQ30029O 

NQ3Q0294 
N030 0 295 
N03DG296 
NQ3 00297 
N030 Q 298 
N0300299 
N0309300 

N0300 301 

N33UU 302 
N03003G3 
NO 3 u 0 30 H 
N 0300305 
N030 Q30b 
NG30 0 30 7 

N030 0 308 


N03Q 0 30 9 
N030 0 310 

N03Q0311 

N0300 312 
N030D313 
N033 D 314 
N0300 315 
N03QQ 316 
N9300317 
N0300318 
Nu3D 0 319 
NQ3 0 Q 32 0 
N0300 321 
ND30G322 

NQ3GG323 


NO 30 0 32 4 

N03J 0325 
N033 0 326 
NOS30327 
N0300 328 


I 


MASDMI PASE 9 DATE! Gl/27/99 



0329 

0330 

0331 



^ TO 4 

ASCII HEX DIGITS 

: AND STORES THEM IN THE OUTPUT BUFFER 


PO 16C 

0 0 0 0 

HEXO 

NUH 

0 



0332 

P016D 

E8 GO 


LDQ 

START 




POlbE 

FF56 





0333 

POloF 

CAOO 


LDA 

INBUF,Q 

GET VALUE FOR CONVERSION 

Q 


PG17J 

0 089 




033h 

P017i 

OC 01 

HEXMl 

END 

1 



033 5 

PD172 

4810 


STQ^ 

HNUM 

INITIALIZE COUNT 


03 3 6 

P0173 

0 8 42 

HEXOl 

CLR 

Q 

O 

0 3 3 7 

P017 4 

QFE4 


LLS 

•4 

GET 1 HEX DIGIT 

0 33 8 

P0175 

EA ID 


LDQ'> 

HEXCOM, Q 

LOOK UP ASCII 


0539 

P017& 

0FA8 


DLS 

8 


0 3 40 

PO 177 

4819 


sTa^ 

HNDM+1 


P' 

0341 

PQ176 

0 8 42 


CLR 

Q 



0342 

P0179 

0FE4 


LLS 


GET 2ND HEX DIGIT 


0 5 43 

P017A 

EA18 


LDQ^ 

HEXCDN, Q 

LOOK UP ASCII 


0 344 

PO 178 

F815 


ADQ^ 

HNUH41 

PACK 

o 

03 45 

PG17C 

4814 


STQ* 

HNUMbl 

0 3 4 6 

P017D 

E812 


LDQ- 

HNUM 



0347 

PO 17b 

ODFE 


INQ 

“1 



0348 

PO 17F 

0 174 


SQM 

HEX02-*^-1 

SKIP IF DONE WITH ALL 4 DIGITS 


0 3 49 

PO lac 

480F 


STQ^ 

HNJM 


0350 

P0181 

E8 OF 


LDQ- 

HNJM+1 



0351 

P0182 

48 OF 


STQ^‘ 

HNJMi-2 



0 35? 
0 3 53 

P0183 

18FF 


JMP^ 

HEXDl 



0 3 54 

POlPH 

C80D 

HEX02 

LDA^ 

HNUM + 2 

GET MOST SIGNIFICANT PAIR 


0355 

P0185 

E8 GO 


LDQ 

OBIX 



P0186 

FF8E 




o 

0355 

P0187 

D A 4E 


STA^ 

0UT8UF, Q 

STORE IN OUTPUT BUFFER 

0 3 5 7 

P0188 

C8 0d 


LOA» 

HNJH+1 

GET LEAST SIGNIFICANT PAIR 


035 3 

P0189 

6A 4D 


STA» 

OJTBUF41,Q 

STORE IN BUFFER 

o 

0 3 5 9 
035 0 

=>0 184 

ICEl 


JMP^ 

(HEXD ) 


0361 

P018B 

GO 00 

HEXM 

NUM 

0 

SPECIAL entry for LINE HEADERS ETC 


0352 

P018C 

t8 FE 


LOQ* 

HEXM 


0353 

P018O 

48 DE 


STQ* 

HEXD 

SET FOR NORMAL HEXO EXIT 

Qi 

0 3 5 4 
0365 

PO 18E 

13E2 

-Y- 

JMP^ 

HEXMl 



03 6 6 

O018F 

0 0 03 

HNUM 

BSS 

HNUM(3J 

SCRATCH FOR HEXO AND OECI 


0 3 5 7 






o 

0568 



^ HEX- 

ASCII 

CONVERSION 

TABLE 


0359 



>(■ 




0370 

PO 192 

0 0 30 

HEXCDN 

NUM 

$30 ,$31, $32 

,S33 ,$34, $3 5, $36, $37, $3 8, $39 



PQ 193 

00 31 




o 


P0194 

00 32 






PQ 195 

Q 033 







PO 19b 

0034 







P0197 

0 035 





o 


P0198 

0 0 36 






Pfll99 

0037 







PG19A 

0 038 







P019B 

QQ39 






NfliOu329 
NQ30 0330 
NO 30 0 331 
N03D 0 332 

N03D0333 

N0330334 
N03j 0335 
NQ30 0 336 
NQ3Q 0 33 7 
N0300338 
N03 j G 339 
N030 0340 
NO 30 Q 341 
N030 0 342 
NOS 00343 
N030 0344 
N0300345 
N0300 346 
N0330347 
N0300348 
N0300349 
NQ30035G 
NQ33 G 351 
N030 0 352 
N03G0353 
N030 0354 
N033 035p 

NQ330356 
NQ300357 
NO 3 J 0 35 8 
NQ33 0 359 
N030 0360 
Na3C0361 
Nfl330362 
NQ3iJ 0 363 
NQ300364 
N0300365 
N03u 0366 
N03D0367 
NQ3Q0368 
N030 0369 
N03 3 Q 370 


O 

O 

o 

o 

o 

o 

o 

L.- 

o 

Q 

O 

O 

O 

O 

O 





MASDMl 


^AG£ iC 


DATE: 01/27/99 


C' 

0371 P019C 00 41 NUM $ 41 , $ 42 , $4 3 , $ h- , $45 , $46 

PG 190 0 042 
O P019E 0 0 43 

P019F 0 0 44 
POIAO 0 0 45 
POlAl 0046 

o 


o 


C) 


o 


'i 


o 


o 


o 


o 


o 


o 


o 


o 


NQ30 0371 



i 

V..' 

D 



MASOMl 
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DATE: 01/27/99 



Q3 7:i 







NO 3 00373 



Q37h 



^ THIS 

ROUTINE 50N\/ERTS 

AN INPUT BUFFER VALUE TO 5 ASCII 

NG5Q0374 


o 

0375 



^ DE3IMAL DIGITS AMO STORES IT IN THE OUTPUT BUFFER. 

NQ 30 0 375 

0 

0376 







NQ3Q 0 376 


037 7 

PG1A2 

0 0 00 

DECI 

NUH 

0 


N030 0 37 7 



0 37 6 

P01A3 

E800 


LDQ 

START 


N0300378 




OQ1A4 

FF22 





N0300 379 

: 0 


037 g 

PQIA p 

CA54 


LOA^ 

INBUF, Q 

GET VALUE FOR CONVERSION 


0330 

POl Ad 

EO 00 


LDQ 

=NJ20S0 

SET FOR BLANK 

NQ30G38Q 




P01A7 

2050 





N03lj 0331 


O 

0381 

PG1A8 

0123 


SAP 

DECIl-'^-l 

SKIP ON POSITIVE NUMBER 

■ 0 

0382 

P01A9 

EO 00 


LDQ 

=N£2O30 


NQ300382 



POIAA 

2D30 








0383 

PO lAB 

0 8 64 


TCA 

A 

SET NUMBER POSITIVE FOR PROCESSING 

NQ3Q0383 


o 

0384 

PGIAC 

48 E2 

DECIt 

STO^ 

HNUM 

STORE MINUS SIGN OR BLANK 

N030 0 384 

■ 0 

0 38 5 

POIAO 

EOOQ 


LDQ 

=N55Q3Q 


N030 0385 



POIAE 

30 30 




SET ALL DIGITS TO ZERO 

N030038D 



0386 

POIAF 

4 8 E Q 


STQ^" 

HNJMfi 



033 7 

PO IBO 

48E0 


STQ^ 

HNUM+2 


NQ30 0 387 

r~'\ 


0 338 

POIBI 

0 8 42 


CLR 

Q 


N030 0388 



0 3 3 9 

P01B2 

3000 


DVI 

= N10 0 GO 


N03Q0389 




P01B5 

2710 





N03Q G 390 



039^ 

P01&4 

8 8 DA 


ADD- 

HNUM 


0 


D39i 

PG1B5 

68D9 


STA^ 

HNJH 

NUMBER OF TEN THOUSANDS PACKED 

NG300 391 


0 392 

P01B6 

0 814 


TRQ 

A 


N0300392 



0393 

P01B7 

0 8 42 


CLR 

Q 


NO 300393 


o 

0 39 4 

P01B8 

3000 


OVI 

=N10QO 


NO 3 Q Q 394 

■ ^ 


PQ1E9 

0 3E8 





N03C0395 


0395 

POIBA 

88D5 


ADD^- 

HNJMFl 

NUMBER OF ONE THOUSANDS PACKED 



0 3 9 6 

P018B 

QFG8 


ALS 

3 


NQ330396 



039 7 

PGIBG 

68 03 


STA- 

HN'JMFi 


N03j 0 397 

: 0 


0398 

PO IBO 

0 814 


TRQ 

A 


N030 0 398 


0 39 9 

POIBE 

0842 


CLR 

Q 


N0500399 



0^00 

PulBF 

30 00 


DVI 

= M1j 0 


NO DU 040 0 



0401 

POICC 

POiCl 

0 0 o4 
88CE 


ADD^ 

HNUM+1 

NUMBER OF ONE HUNDREDS PACKED 

NuSuO-tOl 

; 0 


0 40 2 

P01C2 

68 CD 


STA^ 

HNJM + 1 


N030 0 902 



0 4 0 3 

P01C3 

0 814 


TRQ 

A 


N03j04Q3 



040 4 

P01C4 

C 8 42 


CLR 

Q 


N053 0 40 4 

0 

o 

0 40 5 

P01C5 

30 00 


DVI 

= NiO 


NO 30 0 40 5 



POIC 6 

OOOA 





N0 30 0 40 b 



0 » 0 6 

PQIC ? 

88C9 


ADO^ 

HNUMF2 



o 

0 4 0 7 

P01C8 

0FC8 


ALS 

8 

NUMBER OF TENS PACKED 

N0 30 Q407 

; 0 

0 40 8 

P0iC9 

0 834 


AAQ 

A 

NUMBER OF ONES PACKED 

N0300 408 


0 4 09 

POICA 

68C6 


STA^ 

HNJM+2 


NQ3JU4Q9 



0410 






N0390410 


o 

0,11 

POiCB 

E8 00 


LDQ 

OBIX 


N03j 0 4il 

0 


POICC 

FF48 





N030u 412 


0 412 

POICD 

40FF 


STQ- 

I 




0413 

POICE 

OC 02 


ENQ 

2 


NQ3QG413 



0414 
0 L 5 

POICF 

CABF 

DECI2 

LDA^ 

HNUM, G 

STORE RESULTS IN OU TPUT . BUF FER 

NO 3 OG 4 I 4 

: 0 

■■J 

Pu IDO 

6B05 


3TA» 

OJTBUF.B 


NO 3 0 0 4 I 5 


u 4l 6 

PO IDl 

ODFE 


INQ 

-1 


N03u0416 


o 









0 

n 









0 










_ . .... . - -. 


- • — -- 
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PAGE 12 


OATE: 01/27/99 


/ 'i 


o 

0417 P01O2 
041B P01D3 
0-19 P0iu4 
0 4 2 0 

0421 P01D5 

0422 P01F9 
0 42 3 

, [14 2- Pu259 

0425 P025A 

0426 P025B 
0 4 ? 7 


0 171 
18FB 

ICCO DECI3 

0 0 24 OUTBJ- 
0050 INBUF 

OAaO DP 
1128 

18FU SP 


SQM DECI3-^-l 
JMP» DECI2 
JMP'’- (DECI) 

BSS OUTB’JF(3&) 
BSS INBJF(96) 

ENA 0 
JMP- h0,I 
JMP- OP 
END 


SKIP WHEN MOVE COMPLETE 
DONE 

OUTPUT BUFFER 
INPUT BUFFER - DISK 

FOR DOUBLE 

^Mf-^f-^^-HOOK FOR SINGLE 


PGH= 025CC 604) GOM=0300( 0) DAT=0000< 0) 


o 

o 

o 

o 

o 

o 

o 

(O 


PRECISION OUTPUT 
PRECISION OUTPUT 

o 

o 

o 
o 
' o 
o 
o 
o 
o 
o 



o 

MASOHl 

PAGE 13 DATE: 01/27/99 


o 

C' 




o 

o 

e:iuivalenges 



o 

o 

OEF.LINE NAME VALUE 

OCGi: I OuFF 

REFERENCED AT LINE NUMBER 
(0Q0255) GulHt 0-^12 


o 

o 




o 

o 




o 

. 

o 




O 

o 




■ o 

o 




o 

o 




■ 0 

o 




o 

o 




o 

o 




o 

o 




o 

o 




o 

n 




o 













O 

o 


HA SDMI 

PAGE 1« 



date: 

01/27/99 


c< 

o 

S Y M BO 

L S 









o 














DEF. LINE 

NAME 

ADDRESS 

RE- EREN 

CED AT 

LINE 

number 




- o 


0 010 

MAS 

GOOD 

0 136 









0 02 6 

MASl 

0014 

0 0 30 








o 

32 

MAS2 

OOIB 

3 0 28 







o 

00 5 5 

MAS2G1 

0 0 4 4 

0 0 52 








0 0 57 

MAS25 

0048 










0061 

MAS22 

004F 

0 C 66 








o 

QO 63 

MAS26 

00 52 

OOoO 







o 

Q 0 6» 

MAS3 

00 57 

00 65, 

0 071, 

0 073, 

0 0 7 





0077 

MASh 

0063 

0145 









009B 

MAS5 

008 3 

0153 








C) 

3 100 

MAS6 

0 0 86 

0 103 







' o 

010 p 

MAS? 

0 08 8 

3 102 








0 112 

MAS8 

0092 










Oil? 

MAS9 

0Q98 

3 150 








0 

j i c 6 

M A S 1 0 

Q0A8 

0 133 







o 

013 6 

MASBY 

00 A9 

0134 








0133 

MASll 

OOAB 

9131 









0 1 7 

MAS12 

QGB3 

0140 








o 

0152 

MAS13 

0037 

31<+9 







o 

015 6 

CHAR 

0089 

0014, 

0285, 

0 2 8 7, 

0 293, 

3 30 1 , 

030 7, 

0310 


Q15 7 

NDIX 

OOBA 

D 0 16 , 

0 249, 

0288, 

0290, 

0 30 0 , 

0 30 8 , 

0311 



0153 

TYPE 

QG8B 

j 0 2 0 f 

0 027 







o 

3159 

yPL 

aOBC 

0 035 , 

010 7, 

0148 





^ o 


0 16C 

INGREH 

GOBD 

0 0 33 , 

0122 







0161 

HUM 

OQBE 

■3 2 52, 

0 254, 

0 268 , 

0 271, 

0 272, 

0 273, 

0279 



0162 

CONVRT 

QOC ** 

0 0 37 , 

3 11?' 








Q163 

CV 

OOC5 

0110, 

D 120, 

0132, 

0147 




Q 


0164 

3BUF 

OOG 6 

0 0 39 , 

0126 







016 5 

START 

00C7 

0 0 56 , 

G109, 

0112, 

0121, 

0123, 

0138, 

0144, 0322, 0332, 0378 



9 1 b 6 

MWOS 

U0C8 

0 0 59 , 

0 128, 

0130 






o 

016 7 

PSTRT 

Q0C9 

0017 , 

0 0 61, 

0208, 
0 u 3 H t 

0 250 , 

0 275 



^ o 

0173 

DMPTAB 

OOGA 

0 0 26, 

0 032, 

0 036, 

3 033 




0 18 6 

C0NT8L 

OOE3 

3 118 









QZOi* 

COHCHK 

Q0F7 

U U ^ 1. 1 

0 0 4 4, 

0 04 7, 

0 05? , 

0210 




o 

D 210 

COM EX 

COFD 

1)207 






o 

0 214 

read 

0 OF t 

0 0 95, 

0229, 

0230 






3 217 

THUD 

0102 

3 224 









3 218 

LOGU 

U103 

0227 








o 

0219 

MOWDS 

QIQh 








■ o 

0 22 0 

INLOC 

010 5 

0 075 








D 221 

MSB 

010 6 

3 U 43 , 

0 U 5 3 , 

0 0 8d 






o 











c 

o 











o 












o 


I 

HASD^51 PAGE 15 DATEJGl/27/99 


o 



0222 

LS3 

0107 


3 224 

READl 

ulO 8 


0 22 7 

READ2 

QlOB 

o 

0 23 0 

READ3 

GlOE 


0 234 

WRI TE 

OlOF 


3 23 7 

LU 

0114 

O 

0233 

0239 

OEI X 

0115 

ESS 

0116 


0 241 

HRITEl 

0117 


0244 

WRITE2 

flllA 

O 

0248 

HEX 

UllB 

0 2 5 6 

HEX3 

0122 


0 260 

HEX4 

012 6 


0 268 

HEXh-0'5 

012E 

f 'r 

0 27 7 

HEX5 

0137 


Q 273 

HEXia 

0138 


0 28^ 

BACK 

013b 


D 292 

BACK! 

0147 


0 299 

GET 

GI 4 B 


■3 30 4 

GET 1 

0152 


3 310 

GET2 

U 15 A 


3 315 

OFL OW 

0161 

o 

0 321 

ASCII 

0163 

0 331 

HEXO 

016C 


0 334 

HEXMl 

0171 


0 3 3 6 

HFXOl 

0173 

o 

0 35'’ 

HEX02 

0184 

0361 

HEXM 

018B 


0 3 66 

HNUM 

018F 

o 

0 37 0 

HEXCON 

0192 

0 37 7 

DECI 

01A2 


0384 

DECIl 

QIAC 


0 -.14 

DEGI2 

OICF 

0 

0419 

DECI3 

0104 

0 ‘-r21 

OUTBUF 

0105 


0422 

IN8UF 

01F9 


0-.24 

rjp 

0259 

o 

3 42d 

5P 

025B 


o 

o 


o 

o 


0 U 45 , 
0 226 

0Q51 , 

0 0 55 , 

0 0 90 , 

G 142 

0225 

0223 

0081, 

0 082 , 

0 0 95 , 

0135, 

0141, 0152, 

0 0 23 , 

0 241 



0106, 0115, 

0 0 8 0 , 
0072 
0 2 43 
0 2 42 

0 08 5, 

0 089, 

0 094, 
0 0 58 , 



0280 

OQ 42, 
0 277 

0045, 

0048, 




Q2&2 
0 274 


0 259, 

0265, 

0267 



3 278 , 
3 286 

u 291, 

0294 


0 314 

0 0 63, 
0 3 02 
0 3 0 5 

O20b, 

0 256, 

0309, 



0 313 
0 187 , 

0326 




0190, 
0 364 

0359, 

0363 



0352 
0348 
0 0 87 , 

0 091, 

u li 3 , 

0 362 


] 3 35 , 

0 1 ' » 

0 34^ , 

0 345, 

u 3-t-o , 0 549 , 

0397, 
0 333 , 
0196 , 

U 1 » 
0343 
9 ^19 

0-02, 

u ■+ 0 b , 

u 4 0 9 , 0 41 4 


0 381 
3 418 

•\ t A V 


J ^ X! 

0 0 71, 

0078, 0100, 

0325, 0356, 0358, 

0 u 7 4 , 

0323, 0333, 

0 379 

0193 , 

0 42 6 


0199 




Q 


O 

0 2 44 • 

0125, 0127, 032-f, 0355 , 0^11 Q 

O 

O 

o 

o 

: 

G35U, 0 351 , 035h, 0357, 038h, Q38t, 0387, 0 390 , 0391 , 0395 

^ o 
o 

0415 ^ 

O 

o 

o 

o 


o 



MASQfU 


PAGE 

Id 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

A5:r I 

0321 

BACK 

3 284 

BACKl 

0 2 92 

D3JF 

015 4 

QECI 

3 377 

DECIl 

0384 

GET 

0299 

GETl 

0 30 4 

GET2 

0310 

HEXCON 

0 37 0 

HEXM 

0 361 

HEXMl 

0 3 34 

I 9 D E E i'l 

0150 

INLOC 

0 220 

LOGU 

0 218 

M A 3 i 2 

3147 

MAS13 

0152 

HAS 2 

0G32 

M A 3 p 

0 098 

MASS 

J 100 

HAS7 

3105 

NWDS 

015 6 

□ SIX 

0 238 

OFLOW 

0 315 

START 

016 5 

THU 9 

0 217 

TYPE 

0158 


date: ui/27/99 


S Y M B 

0 L S 





CHAR 

015 6 

COMCHK 

020 4 

COMEX 

0 210 

DECI2 

0 h1 H 

DEC13 

0-419 

DHPTAB 

0178 

HEX 

0248 

HEXIO 

G278 

HEX3 

0256 

HEXO 

0 331 

HEXOl 

0336 

HEX02 

0354 

LSB 

0222 

LU 

0 23 7 

HAS 

0010 

MAS201 

0 0 55 

MAS22 

0 06 1 

MAS25 

0 05 7 

HAS 8 

0112 

HAS9 

0117 

MASBY 

0136 

OUTBUF 

0421 

READ 

0214 

READl 

0 22 4 

VPL 

0159 

WDIX 

015 7 

WRITE 

0234 


CONTBL 

OL 86 

COMVRT 

0162 

CV 

0163 

DP 

0424 

ESS 

0239 

FSTRT 

0167 

HEXt 

0260 

HEX405 

0 26 8 

HEX5 

0 277 

HNUH 

0366 

I 

0 000 

INBUF 

0^22 

HAS! 

00 26 

MASIO 

013 5 

HASH 

0138 

MAS2 6 

0 0 63 

MAS3 

0 068 

MAS4 

0077 

MSB 

0 2 21 

NOWCS 

0219 

NUH 

0161 

READ? 

0227 

READS 

0 23 0 

SP 

0 426 

WRITEl 

0241 

WRITE2 

0 244 




EFSTOR 


OATEJ 01/27/99 


cool 
0002 
o: 03 
0 0 G -+ 
00 0 5 


0007 
0 0 0 8 
00 09 
0 3 1C 
0011 
0012 
0013 
uOl- 
0315 


0017 
00 18 
0019 
0u2u 
0021 
0 0 2 2 
0 0 2 3 
002 V 
00 2 5 
0 3 2 5 
00 2 7 
0 0 2 8 
0029 
00 3 0 
0 3 31 


NAM EFSTOR DECK-ID NU4 MSOS 5.0 

PROGRAM TO MOVE DATA TO MASS MEMORY ENGINEERING FILE 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 

COPYRIGHT CONTROL DATA CORPORATION 197b 


SUMHARY-llONOvCOflOl 
^NOL00002 
NQvG 0 0 03 
NQvOOOOA 
NGAj 0005 


^ THIS PROGRAM IS SCHEDULED BY EFOATA TO CAUSE RECORDATION OF 

♦ DEVICE ERRORS IN THE ENGINEERING FILE DATA AREA. THIS SEaUENCE 

^ APPLIES TO MON-MASS MEMORY DEVICES ONLY SINCE DATA FOR HASS 

^ MEMORY DEVIGESISSAVEdIn^ FLOPPY DISK - 1833-5) 

* PROGRAH^RU NS I IT^^illLL RECORD NEW HASS MEMORY ERRORS ON HASS 

if. M P M 0 P Y * 


«^^N0AU oao 7 
^N0400008 
•''^NQACiOOOD 
^NOAOO 310 
NOaOOOII 
N0400G12 
^^N0hC 0013 
^NOvOOQ14 
’^^NOhO 0 015 


S.* * >!• 9- if- ^ V- ^ -v- * ^^-?f-^^¥-»^N040 J 017 

-r K KI Ar-,r*« rNr-i—TUrTi JtMA/. 


THE ENGINEERING FILE EXISTS ON MASS MEMORY IN AN^AREA DEFINED 
THROUGH THE EXTENDED CORE TABLE. THt INITIALIZER ZEROS A 99 
SECTOR AREA ON MASS MEMORY, ONE SECTOR PER POSSIBLE SYSTEM 
LOGiSl UNItT each sector CAN HOLD UP TO 24 4 WORD ERROR DATA 
BLOCKS IN A PUSH DOWN STACK. EACH FOUR WORD BLOCK IS DEFINED 
AS FOLLOWS .... 

WORD 1--BITS 0-6 YEAR OP ERROR 

BITS 7-10 MONTH OF ERROR 
BITS 11-15 DAY DF ERROR 
WORD 2--MILITARY TIME OF ERROR 
WORD 3--BITS 0-7 ERROR CODE 

BITS 8-15 SECONDS 3F ERROR 
WORD ^--HARDWARE STATUS FOR ERROR, 


*NB4ja013 
^N04U3019 
*N0 40 0020 
-NOV00021 
^NOlOQOZZ 
^-NOLQOOZS 
^N04u 0 024 
^N04C fl 32 5 
^N04;.C02& 
^M0 -,:j 0 327 
^N040a 028 
^N.3 43 0 329 
»Na40 0 Q3D 


Sff.^ 999.9.9 99-9999 9 99 9 9 9 99 99 9 99 9 99 99 99 99 99 9 999 99 ■■!■ 9 9 99 99 99 99 999 999 99 9 99 9 9 9 9 '^■^ N 04 0 0 031 


o 

Q G 3 3 



PROGRAM EXTERNALS 


u 0 3 *» 



EXT 

M MtF 


0 3 3 5 



EXT 

EFOATA 


003 6 



EXT 

CEFDTA 

} 

Q037 



EXT 

BSYEFS 


0 0 3 8 



EXT 

EFCDVL 

o 

•s., / 

0040 



PROGRAM EQUIVALEN 


0041 

0 0 43 


EQU 

FIVE($43) 


0 0 42 

DOHA 


EQU 

AOISP (BEA) 


0043 

0 0 04 


EQU 

P(4) 


0 0 4*+ 

00C2 


EQU 

LUMH ($D2) 


0 3 4 5 

OQFC 


EQU 

LUGHNT(SFG) 


004 6 

0QE9 


EQU 

EXTBV4( $E9) 

o 

0 3 4 7 

00F4 


EQU 

AHDHI (BF4) 


HASS MEMORY ENGINEERING FILE DATA 

TEMPORARY EF DATA STACK 

QUANTITY OF ENTRIES IN EF DATA STACK 

EFSTOR BUSY FLAG 

EFDATA STACK OVERFLOW COUNTER 


NUMBER FIVE 

ADDRESS OF DISPATCHER 

PROGRAM PRIORITY 

ADDRESS OF LIBRARY LU 

ADDRESS OF COMMENT LU 

ADDRESS OF EXTENDED CORE TABLE 

ADDRESS OF MONITOR 


NO 40 0 033 
N3400034 
NQ430 G35 
N0400 036 
N040 Q 037 
N340 0 038 


NGh 0004Q 
N 0 4 ij 0 3 4 1 
NQ4U3342 
N3400343 
N0400044 
NO 40 0 04 p 
N 3 4 0 0 0 4 6 
NQ 43 0 047 


O 


EFSTOR 


PAGE 


? 


date: 01/27/99 


CO ^9 
0 05 0 
0 J 5 i 
0 9 52 
0 0 5 3 
0 0 5 4 
0 0 5 5 
Q055 
005 7 


* THIS SEGTIOM of THE PROGRAM WILL MOVE THE TEMPORARY ERROR ^N04p02Q 
•> STACK DATA FROM EFDATA INTO A TEMPORARY ARRAY. THE DATA 

^ FNTPIES AR*^ THPN MOV^D TO HASS MEMORY SINGLY FOR EACH OF THE __^^^^40 00p2 
^ MAXIMUM OF FIVE DATA BLOCKS. WHEN THIS IS DONE, THE STACK ENTRY^NOAj 0 053 
I rniJNTPR IS -XAMIMED TO SEE IF MORE ENTRIES HAVE ACCUMULATED *N04u0u?4 
^ SINCE'IT WAS moved: if more, HAVE BEEN ENTERED, THE PROCESS IS JNu|^a40p5 


0 J 5 9 
0 0 5 0 

C u 5 1 
b 0 5 2 

D Q 5 3 

0 0 5 4 
915 5 

0 1 5 tl 

03 5 7 
0 0 5 8 
0059 
0C7fl 
0071 

03 7 2 
0 j 7 3 
QG7- 

03 7 5 
0076 
0 J 77 
0 0 7 3 
0 3 79 
0 03 0 
0 3 3 1 
0 3 82 
00 8 3 
0 0 6 3 
00 3 3 
00 33 

00 3 3 
0 0 33 

0Q8i^ 
00 3 5 
0 j 5 fa 
0 0 3 7 


PQOOO 

C8FE 


EFSTDR 

NUM 

POUul 

6800 



S T A 

P 0 u p 2 

u OCE 




Pb U 0 3 

D 5G0 



II N 

P C 0 0 4 

C40 0 

X 


LDA + 

P00Q5 

7FFF 

X 



PG0C6 

684B 


BLOOP 

STA^ 

P 0 u & 7 

QG18 



ENQ 

POOO 8 

C60Q 

X 

MTT 

LOA + 

P0Q09 

7FFF 

X 



POOOA 

6AQQ 



STA 

PQ 00 B 

OOFS 




POOOC 

ODFE 



INQ 

POOuD 

0171 



3 OH 

POOCE 

13F9 



JMP^ 

PQQGF 

0 8 44 


ALLMOV 

CLR 

POOiu 

o 40 0 

X 


ST A + 

POOH 

0 0 05 

X 



P0 012 

0 411 0 



EIN 

P0G13 

6QFF 



STA- 

P0014 

C9Q0 


LOOPS 

LOA 

P 0 0 1 5 

0 OEE 




POOio 

0104 



SAZ 

PGfll7 

0133 



SAM 

pouia 

099B 



I N A 

PO 019 

0121 



SAP 

POO 14 

13 09 



JMP» 


■BC8FE 

PLOG 

0 


24 


TEFO ,Q 


ALLMOV 

MTT 

A 


0 

I 

TEFD, I 

LUERR 

LUERR 

-lOQ 

LUERR 


FIND OUT PROGRAM LOCATION 
SAVE IN RELEASE REQUEST 


SAVE NUMBER OF ENTRIES IN STACK 


SAVE FULL STACK 


^ _OGICAL UNIT ILLEGAL- 
LUERR FWRITE LJGMNT, NOE- 


CLEAR STACK ENTRY FLAG 


CHECK FOR PROPER LOGICAL UNIT RANGE 

ZERO IS ILLEGAL 
MINUS IS ILLEGAL 

GREATER THAN 99 IS ILLEGAL 
LOGICAL UNIT OK 

— OUTSIDE RANGE 1-99 

LUERR-1,MLUERR-LUERR-1,8 ,A,P,P,I,1,0 


PGOIB 

54F4 



POOIC 

0 044 



POOID 

0 0 33 



POGIE 

00 00 



POOIF 

18FC 



P0020 

0 0 08 



P0 021 

0179 



PG022 

14EA 

JMP- 

i ADIS P) 

P 0 0 2 3 

u C 1 4 

LOOP3A ENQ 

20 

P0024 

G6E9 

LDA- 

(EXTBV4) ,Q 

P0025 

3900 

ADD 

TEFD, I 

P0026 

GOOD 




N0430a59 

NO^tOOGSu 

NQ4D0061 
N04Q 0062 

N 0 40 0 0 6 3 
NO ‘^0 0 0 54 
NO 40 0 0 6 5 

Nu43 0 056 

N040fl067 
N04C0Q58 
N 0 40 0 0 59 
N043 0070 
N0400u7i 

N0400072 
NO-^3 0 073 
NO 4J 0 074 

N04a 0 075 
Nu4ju076 
N0430077 
NQ43 0 078 
NQ4Q 0 079 
N3 43 0 08 0 
N040 0 0 81 
N04C 0 082 
N 340 0 083 


POINTS TO lSB START OF EF DATA 
GET SECTOR OF MH EF 
ADO LU INCREMtNT 


N040 Qt3S4 
NG4Q0085 
N0400035 
N04<] 0 087 


EFSTO!? 


PAGE 


3 


date: 01/27/99 


PC027 
P 0 0 2 8 
PQiJ29 
PD02A 
P002B 
PQ02C 
PQ 02D 
PC02E 
P0 02F 
PO G 3u 
PO Oci 
P0G32 


PG033 
P0G3U 
PO 03 5 
PQ03d 
P 0 0 37 
P0038 
P0 039 
P0 03A 
PO i3oB 
P003C 
P 0 0 3 0 

POQoE 
PO 03F 
P 0 0 -+0 
POQAi 
pQQh2 
P 0 u A- 3 
P C 0 
P Q 0 ^ 3 


G9FE 
6813 
68 25 
0C03 
DOFF 
GBUO 
G 0D6 
6 A 0 0 
0 0 ED 
QOFE 
D171 
18F9 


54F4 
0 9 44 

0 0 09 
GOOD 
G8C2 
0 0 60 
QQEC 
Q 0 0 G 
00 00 

1 4EA 
0168 

5^F4 
OD 44 
G0 8 F 
0 0 0 0 
18FC 
G 0 OC 

G 1 41 
14EA 


POO'-b 
P00w7 
P 0048 
P0049 
P004A 
PU04B 
PO l4C 
POQ40 
P 0 0 4E 
P0G4F 
P005 Q 
P0Q51 
P0 052 
POO 53 
^0054 
P0055 
PO u5o 


5 *4 F “t 
Q0<44 

GO oe 

GOOD 
Q8C2 
0 0 60 
D 0 D5 
0 u 0 0 
G 0 00 
14EA 
0 0 0 0 
0 0 U G 
G 161 
18EA 
C 8 FC 
Q9FE 
0 111 


INA 

-1 

STA^ 

MMLSBA 

STA^ 

MMLSBB 

ENQ 

3 

RAO- 

I 

MOVETW LOA 

TEFO, B 

STA 

WEFO,Q 

INQ 

-1 

SQM 

OT 

JMP^- 

MOVETW 


SAVE IN DISK I/O REQUESTS 

MOVE FIKST ENTRY TO FRONT OF BUFFER 


P'i“HSD“VS«?<^gS??OT-l,S.FD-OT-l,96.B,P,P,I.l,0 


HUM 0 
MML3BA NUM 0 

JMP- (AOISP) . 

rnj SOP WQT SKIP IF NO ERROR 

ERROR FWRITE LUC''jNT,DON£-r_RROR-l»HERROR-£RROR-lfl2»A»P»PiI»i»fl 


JHP- (ADISP) WAIT FOR COMPLETION 

^ WRITE DATA BACK ON MASS MEMORY , ^ „ 

WDT FWRITE LUMM, CWDT-WOT-i , WEFU-WDT-1 >9 o,B,P', P»It 1 »u 


NUM Q 
HKLSBB NUM 0 

JMP- (AOISP) 
SCTR NUM 0 

TCEF NUM 0 

CWUT SQP NOE 

JMP^ ERROR 
NOE LDA^ TCEF 
INA -I 
SAN MORE 


WAIT FOR COMPLETION 

SKIP IF NO ERROR 

CHECK IF MORE STACK ENTRIES 

ZERO SAYS ALL DONE 


NO 4 : 0 088 
NO 40 0 03 9 
NU400G9G 
N04GGG91 
N0400G92 
N040 0 093 

N0400 09‘+ 

NQ4C 0 095 
N0400a96 
NG400 097 
N04 j 0 098 
NQ4&G 099 


EFSTOR 


PAGE 


date: Oi/27/99 


c 


o 

o 

L-' 

o 


0116 PDG5? 1807 

0119 P00E8 D8F7 

0120 P0059 68F7 

0121 POeSA C8F5 

0122 P0056 20 93 

0123 Pa05C 60FF 
012^ P0 0 5D 18B6 
0123 P0G5E 0500 

0126 P005F C4GQ X 
POObO 0011 X 

0127 PG061 0103 

0128 P0Gfa2 08 42 

0129 P00b3 48EC 
015G P0064 18A1 
0131 


JMP"- ENOCHK 
MORE RAO^ 3CTR 
STA» rCEF 
LDA-^ SCTR 
MUI- FIVE 
STA- I 
JMP^ LOOPS 
ENDCHK IIN 0 

LDA+ CEFOTA 

SAZ NOM3RE 


CLR Q 
3TQ^ SCIR 
JMP^f 8L00P 
Pu06? 640C X NOMORE STA+ 3SYEFS 


BUMP LOOP COUNTER 
RESTORE NEW STACK SIZE 
COMPUTE INDEX 


GO TO TRANSFER NEXT ENTRY 
SEE IF MORE STACK ENTRIES NOW 


CLEAR ENTRY 
INDEX COUNTER 
MORE ENTRIES SO LOOP 
CLEAR BUSY FLAG 


BACK THROUGH 


N0V30118 
N04G 0 119 
Nj 43 0 12 0 
N04t;012l 
N0i‘GO122 
N040 0123 
N 0 4 G D 1 2 9 
N093 C125 
N040G126 

NQ93U127 
N0900123 
Nu93 0 129 
N040Q130 
N040 0 13 1 


o 

o 

o 

o 


o 




O 




0 

0 

o 

o 

o 

o 


o 

0 

o 


o 

o 

o 

o 

o 



1 


\ 


o 


EFSTOR 


= AGE 


5 


date: Gl/27/99 


0133 






4 ^ ¥ V- ¥ V fg Q 4 Q 0 1 5 3 

013 A 




THIS 

SECTION TAKES 

THE NEW MASS MEMORY TABLE 

ENTRIES 

THAT ^NOLOOiSL 

0135 




HAVE 

ACCUMULATED SINCE THIS PROGRAM RAN LAST 

AND PUTS 

THEM ^N04QQi3 5 

0136 




IN THE HASS HEMORY 

EF DATA AREA. 


^N040G136 

0137 






0139 

= 0057 

0 Col 


EMC 

49 

MOVE MASS MEMORY ENTRIES 

INTO TEMP 

AREA N040Q139 

0140 

P0068 

C50 0 

X MRMM 

LDA + 

MME- , Q 



N040Q140 


P0Q69 

7FFF 

X 






0141 

P 0 Q oA 

6A67 


STA^^ 

THMEF,0 



NG40 0141 

0142 

°0 C6B 

GDFE 


INQ 

-1 



NG4Q0142 

01^5 

POGoC 

0171 


SQM 

HMM 



N0400143 

0144 

P0060 

18 FA 


JHP^ 

MRMM 



N04Q0144 

G145 

PQ 06E 

0 4 0 0 

MMH 

EIN 

0 



Nfl4QGl45 

0146 

P0 06F 

0 8 44 


CLR 

A 

INITIALIZE MM LOOP COUNTER 

N04D 0 145 

01,7 

POO V" 0 

68DF 


STA^ 

SCTR 



NO 40 0 147 

0148 

P007 1 

2 0 43 

ZLOOP 

HUI- 

FIVE 



N0400i4b 

0149 

PG072 

6QFF 


STA- 

I 

USE I-REG AS TABLE INDEX 


N04QD149 

015 G 

P0073 

C95E 


LOA» 

THMEF,I 

IS SLOT FILLED 


NO 4 GG 15G 

0151 

PO 074 

Gill 


SAN 

ACTIVE 

YES IF NON-ZERO 


N040 0 151 

0152 

P0075 

18 59 



DONE 

NO MORE ENTRIES 


NQ4C G 152 

0153 

P 0 0 7 6 

0C14 

ACT I\/E 

ENQ 

20 

POINTS TO LSB OF MM DATA 

BLOCK 

NU4D0153 

G 1 5 -i- 

PG077 

C6E9 


LDA- 

(EXT3V4 ) ,D 



NO 4 OOI 54 

0155 

.^0 0 7 8 

8959 


ADD-" 

TMMEF,I 

COMPUTE MASS MEMORY DATA 

ADDRESS 

NJ400155 

Q15b 

POO 79 

09FE 


INA 

-1 



Na400l56 

015 7 

P u 0 7A 

6800 


STA^ 

MMLSBC 

SAVE IN REQUESTS 


NO 4 G 0 157 

0158 

P0G7B 

53 3 A 


STA» 

MHLSBO 



NO 40 0 15 8 

0159 

P0Q7C 

OOFF 


RAO- 

I 

INCREMENT INDEX 


NO 4 D 0 159 

015G 

P00 7D 

CQFF 


LDA- 

I 



Nu4D 0 16C 

0151 

P0£7t 

68 OB 


3TA- 

1 3 A V £ 

SAVE INDEX 


N04G0161 

0152 



4 

READ 

DATA FROM MASS MEMORY 


NO4D0ib2 

015 3 



HHR 

FREAO LUHiH, CMMR-HHR-1 , SEED- HHR-1 , 96 , B , P, P , I 

^ 1 » G 

N04G0163 

015 3 

POO??' 

5 4 F4 







0153 

P008i3 

0 9 44 







0153 

P0081 

00 OC 








PG 082 

GOOD 







0153 

P0G83 

0802 







0153 

P 0 0 8 -r 

0 0 60 








PO Q 8 5 

0 0 AO 







015 4 

Pu 086 

0 0 0 0 


NUM 

0 



NQ 4 GOI 64 

015 5 

P0087 

OOQO 

HHLS3C 

HUM 

0 



N04G 015 5 

015 6 

P0088 

14EA 


JMP- 

(ADI3P) 

WAIT FOR COMPLETION 


ND4G 0166 

0157 

PO 089 

C 0 u 0 

ISAVF 

NUH 

0 



NQ40Q167 

0168 

PQ08A 

CO 00 

MMFLDP 

NUM 

Q 



NO 4 D 015 8 

G159 

PO G8B 

0 0 0 0 

QSAVE 

NUM 

fl 



N0400169 

017 0 

P008C 

0161 

CMMR 

SQP 

MHRDK 

SKIP IF NO ERROR 


N04j G 170 

0171 

P0080 

18B0 


JMP^ 

ERROR 



N040 0171 

0172 

PQ08E 

C8FA 

MMRO< 

LDA^ 

ISAVE 

RESTORE INDEX TO MM TABLE 


N04Q 0172 

017c 

PQC8F 

60 FF 


STA- 

I 



NQ40ai73 

0174 

PQ090 

OGGO 


ENQ 

0 



N04G Q 17 4 

0175 

P0091 

DAFB 

YLOCP 

ENA 

-4 

SMALL LOOP COUNTER 


NO 43 0 175 

0176 

P0092 

68F7 


STA^ 

M Mr LOP 



N040 0 176 


Ef STOR 


PAGE 


DATE! Ql/27/99 


o 

o 

o 


c 




c 

o 

o 

o 

o 


0177 

P0093 

hfiFY 


STO'^ 

QSAVE 

SAVE Q 


N a 4 0 0 1 7 7 

0l7d 

PQQ94 

CAO 0 

XLOOP 

EDA 

SEFD.Q 

LOOK AT MASS MEMORY BLOCK 


N040 0173 


P0095 

0 0 88 







0179 

PQ 0 95 

B93B 


EOR- 

THMEF,I 

COMPARE TO CORE BLOCK 


N043 0179 

0180 

P0097 

0 117 


SAN 

NXENTY 

SKI^’ IF NOT THE SAME 


NO 45 018 0 

0181 

PQ098 

D8F1 


RAO"^ 

MMFLOP 

INCREMENT BLOCK ENTRY COUNTER 


NOhOOISI 

0132 

P0099 

C8F0 


LDA^ 

M M- L 0 P 



N0400182 

0133 

P009A 

Qlll 


SAN 

8UMPX 

SKIP IF BLOCK NOT DONE 


NQ400133 

01 3h 

P 0 Q 9 B 

1825 


JMP<‘ 

A03NE 

4 WORD BLOCK IS SAME SO ALL NE 

W ENTRIES DONE 

NO 40 0 18 4 

0185 

PQ C9C 

ODQl 

8UMPX 

INQ 

1 

INCREMENT BLOCK POINTERS 


MQ400135 

0186 

P0 09D 

DOFF 


RAO- 

I 



N04j 013b 

0137 

P009E 

18F5 


JMP-> 

XLOOP 

LOOK AT NEXT ENTRY IN 4 WORD BLOCK 

Na40Q187 

0188 

P0Q9F 

E8EB 

NXEHI Y 

LDQ^ 

QSAVE 

RESTORE BLOCK POINT ERS--8L0CKS 

NOT SAME 

NQ4001B8 

0189 

PGOAQ 

C8E8 


LDA^ 

ISAVE 



N043 0 189 

0190 

POuAl 

60FF 


STA- 

I 



NQh j 0190 

0191 

P00A2 

OO Oh 


INQ 

4 

INCREMENT INTO NEXT MM BLOCK 


Na4oai9i 

0192 

P0QA3 

u A AO 


ENA 

-95 

CHECK IF ALL 24 MM ENTRIES CHECKED 

NQ40 0 192 

0198 

PQ0A4 

083h 


AAQ 

A 



N0h00193 

019-. 

P0QA5 

0121 


SAP 

NOSAME 

ALL MM BLOCKS CHECKED AND NONE 

HATCH CORE 

N0h0019h 

0195 

°d 0 A D 

18EA 


JMP^ 

YLOOP 

MORE 4 WORO BLOCKS TO CHECK 


N04J0195 

0196 

P00A7 

0C03 

NOSAME 

ENQ 

3 

SETUP AND i'lOVE NEW DATA TO MM 


N0h00196 

019 7 

P00A8 

CB29 

MDTFR 

LOA^ 

THMEF, 3 



NOhO 0197 

0198 

POG A9 

6A 73 


STA^ 

WEFDtQ 


. 

Njtij 019 8 

U199 

PG U AA 

ODFE 


INQ 

-1 



Na4Q0199 

020 0 

FOQAO 

G171 


SQM 

MMW 



N0hj020i] 

G2G1 

PuO AC 

18 FB 


JMP^ 

MOTFR 



NQ40a 201 

020 2 



¥ 

WRITE NEW entry TO 

MASS MEMORY 


N040Q202 

020 8 



HMN 

FWRITE LUMN.CMHW- 

MMW-1,WEFD-MMW-1,96,B,P,P,I, 1,0 


N0430 203 

02 08 

POOAD 

5hFh 







020? 

POOAE 

ODhh 







020 3 

PGGAF 

0 0 09 








POOBO 

0 G 0 0 







02 0 5 

PDOBl 

08C2 







0 2 0 3 

PQ0B2 

J QbO 








P00B3 

0 0 6E 







020-4 

P 0 0 B H 

0 0 0 0 


NUM 

0 



N0i*U 0204 

0205 

P00B5 

■0 0 00 

MMLSBD 

NUM 

0 



NO 40 0 20 5 

0 20 6 

PD0B6 

IhEA 


JHP- 

C ADIS P) 

WAIT FOR COMPLETION 


NU4 00206 

0 2 0 7 

P0GB7 

0 161 

CEfMW 

SQP 

MHW3K 



Nu4G02Q7 

020 8 

POOBd 

1885 


JMP* 

ERROR 

EXIT ON HASS MEMORY ERROR 


Nu40Q208 

0209 

P0QB9 

D896 

MHWO< 

RAO-^ 

SCTR 

SEE IF ALL ENTRIES IN CORE PROCESSED 

NU uO 0 20 9 

0 21.V 

POOBA 

E895 


LDQ^ 

3CTR 



Nuh0u21C 

0211 

PO OBB 

0AF5 


ENA 

-10 



NO^O 0211 

0212 

PCQBC 

Q 83A 


AAQ. 

A 



N04UG212 

0213 

POQBD 

D1G2 


SAZ 

ADONE 

SKIP IF ALL NtW ENTRIES MOVED 


N(J4JC213 

u2lu 

POOBE 

■j 3 1h 


TRQ 

A 

PUT SLOCK INDEX INTO A 


NG4j 0 214 

0215 

PGGBF 

1 8R1 


JMP-- 

ZLOOP 

GO CHECK NEXT CORE BLOCK 


N040u215 


o 


o 


C") 


o 


o 


u 


u 

o 

o 

o 

o 


I \ 



EFSTOF? 


PAGE 


7 


date: 01/27/99 


021 7 
0218 
Q219 
0 22 0 
0221 


0223 

022 4 

0225 
022 6 
022 6 

0226 
0226 

022 6 
0226 

322 7 
0 22 8 
0 229 

0233 

0231 

0232 


^ THIS SE3TIOV) CHECKS TO DETERMINE IF THE TEMPORARY HOLDING STACK ^N040 0 213 

^ FOR NON-MASS MEMORY ERRORS HAS OVERFLOWED SINCE THIS PROGRAM ^Ni]4J0 2i9 

^ RAN , AMJ IF SO, PRINTS AN ERROR INDICATION. ^NQ40u220 

If. If.:}, If. It- !}i ^ ^ l}■>^ ^ ^ ^ ^ ^ ^ ^ ^ V- ^ ^ ^ ^ V-'-l- ^ ^ ^ ^ ‘I- ^ ‘f- ^ ’I- ^ ^ ^ ^ ^ ^ hj a ZZ X 


POOCQ C4 0 0 X A DONE 
POOCl 7FFF X 
P00C2 0108 

* 

SERR 


LDA+ EFCOVL LOOK AT STACK HOLDING OVERFLOW COUNTER 

SAZ DONE SKIP IF NO OVERFLOW 

INDICATE STACK OVERFLOW _ ^ ^ „ 

F WRITE LUC M NT, CSERR-S ERR-1 , MS ERR- StRR- i ,9 ,A,P,P,I,1,0 


P00C3 54-F4 
P00C4 0DHt4 
P00C5 0007 
P00C5 0000 
P0QC7 13FC 
P00C8 0009 
P00C9 Q0C8 
PQQCA 14EA 
PO0C3 08 h4 
POQCC 6400 X 

PQOCD oaci X 
PO QCE 54F4 
POOCF 1801 
POGDO 0000 



JHP- 

{ ADISP) 

WAIT FOR COMPLETION 

CSERR 

CLR 
STA + 

A 

EFCOVL 

CLEAR OVERFLOW FLAG 

DONE 

RTJ- 

NUM 

(AMONI) 

$1801 

RELEASE MEMORY 

PLOC 

NUM 

0 



N04j 0 223 


N04Q 3 224 
NQ4G D 225 
N04J022& 


NO 40 0 22 7 
N04j 0 228 
NJ400229 

NG4Q 0 23G 
N04IJG231 
N04Q 0232 


EFSTOR 


PftGE 


8 


date; 01/27/99 


028 4 
0235 
023 6 


If. ^ 3 /. If. If. :j. if- ^ ^ ^ it- ^ ^ V- ^ ^ ^ ^ ^ ^ ^ ^ V- ^ ^ ^ ^ ^ ^ ^ V- ^ ^ ^ ^ ^ V- Lf. j 0 234 

* DATA AND MESSAGE BUFFERS ^N0t3D235 

V- ^ H- ^ V- ^ V-V^ V- V- ^ * =r- ^ ^ ^ -v -r- ^ #^T=-V'^^4f-¥-[vjg^Q Q236 


023 8 
0239 
0 240 

0241 

0242 
0 2 43 
02^4 
0245 
02 46 
0 2 47 

0248 

0249 
0 25 C 
0251 
02 52 
0253 
02 5'- 


POQDi G032 


P0103 0019 


POllC 0 0 0 m- 


0256 


0 2 5 7 


PQ12C 

POlSC 

P0181 

P0182 

P0183 

P0184 

P0185 

P 0 1 8 b 

P 0 1 8 7 

P0188 

P0189 

P018A 

P018B 

P018C 

PG180 

PQ 18E 

P018F 

P G 19 0 

P0191 

P0192 

P0193 

P019m 

P0195 

P019 n 

PU197 

P0198 

PQ199 

P019A 

PO190 

Pul9C 


0 0 60 
45^6 
5354 
4F52 
2 0 4D 
4153 
5320 
4D45 
mD 4F 
5259 
2 0 45 
52 52 
4F52 
m- 5 4o 
20 53 
5441 
4 3 4B 
2Q4F 
56 45 
5246 
mC4F 
5720 

4 5 46 

5 3 54 
4F5 2 
2 0 4C 
5520 
4552 
52 4F 
5220 


TMME= 

* 

>(■ 

TEFU 

tF- 

* 

WEFD 

4 


TEMPORARY AREA FOR MASS MEMORY ERROR ARRAY 
BZS TMMEF(5U) 

TEMPORARY AREA FOR NON-HASS MEMORY HOLDING STACK 
BZS TEFD(25) 

BUFFER FOR NEWEST ERROR TABLE ENTRY 
BZS NEFD{h) 

CURRENT MASS MEMORY EF ARRAY FOR A LU 


SEFD BZS SEF0{96> 

MERROR ALF 12, EFSTOR HASS MEMORY ERROR 


MSERR ALF 09, EF STACK OVERFLOW 


HLUERR ALF 8 , EFSTOR LU ERROR 


N040 0 238 
N040 0239 
N04Q0240 
N04D G 241 
NC4G 0242 
N04G0243 
NO 40 C 244 
N04Q 0 245 
N0400246 
NG4J 0247 
N04D 0248 
N043 Q 249 
NO 4 3 C 25 0 
Nu-tG 0 25i 
NO 4 C 0252 
N04D0253 
NO 4u 0 25 m 


NO 40 0 25 5 


N340025O 


N04j 0257 


Q19D 


413 ) 


= -jGOO 


0 0 0 3 


efstor 


pftse: 


9 


date; ui/97/99 


\ I 


r'l 

E Q U I V 

A L E N 

C E S 


c 

DEF .LINE 

NAME 

VALUE 


0 C L 0 

I 

OOFF 

( 0 U Li 2 5 9 ) 


0 U4l 

FIVE 

0043 

(000067) 

O' 

0 0 42 

ADISP 

uGEA 

( 000234) 


P 

0 0 0 4 

( 00 3 00 4) 


0 0 H 4 

LUMM 

0GC2 

(000194) 


0 D 5 

LUCMNT 

OOFC 

(000252) 

o 

o 

o 

0 046 

ENTeV4 

OOEg 

(0 00233) 

0 0 4 7 

AMONI 

00F4 

(0002^4) 


o 

( ’ ’t 

O 

O 

O 

o 

o 

o 


REFERENCED AT LINE NUMBER 


0 0 73 , 

0 0 92, 

0123, 

0149, 

015 9, 

G 16 0 , 

0122, 
0 0 84, 

0148 
0102, 
0 0 8 3, 

0105, 

0110 , 

0166, 

0 20 6, 

0GB3, 

0099, 

0 0 99, 

fl 10 -r , 

0 10 4, 

0u99, 

0107, 

0163, 

0 203 



0 0 83, 

0104, 

0226 




0 0 8b, 
3 230 

0 15‘+ 






’ O 

O 

C173, 018 6, 0190 

0107 , 010 7, 0163, 0163, 0203, 0203, 0226, 0226 

■ o 

r\ 

o 

o 

■ o 
o 

■ o 
, o 

o 

■ o 

■ o 

o 


C 









f \ 



FFSTOR 

=AGE 10 



DATE! 

01/27/99 


o 









o 

o 

3 Y M B 0 

L S 







o 


DhF . LINE 

NAME 

ADDRESS 

Rt-ERENCED AT 

LINE 

NUMBER 


■ o 


0C59 

EFSTOR 

GOOD 








0063 

BLOOP 

QQ06 

0130 






o 

G C 6 5 

MTT 

GQQ8 

0 0 69 





o 

0 0 70 

ALLMOV 

00 OF 

0 0 68 







DG 7it 

LOOPS 

QQ14 

0124 







0Q83 

LUERR 

0010 

00 75 , 

0 07c, 

0078, 

0 u 8 3 , 

0083 



3 0 8 5 

LOOPSA 

00 23 

0 0 79 





o 


Ol 93 

MOVETW 

0D2C 

0 097 






0 0 99 

OT 

00 33 

0 0 96, 

0099, 

0 099 





OlGl 

MMLSBA 

0D3E 

0 Q89 






o 

3 10 3 

COT 

GG3D 

0 0 99 





n 

010 4 

ERROR 

00 3E 

0109, 

010 4, 

Oil-, 

0171, 

0203 



010 7 

WOT 

0 0 A o 

0103, 

0107 , 

0107 





0109 

MHLSB3 

004E 

0 090 




0209, 0210 


C"’ 

Gill 

SCTR 

G05 0 

3 119, 

0121, 

Q129, 

ul47. 

I''’) 

0 113 

TCEF 

0051 

0 0 63 , 

0115, 

0120 





0 113 

CWDT 

0052 

•3107 







0 115 

NOE 

005^* 

0 U 8 ^ » 

0 113 





o 

3119 

MORE 

0058 

3 117 





: O 

012 5 

EMDCHK 

Q05E 

3118 






0131 

nomore 

0065 

0127 







0 iM-O 

MRMM 

00 6 8 

0144 






o 

0 li+5 

MMM 

uObE 

0143 





' o 

oma 

ZLOOP 

0071 

3 215 






0153 

ACTIVE 

0 076 

3 151 







Q163 

MMR 

0 0 7F 

3163, 

0163 






OibB 

MMLSBC 

00 8 7 

0157 





; O 

0167 

ISAVE 

0089 

3161, 

0172, 

0189 




0168 

MMFLOP 

008A 

0176, 

0181, 

0182 





C169 

RS AVE 

00 3b 

0177, 

0188 





o 

0 170 

3 MMR 

0Q8C 

0153 





O 

0172 

MMROK 

u08E 

0170 






017 5 

YLOOP 

0091 

0 195 







0178 

XLOOP 

0094 

0187 







0185 

8UMPX 

009C 

Q 183 





0 


3 188 

NXENT Y 

009F 

0 180 






019 6 

NOSAME 

0QA7 

0194 







0197 

MOTFR 

00A8 

Q 201 






o 

0 20 3 

NMW 

GOAD 

3 2 0 0 , 

G2G3, 

0203 



■ o 

0 205 

MMLSBD 

0005 

0 158 
0 203 






Q 20 7 

CMMW 

00B7 






o 









o 

o 









C) 




EFSTOR 


o 


0209 


0089 


0 223 

ADONE 

uOCO 

o 

3 226 

3ERR 

G0C3 

0 228 

CSERR 

OOCB 


0 23Q 

DONE 

u 0 C E 


0232 

PLOC 

UODO 

o 

0 241 

TMMEF 

OODl 

0 245 

TEFO 

010 3 


0 249 

HFFO 

one 


0253 

SEFD 

a 12 0 

o 

0 2 5 4 

MERROR 

0 18 0 

0 2 5 5 

'iSERR 

018C 


0 256 

MLUERR 

0195 


DATE! 01/27/99 


0207 
0 184 
0 226 
0 226 
0 1G4 
0 0 60 
0 141 
0 0 65 
0 0 94 
0099 
0 10 ^ 
Q226 
0083 


, 0213 

y 0 22 6 


a 15 0 , 
0 07 4, 
0107, 
0163, 


022-4 

u 15 5 , 
0 li 8 7 , 
0198, 
0178 


al79, 
Q 093 
0 203 


0197 


O 


EFSTOR PAGE 12 DATE: 01/27/99 

EXTERNALS 


OEF.LINE 

NAHE 

VALUE 

REFEREN3 

ED AT 

LINE NUMBER 

3 0 3 L 

MMEF 

Q0 69 

3140 



00 3 5 

EFOATA 

G009 

.3 0 65 



0 0 3 6 

GEFDTA 

0060 

Q U 6 2 » 

0 0 71 , 

0126 

0 037 

BSYEFS 

0066 

Q 131 



0 0 38 

EFC OVL 

uOCD 

0223, 

0229 



EFSTOR 


Pi\GE 13 


DATE! 01/27/99 


0 

A L 

P H A 

B E T I 

CAL 

SORT 

0 F 

S Y M B 

0 L S 

9- !?•■¥■ 


c 

ACTIVE 

0153 

ADI3P 

0 042 

ADONE 

0223 

ALLMOV 

0 0 7 0 

AMONI 

0047 


CEFDTA 

0 u 3 D 

CM HR 

3 170 

CM MW 

3 2 0 7 

CSERR 

0228 

CWDT 

0115 


E- STOR 

0059 

FNDCHK 

0125 

ERROR 

3 104 

EXTBV4 

0 0 46 

FIVE 

0041 

o 

LUCMNT 

•J QA5 

LUERR 

0 083 

LUHM 

U 0 44 

MDTFR 

0197 

MERROR 

u2b 4 

M4LSBB 

ulQ9 

M ML SBC 

0165 

MMLSBO 

0 205 

MMM 

014 5 

MMR 

016 3 


M3VETW 

0 09 3 

MRHM 

Q lAu 

MSERR 

0 2 55 

MTT 

0 0 6 5 

NOE 

Oil 5 


PLOC 

023 2 

OSAVF 

3 169 

SCTR 

0111 

SEFO 

0253 

SERR 

0 22 6 

n 

WEED 

0249 

XLOOP 

0178 

YLOOP 

0175 

ZLOOP 

0148 




o 

o 

o 

o 

I 

o 

o 

o 

I 

I 

o 


o 


BLOOP 

0 063 

BSYEFS 

0037 

BUMPX 

DONE 

U 23 0 

DT 

0099 

EFCOVL 

I 

0 00 0 

ISAVE 

0157 

LOOPS 

HLUERR 

0 25 6 

MHEF 

033 4 

MMFLQP 

MMROK 

0172 

MMW 

0 20 3 

MMWOK 

NOHCRE 

0131 

NOSAME 

0 196 

NXENTY 

TCEF 

0112 

TEFO 

0245 

TMMEF 


u 

o 


0185 

COT 

010 3 


0038 

EFDATA 

0 03 5 


0074 

LOOPSA 

QG85 


016 8 

MMLSBA 

0101 

' o 

0209 

MORE 

G119 

0188 

P 

QG43 


a 241 

WOT 

0107 



o 


o 

o 

o 

o 


o 

o 


o 

o 

o 


o 


00 Q 1 
00 0 2 
0 0 0 3 

0 J 0 T 

0 3 3 5 


00 0 7 
0 3 0 6 
0Q09 
ODID 
Dull 


EFLIST 


PAGE 


DATE; 01/27/99 


¥ 

>/■ 


NAM EFLIST DECK-ID Nu5 MSGS d.D 

PROGRAM T3 LIST INFORMATION FROM ENGINEERING FILE 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL systems DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGMI CONTROL DATA CORPORATION 1976 


N 0 5 3 0 3 0 2 
NQ5Q0 33o 
N050 0 30^ 
N053GQQ5 


V- 

* 


PROGRAM MILL PRINT DATA FROM THE ENGINEERING FILE IN 3 MODES. 
ALL SYSTEM LOGICAL UNITS (Q-REG. = 0) 

A SPECIFIED LOGICAL UNIT (Q-RcG. = 1) 

ALL MASS MEMORY UNITS (Q-RcG. = 2) 

THE 0-REGISTER ON ENTRY SPECIFIES THE OPERATION 


N 3 5 3 G u 0 7 
NbSOuuOO 
N0 53 0 00 9 
N0500Q10 
N050uull 


00 13 
0016 
03 1 5 


^ PROGRAM EXTERNALS 
EXT LOGIA 
EXT MMEF 


TABLE OF LOGICAL UNIT PDT ADDRESSES 
HASS MEMORY ERROR STORAGE 


N050U013 
N05j 30i-t 
NQ530Q15 


0017 

0018 
0 019 
0 0 2 0 
Q u 2 1 
0 3 2 2 
0 0 2 3 
uQ Z h 
0 3 25 
0G26 
0 3 27 
0 3 2 3 
0 3 29 
0 0 33 
0-31 



» PROGRAM 

EQUIVALENCES 

0 0 ^6 

EQU 

TEN ($45 ) 

GQQA 

EQU 

M30FF ($A > 

0 0 22 

EQU 

ZERO { $22) 

0 0F6 

EQU 

AHONI (BFh) 

0 0 FC 

EQU 

LUC.MNT ( $FC > 

0 0C2 

EQU 

LUMM ($32) 

0 0 06 

EQU 

M 0 0 0 F ( 5 ) 

0 0F9 

EQU 

EXTBV^i ($E9) 

OD 09 

EQU 

M0Q7F($9) 

0 0 FB 

EQU 

LI3TLU($F3) 

uOEA 

EQU 

AQISP (SEA) 

u 0 0 ^ 

EQU 

P ( + ) 

0 0 05 

EQU 

M0QG7 (5 ) 

0 0 0 e 

EQU 

EREQ5T ( 8 ) 


CELL CONTAINING IG 
SOOFF MASK 

CELL CONTAINING ZERO 
ADDRESS OF DISPATCHER 
COMMENT LOGICAL UNIT 
LIBRARY MASS ME.MORY UNIT 

sgqqf mask 

ADDRESS OF EXTENDED CORE TABLE 
$0Q7F mask 

STANDARD PRINT OUTPUT UNIT 
ADDRESS OF DISPATCHER 
PROGRAM PRIORITY 
$0007 MASK 
PDT REQUEST STATUS 


N05 j 0017 
Nu 5 3 i3 3 1 8 
NO 5 } 0 01 9 
NG503 320 
Nu500021 
Nu503022 
N053ua23 
NC53Q026 
N05 j 002 '5 
N05fl0026 
N053 0 0 27 
N353G02B 
N35J 0029 
MQ530G30 
N050G331 


0 0 33 

P 0 0 0 0 

C8FE 

EFLIST 

NUM 

$C3FE 

0 3 3 

PGOOl 

68 3 0 


STA 

P GMADR 


PO OC 2 

0123 




00 35 

P Q u u 3 

ofai 


QLS 

1 

0 3 3 6 

PG004 

lAQl 


JMP--'^ 

VECTOR, 

0 J 3 3 

POuO 5 

16u 0 

VECTOR 

JMF 

AL-LU 

P G G 0 6 

OD OD 


JMP 

ONELU 

GG39 

P00C7 

1800 



P 0 u 0 8 

0 120 



MMLU 

03 43 

PC339 

1800 


JMP 


PG OGA 

Cl 52 




U J 4 i 

0 0 4? 




THIS 

ROUTINE 


determine program l-GgATION 

AND STORE IN RtLEASE REQUEST 

VECTOR IS TABLE OF TWO WORD INSTRUCTIONS 
RRANCH TO PROCESSOR FOR SPECIFIED TASK 


ALL LOGICAL UNITS 

ONE LOGICAL UNIT 

ALL HASS MEMORY LOGICAL UNITS 


DETERMINES IF THt MASS MEMORY LU IS A FLOPPY DISK 


N053 0 333 
N05G 0 Q3L 

N35G 0 03 5 
N053 0035 


N35 3 0 0 3 8 

N053 u 339 

NQ5Q 0 OaO 

N05Q0061 

NJ5GG062 


EFLIST 


PAGE 


2 


OATEJ 01/27/99 


L.) 


O 

o 

o 

o 


0 0 '4 0 
0 0 4 4 

0 0 4 5 

0 0 46 POO 0 8 OBuO 
0. 47 PUUUC El 08 

0048 DOOUO 0F24 

0049 PQ OOE AQ 09 
0 0 50 cJuuuF uDBB 
0j5i POO 10 0151 
005? “OUli QAQl 
0u53 P0U12 IGF 8 




FLOPPY 


FLO FI 


I- SO, THEN A IS 
FROH MASS MEMORY 


SET NON-ZERO 
AS IF THE LU 


AND THE EROR STATUSES ARE REAON050Q043 


WASN'T A MASS MEMORY DEVICE 


NOP 

LDQ- 

QRS 

AND- 

INO 

SUN 

ENA 

JMP- 


EREQST, I 

M007F 

-68 

FL3P1 

1 

(FLOPPY ) 


SEE IF 1833-5 FLOPPY DISK 


1833-5 TYPE 
NOT A 1833-i 


CODE 


N 0530044 
N 05 0 0 U45 
Nl 150Q0 45 
N053Qij47 
NG5 u0G48 
N 0500 049 
Nu 50 0 350 
NQ5C 0 3 5 1 
N05Q 0 052 
Nu5G 0 053 


O 

O 






o 


o 

o 


o 

o 

o 

o 


o 


o 

o 


o 


o 


o 


C) 

o 

o 

o 

o 

o 

o 

o 



n 


EFLTST 


:=AGE 


3 


DATES 01/27/99 


y G 9 5 






0 3 5 o 




if. 



^NO 5Q 0 0 5 6 

0 u 5 7 





PRINT DA 

TA FOR ALL LOGICAL UNITS 

^N35G u 057 

0 0 5 S 







^N050a058 

0 0 5 9 




i/. 31. ^ ^ ^ 1/. 1/. >/. :f.3f.s). ^4 ?• -¥- 

^•’■^-^N0500959 

0 u 5 1 

PQG13 

C 40 C 

X 

ALLLJ 

LDAf LOGIA 

MAXI HUH SYSTEM UNITS 

Nu50 0 061 


PC014 

7FFF 

X 





0 0 5 2 

P0015 

68 0 9 



STA^ HAXLU 

SAVE MAX LU NUMBER 

N&50GQ52 

0 0 5 3 





PRINT LISTING HEADER 

NO 50 0 05 3 

£ 0 5 4- 




BIGH3R 

FWRITE LISTLU, 

ALOOP-BIGHOR-1 » HURl -BI GHOR- 1, 29 , A 5 P , P, 1 , 1 , 0 

N05u G 054 

0 0 5 4 

POOlu 

54F4 






006-* 

P0017 

0D-+4 






0 0 5 “ 

P0G18 

0 0 09 







PQ019 

0 0 0 0 






0 0 5 *+ 

PGOIA 

18F8 






0 J 54 

PO OIB 

00 ID 







PQQIC 

01E7 






OG 6 ? 

FCOlO 

14EA 



JHP- (ADISP) 

WAIT FOR COMPLETION 

N 0 5 0 0 0 5 5 

0 0 5 6 

P 0 U 1 4 

GO CO 


MAXLJ NUM G 

QUANTITY OF SYSTEM LOGICAL UNITS 

Nj50QC5o 

0 3 5 7 

^OGIF 

00 1C 


N28 

HUM 28 


N05u0 067 

Q 3 5 B 

P Q Q 2 0 

E 8 54 


ALOO = 

LDQ^ CURRLU 

GET CURRENT LU NUMBER 

NO 5 30068 

03 59 

Pu02i 

C 6 0 0 

X 


LOA+ LOGIA ,D 

GET PDT ADDRESS FOR INDEXING 

N Q 5 3 0 0 5 9 


= 0022 

00 14 

X 





Q 3 7 C 

PQ0 23 

oOFF 



STA- I 


NO 50 0 0 70 

0 3 71 

PQQ24 

C1Q3 



LDA- EREQST, I 

SAVE CLASS/TYPE CODES 

NQ5 00371 

00 7 2 

PG025 

6834 



STA"- RQ 


NO 51 OO 972 

0073 

P002o 

0F4B 



ARS 11 

ISOLATE CLASS CODE 

N350G 073 

0 0 7 4 

PQ027 

A 0 0 5 



AND- M00Q7 


NO 50 0 0 7 4 

Ou 7 5 

P0028 

09FD 



INA -2 

CHECK FOR MASS MEMORY 

N0500075 

0 0 7 5 

P0029 

56E1 



RTJ-^ FLOPPY 

DETERMINE IF DEVICE IS A FLOPPY DISK 

N0500075 

Q D 7 7 

P0Q2A 

682E 



STA- MMFLAG 

SET HASS MEMORY FLAG 

NU530Q77 

03 7 8 

POQ2B 

E8 00 



LOQ MHL'JS 

MASS MEMORY REQUEST 

Na500076 


P002C 

0 0 F8 






0079 

P0Q2D 

01 43 



SQZ NOTH HP 

SKIP IF NOT 

N 3 5 3 0 0 7 9 

OOSO 

P0G2E 

0 102 



SAZ NOTMHP 

SKIP IF MM LU 

NO 53 0080 

GOBI 

PQQ2F 

18 u 0 



JMP HANYLU 

GO TO BUM? COUNTER 

NO 53 0 u 81 


PO 03 0 

C ] 71 






D0B2 

P0Q31 

C828 


NOTM'1 P 

LDA- RQ 

GET REQUEST STATUS 

NC5 00082 

0 u 3 3 

PO 032 

0 F 44 



ARS 4 

ISOLATE TYPE CODE 

N05j0Q83 

0 3 84 

= 0 0 33 

A 0 Q 9 



AND- H0a7F 


N0 50 0 084 

008 5 

PO 0 34 

0 822 



TRA Q 

SAVE TYPE CODE 

N05Q 0 035 

008(5 

P0035 

Q9B1 



INA -NLJ 


N05S 0 086 

0087 

= 0035 

3 131 



3AH OKTYPE 

LESS THAN MAX TYPE CODE 

NO 5 0 0 08 7 

0 3 3 9 

P0 037 

0C4E 



ENQ HLU 

SET UP FOR MAX TYPE CODE 

NO 53 0 088 

QQ89 

PO 038 

0 814 


OKTYPE 

IRQ A 

RESTORE INDEX TO TYPE 

NO 5u 0 Q 3 9 

Ou 9 0 

P0039 

28E5 



HUI^ N28 

COMPUTE INDEX INTO LU MESSAGES 

N05G 0 090 

0 u 9 1 

P003A 

60FF 



STA- I 


N0500091 

C 3 9 2 

PO G3B 

UCIB 



ENQ 27 

MOVE 28 WORD BLOCK 

NO 530392 

0 3 93 

P003C 

CBiiO 


HOVH09 

LDA LUDESC,B 

MOVE MESSAGE INTO OUTPUT BUFFER 

N0500 093 


PQ030 

0 2 49 






009 , 

PQ G3E 

6A 00 



STA H0R2+13,Q 


N05Q 0 004 


P0G3F 

Q1E9 







u 



u 

o 

o 

o 

o 


o 

€ 

o 

o 

o 

o 

o 
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Q u 9 :? 

P 0 0 40 

ODFE 



INQ 

-1 


N05G 0095 

0 a 9 D 

PQQ41 

0 171 



SQM 

MDE SC 


N0530Q9O 

OQ 9 7 

P0042 

13F9 



JMP^- 

MOV M OR 


N050GQ97 

OG9 8 

P0j43 

C831 


MDESG 

LDA^ 

CURRLU 

GET LU NUMBER 

N050 0 093 

Ou99 

PO 044 

58 00 



RTJ 

HXDCU 

CONVERT TO ASCII 

N05 J 0 0 99 


PD 045 

01 83 







010 G 

PG04b 

6 8 U C 



STA 

HDR2+11 

SAVE IN MESSAGE 

No 50 u 10 0 


PUG-,7 

CIDF 







0101 




>)■ 

PRINT 

■ LU NO. AND 

DESCRIPTION 

N05G 0101 

Ul02 




PH0R2 

FWPITE LISTLU,G, 

HDP2-PH0R2-l,3 8,A,PtP »Itl tO 

NQ5GG102 

0102 

P0048 

5,F4 







0102 

PO 049 

0044 







0102 

P004A 

0 0 0 0 








P004B 

0 0 0 0 







010 2 

PG0 4C 

18FB 







0102 

P 0 0 hO 

0 0 26 








P 0 Q 4 E 

0102 







OIQ 3 





PRINT INFO HEADINGS 

NQ5u 0103 

010 ^ 




PHDR3 

FWRI IE LISTLU,CPHOR3-PHDR3-1,HDR3-PHDR3-1,31,A,P,P,I»1»0 

N u 5 G 0 1 0 4 

0104 

P0 04F 

5 4 F4 







0 1 0 u 

P0G5-: 

0 0 44 







01u« 

PC051 

oaoA 








P 0 0 5 2 

0 0 0 0 







OIOt 

=>0053 

18FB 







Olu - 

PC UP 4 

GOiF 








P0u55 

01F4 







0105 

P0356 

1 4EA 



JMP- 

( A3I3P) 

WAIT FOR COMPLETION 

NQSOGiO 5 

010 6 

PC 057 

00 QO 


HMCT9 

NUM 

0 


N 0 5 G 0 i 0 u 

010 7 

05B 

0 0 00 


MMFLAG 

HUM 

0 


NQdjuIOZ 

0103 

DO 059 

0 a OG 


RQ 

HUM 

3 


N050 Q108 

0109 

P0u5A 

68 JO 


CPH093 

LOA 

MMLJ3 

LOOK AT MASS MEMORY MODE 

N0500109 


P0G5B 

0 GCC 







0 1 1 L: 

POOpC 

Gill 



SAN 

MM 

SKIP IF MASS MEMORY 

N05Q 0 llu 

ail 1 

P0 050 

1818 



JMP* 

NO MM 

NOT MASS HEMURY 

NO 50 U 111 

0112 

PO Q5E 

0CF5 


MM 

ENQ 

-10 


N 05 0 G 11 2 

0113 

^ 0 a 5 F 

48F7 



STQ>^ 

HHGTR 

SET UP HASS MEMORY ERROR COUNTER 

N05u0il3 

011-+ 

POG&o 

C 0 0 0 

X 


LOA 

= XMM£F 

GET BASE ADDRESS OF TABLE 

NQ5JG114 


PQubl 

7p FF 

X 






0113 

P0Q62 

60 FF 



STA~ 

I 


N05 a 0 11 5 

Olio 

P0063 

C522 


LOO KM H 

LOA- 

(ZERO) , I 

GET LU ELEMENT OF TABLE ENTRY 

NO 5 i 0 11 6 

0117 

P0Q6- 

9 810 



SU8^ 

CURRLU 

IS LU SAME AS CURRENT LU 

N053Q117 

0118 

PO 065 

0104 



SAZ 

CURR 

SKIP IF EQUAL 

N0500118 

U119 

PQQ66 

GOFF 



LDA- 

I 


Nu5Guil9 

0120 

P0067 

0 904 



INA 

4 

NOT SAME -- ADJUST TABLE INDEX 

NG5u Q 120 

0121 

PG068 

50 FF 



STA- 

I 


N05a012i 

0122 

P 0 U 6 9 

1804 



JMP^‘ 

NOCURR 

GO BACK AnJ look AT NEXT ENTRY 

NOOu G 122 

0123 

PU06A 

DOFF 


CURR 

RAO- 

I 

BUMP TABLE POINTER 

N05GG123 

012-, 

P 0 0 6 8 

5800 



RTJ 

PDATA 

PRINT DATA 

N050 0124 


PQ 06C 

■j 0 F3 







012 '3 

PG06O 

03E9 


NUCURR 

RAO^ 

HMCTR 

TEN MM ENTRIES 

NO *5 a Q 12 5 

0126 

P Q 0 6 E 

G8E3 



LOA^ 

MMCTR 

ARE ALL CHECKED 

NQ500126 

0127 

P0G6F 

0 102 



SAZ 

ALL MM 

SKIP IF YES 

N053G127 

0128 

P0G7U 

GOFF 



RAO- 

I 

ADJUST INDEX 

NO 50 0 12 8 



o 

o 

o 

o 

r\ 

O 

O 

O 

€) 

O 

O 

o 

o 

o 


u 


i"'") 


r-) 
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O 

w 

0129 

P00 71 

18F1 


JMP^ 

LOOKMM 

LOOK AT NEXT MM 

N05j 0129 


0130 

P0072 

1800 

ALLMi 

JMP 

NXTLU 

LOOK FOR NEXT LU 

N05G013G 


n 


F0073 

Q02A 






O 

0131 

P0074 

0 0 01 

CURRLU 

NUM 

1 


N050 0 131 


0132 

Pu 075 

0C14 

NOHH 

ENG 

20 

POINTS TO LSD OF MM DATA BLOCK 

N050D132 



0133 

POO 7b 

C6E9 


LDA- 

1 EXT8V4) ,Q 

GET SECTOR OF DATA ON MM 

NO 5 0 013 3 


O 

013^ 

P 0 0 7 7 

68FG 


ADD- 

CURRLU 

COMPUTE SECTOR ADDRESS FOR CURRENT BLOCK 

N050 0 13 -* 

o 

0135 

P0G76 

0 9FE 


INA 

-1 


N05QQ13 5 


013t. 

POO 79 

6 8 09 



MMLS3 

SAVE IN REQUEST 

NU53Q136 



013?’ 




READ 

DATA FROM HASS MEMORY 

N050 0 13 7 


o 

013 a 



HMDTA 

FREAD LJMMiCMMDTA 

-MHDTA-i,C0ATA-MMDTA-l,96,B, P, P,I,1, a , 

N050 0138 


015 d 

^007A 

54F4 








0136 

P007B 

G9 4h 








u 138 

PG07C 

0 0 09 







o 


P0 070 

COOQ 







0138 

P0G7E 

G8C2 








0138 

P u 0 7 F 

0 0 60 









P 0 0 8 0 

0 0 37 







.''V 

i \ 

0139 

PO 081 

0 0 00 


NUH 

0 


N^5agi39 

o 


014 0 

PO 082 

3 0 0 0 

MHLS3 

NUM 

0 


N35d 01-+U 


Qli-i 

P U G 8 5 

14EA 


JMP- 

UDISP) 

WAIT FOR COMPLETION 

N 0 5 0 0 1 4 1 



li 1 42 

P0 084 

0 169 

CMHDTA 

SQP 

LX 

SKIP ON NO ERROR 

NQ5Q0142 


1^**' 

, ) 

0143 



V- 

HASS 

MEMORY ERROR 


N0500 143 



0144 



ERRNM 

F WRITE LUC'iNT,FINISH-ERRHi1-l,MERRMH-ERRHM-l ,1 1, A , P t P ^ , 1 , 0 

NO 500144 



0144 

P0Q8 5 

5hF4 








01-*-+ 

PG086 

Q D -t4 








014-r 

P0087 

0 0 8C 






j’ 


P00B8 

0 0 u 0 








0 1 

c’GG89 

18FC 








014-. 

»CG8A 

C 0 OB 







o 


? 0 0 8 B 

OIDD 






; o 

014 5 

P 0 G 8 G 

14FA 


JHP- 

CADI3P) 

WAIT FOR CO MPLETION 

N0500 145 


0146 

PQ08D 

0 0 0 0 

MCTR 

NUM 

0 


N050014b 



014 7 

P 0 0 8 E 

5801 

LX 

RTJ^ 

FOWWA 

COMPUTE absolute ADDRESS 

N05QQi47 


o 

0146 

P008F 

GOOD 

FOWWA 

NUM 

Q 


N05 J 0 148 

■ 0 


0149 

P0G9G 

C8FE 


LDA^ 

FOWWA 


N0500149 


y 150 

P0C91 

80 00 


AOD 

=XC9ATA -FOWWA 


NG50015D 




PG092 

0 023 







U 

0151 

P0093 

60FF 


STA- 

I 

SAVE ADDRESS BASE 

N05G0151 

: 

015 2 

PO 094 

0CE7 


ENQ 

-24 

24 ENTRIES 

N050 0 152 


015 3 

P u 0 9 5 

48F7 


STQ«^ 

MCTR 


NG5Q0153 



u 1 5 1 

P 0 0 9o 

58 00 

GPDATA 

RTJ 

PDATA 

WRITE DATA LINE 

N05G u 15 4 


0 


PO 097 

00C8 






O 

0155 

P0093 

DOFF 


RAO- 

I 

ADJUST INDEX 

NQ53Q15 5 


015 6 

POy 99 

nSF3 


RAO^ 

MCTR 

SEE IF ALL 24 ENTRIES DONE 

NO b 0 G 1 5 D 



0157 

P009A 

C8F2 


LQA^ 

MCTR 


NQ5l1015 7 


o 

0158 

P009B 

0101 


SAZ 

NXTLU 

ALL DONE IF ZERO 

N050 0 158 

C'. 

015 9 

poogc 

18F9 


JMP"^ 

GPDATA 

DO NEXT ENTRY 

N0500159 



016G 

P009D 

G800 

NXTU 

LDA 

ONELJF 

WAS REQUEST FOR ONE LU ONLY 

NO 5 0 0 16 0 




P009E 

0088 







pi 

0161 

PO 09F 

0101 


SAZ 

MANYLU 


NObOOioi 

- o 


0152 

POOAU 

18 OA 


JMP^ 

FINFRH 

ALL DONE 

N0500162 


016 3 

PDUAI 

08 0 0 

HANYLU 

RAO 

CURRLU 

LOOK IF ALL DONE 

N0500163 



PC0A2 -FDl 


O ^ O 

LJ ■ U 











0 
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o 

G t 5 

PQ0A3 

C3uO 


LDA 

MAXLU 

NG50 0 16 4 

0 



POOA 4 

FF79 






o 

016> 

P0DA5 

98G0 


SUB 

CURRLU 

N 3 530165 



POOA 6 

FFCO 







015 6 

P 0 0 A 7 

G132 


SAM 

FIN-RM 

N05001S6 



0157 

P00A8 

1800 


JMP 

ALOOP MORE TO DO 

N053 0167 


o 


P00A9 

FF76 





0 

0158 




END 

OUTPUT WITH TOP OF FORM 

N053 0168 


015 9 



FINF9M 

FWRITE LISTLU,FINISH-FINFRM-1 ,HDRl-FIfiFRM-l,l,A,P,P,I ,1»0 

NG53 G 169 



0169 

POOAA 

5 4 F 4 






o 

Cl 5 9 

PC GAB 

0 0 44 





0 

0159 

POCAC 

3 0 67 







PGGAD 

GGOO 







0159 

POGAE 

13FB 






o 

0159 

PGQAF 

0 0 01 





0 


POOBO 

01 53 






017C 

pooni 

14EA 


JMP- 

(AQI3F) WAIT FOR COMPLETION 

N05GQ17Q 



0171 

PG0E2 

u 0 60 

CDATA 

BZS 

CDATA (96) 

N053 Q171 


r*^\ 

0172 




PRINT COMMENT TO OPERATOR ON COMPLETION 

N13 53 G172 

n 


0173 



FINISH 

FWRITE LJCMNT,HEND-FINISH-1 ,MSGEND-FI,NISH-l,9f A ,P,P,I,1»0 

N05QQ173 


0173 

P0112 

5 4 F 4 







0173 

PO 113 

0 D 44 







0173 

POllA 

0010 








P0115 

0 0 0 0 







0173 

POllo 

18FC 







0173 

Pull7 

0 0 09 






0 


PQ118 

0 0 0 7 





- 0 

bl.7 H 

P0119 

1 4EA 


JMP- 

(A9I3P) WAIT FOR COMPLETION 

N053 0 174 


017 3 

PQllA 

4 C 49 

MSG END 

ALF 

9, LISTING COMPLETED 

N0500175 




POllB 

5 3 54 






o 


PQllC 

4 9 4 E 





0 


POllO 

4720 







POllE 

4 3 4F 








POUF 

4D50 






o 


PQ120 

4C45 





0 

Si--' 


PQ121 

5445 







P0122 

442 0 







Q17c 

P0123 

5i+F4 

MEMO 

RTJ- 

(AMONI) RELEASE CORE 

N'3 53 0 1 76 


o 

017 7 

3C120 

18 01 


NUM 

3 IBOi 

NG530177 

0 

017 8 

P0125 

0 0 L: 0 

PGMA3R 

NUM 

•3 

NQ500178 


0179 

P0126 

0 0 u 0 

ONELJF 

NUM 

0 

N050G179 


0 

ul8D 

P0127 

u u 0 Q 

MHLU3 

NUM 

0 

NO 53 0 180 

; 0 

P'1 








0 

o 








0 

o 








0 

o , 








■ 0 











eflist 


PAGE 


7 


date: 01/27/99 


0182 

0183 

OIBh 

0135 

0136 


Qlbd 

018 9 
0189 
0189 
0189 

0189 

Q139 

019 0 
0191 


0192 

0192 

0192 

0192 

0192 

0192 

019 3 
019* 
0195 
019b 
U1 9 7 

0198 

0199 

020 0 
020 1 
020 2 
0 2 0 3 
020 -1 
0 2 G b 
0206 
0207 


# ^NQ500183 

^ PRINT \i k 1 h FOR ONE LOGICAL UNIT ^N 0500 18 4 

‘f- •'^N05Qul85 

^ .^L -y, ^ ^ ^ 2f ^ ^ ^ ^ -y. J^. ^ ^ ^ ^ -Y* •¥■ ■v *f -A Ar V V V >^r V 0 1. B 6' 


P0128 38F0 

P0129 5hF-4 
P012A 0044 
F012B 0013 
P012C GGDO 
P012O 18FC 
P012E 00 OC 
P012F 0007 
P0130 14EA 
P0131 h54E 
P0132 5445 
P0133 5220 
P013-^ 4ChF 
P0135 47h 9 
PO 136 43 41 
P0137 4C20 
P0138 55^E 
P0139 495t 
P013A 2028 
P013B 5858 
P013G 2920 

P013O 54F4 
P013E 0 9-4 
Pul3F 0009 
P0140 0300 
Pul4i 18FC 
PQ142 0001 
P0143 0007 
P01‘+4 l^-EA 
P0145 0000 
P0 14O 0 0 GO 
P0147 0161 
P0143 18E0 
P01h 9 C3FB 
POl^A 987B 
P014B 08 42 
POI 4 C OFE8 
POIhD QFC8 
P014E 68F7 
P014F 0814 
P0150 2046 
P0151 88F4 
P0152 6800 
P0153 FF2Q 


onelj rao-'^ oneljf set one lu flag 

GETLJ FWRITE LU ON N T , AS KC- GE TLU-1 , A SKMSG-G ET LU-1 , 12 , A , P , P , I , 1, 0 


JMP- (ADISP) 

ASKM3G ALF 12, ENTER LOGICAL UNIT (XX) 


ASKC FREAO LUO MN T , R EA D LU- A SKC-1 , L UBUF-ASKC -1 , 1 1 A , P ,P , 1 , 1 , 0 



JMP- 

(ADISP) 


LUBU^ 

NUM 

0 


UNIT 

NUM 

0 


READLU 

SQP 

LUROOK 

SKIP IF NO ERROR 


JMP^ 

GETLJ 

TRY AGAIN 

LURD3K 

LDA^ 

LUBUF 

REMOVE ASCII BASE 


SUB^ 

N3D3Q 


CLR 

Q 



LLS 

8 



ALS 

8 



STA^ 

UNIT 

SAVE UNITS 


TRQ 

A 



iUI- 

TEN 



AOO^ 

UNIT 

COMPOSE LU NO. 


STA 

CURRLU 



N050G188 

N050G189 


N05U0190 
N050 0 191 


N050G192 


NQ500193 
NQ50 0 194 
N050G195 
NOB J a 196 
NOS 0 0 197 
NQ500198 
N050Q199 
NO 50 u 20 0 
NO 5 0 02 01 
N05Q02G2 
N050 u 203 
NO 5 0 Q 20 4 
N05'j 0 20 5 
N05 0 0 20 6 
NQ50Q207 



o 

o 

o 

o 

o 


o 

C") 


o 

N053 0 23 8 

Nu 5 j '3 209 O 

NQ50 0 210 
NOS j 0 2li 

NC 5 D 0212 ^ 

N 05 t 0213 O 

CJ 


O 


r~\ 

V.-- 

O 

O 

O 

o 

o 


o 

o 

o 

o 

o 


EFLIST 


PAGE 


DATE? 01/27/99 


bZl5 

0216 

0217 

Q21B 

0219 


0221 P015C D8CA 
u222 P015D 1800 
P0l5t FED4 


> -w -v -V • 


^N05j 0216 

DATA FOR MASS MEMORY UNITS ^N 05 00 21 7 

0 5 0 0 21 3 

if. ^ .-f-il-ill. li-if. If. If >1. ^ <S- ^1/. ^ ^ V'V- ^ ^ S i Q 21^ 


^ PRINT 


MHLU RAO^' HMLJS 
JMP ALLLU 


SET HASS MEMORY FLAG 


N0500221 
N050 0222 


u 

('*') 

o 

o 

,'Ti 

Q 

O 


o 

o 

c 


o 


o 




o 

o 

Qi 

G 

O 

n. 

O 

o 

Q 

O 

o 

o 


EFLIST 


PAGE 10 


date; 01/27/99 


0? ? 4 





0225 






0226 




DAT 

A p R : 

0 22 7 






022 6 





32 3 G 

PG 15F 

OGGO 

POAia 

MUM 

0 

0231 

POlbJ 

E522 


LDQ- 

(ZERO) , I 

02 3 2 

POlbl 

0 1 54 


SQN 

ISDATA 

0233 

P0162 

COFF 


LDA- 

I 

023 4 

P0163 

09 03 


INA 

3 

02 35 

p 0 1 5 4 

60FF 


STA- 

I 

023 6 

P0165 

1GF9 


JMP^ 

(POATA) 

023 7 

PO 16 6 

0 8-4 

ISDAIA 

CLR 

A 

023 8 

P U 1 6 7 

QFE5 


LLS 

5 

02 39 

PQ1d3 

5860 


RTJ^ 

HXDCU 

024U 

P0169 

EO CO 


LDO. 

=N52023 


P016A 

20 20 




0241 

P01&3 

0FE8 


LLS 

3 

0 2 42 

P016C 

483F 


STQ- 

0BUFF44 

024 3 

PQloD 

683F 


STA^ 

0 BU FF + :> 

024-r 

PG16E 

E522 


LDQ- 

(ZERO) ,I 

0245 

PC16F 

0 8 44 


GLR 

A 

j24o 

PQ 17u 

0FE9 


LLS 

9 

0 2 4 7 

P0171 

AQ 06 


ANO- 

MQQOF 

0 2 40 

P0172 

Q9FE 


INA 

-1 

02 49 

P0173 

OFCl 


ALS 

1 

0 2 5 0 

PO 1/ 4 

0822 


TRA 

Q 

0251 

P0175 

GAOQ 


LOA 

MONTH, 0 


P 0 1 7 6 

OOFS 




02 5 2 

P0177 

o836 


STA^ 

OBJ- F+5 

3253 

PC 178 

0 DQl 


INQ 

1 

025 . 

PQ179 

GAQQ 


LDA 

MONTH , 0 


PQ17A 

0 0 F4 




0255 

P017R 

6833 


STA^ 

08JFF+7 

0 2 5 6 

PG17C 

C522 


LOA- 

(ZERO) , I 

02 5 7 

PC17Q 

A fl Q 9 


AND- 

M007F 

0 2 5 6 

P017E 

584A 


RTJ^‘ 

HX3CJ 

0259 

PG17F 

68 vi 0 


STA^ 

OBUFF+3 

Q 2 o u 

P 0 1 8 >3 

0 0 FF 


RAO- 

I 

025 1 

PG161 

C522 


LOA- 

(ZERO) , I 

0262 

P0182 

58 40 


RTJ^ 

HXOC 

025 3 

P0183 

68 ‘♦4 


STA--^ 

TEMP 

0 2 5 4 

PC164 

C814 


TRQ 

A 

0 2 5 5 

P u 1 6 5 

0C20 


END 

$20 

0 2b 6 

P0166 

0FE6 


LLS 

8 

02 5 7 

P0187 

482A 


STQ^ 

OBUFF + 10 

0 2 58 

Pu 188 

QG3A 


ENQ 

$3A 

0259 

P0189 

0FE8 


LLS 

8 

0 2 7 3- 

P018A 

C8 3D 


LOA^ 

TPM P 

C271 

Pul8B 

0FE8 


LLS 

8^ 

0 2 72 

PQ18C 

48 26 


STQ^ 

OBJFF+11 


SUBROUTINE 


GET FIRST TABLE ELENEMT { D A Y/ MONT H/ YE AR ) 
ZERO INDICATES NO DATA 
ADJUST INDEX 


PRINT NO DATA 

ISOLATE DAY 

CONVERT DAY TO ASCII 

re-format for MESSAGE 


SAVE IN MESSAGE 


ISOLATE MONTH INDEX 


INDEX INTO MONTH ASCII ARRAY 


SAVE ASCII MONTH 


ISOLATE YEAR 

CONVERT TO ASCII 
SAVE IN MESSAGE 

GET 2ND TABLE ELEMENT (MILITARY TIME) 
CONVERT TO ASCII 
RE-FORMAT SHUFFLE 


SAVE IN MESSAGE 


^N0500225 
-N0S2 0 22 6 
^N050 0227 


N05a 0230 
NQ50Q231 
NQ50Q232 
NO5Q0 233 
N05QG234 
NQ53 0 235 
N0530236 
N05G 0 237 
NG 3 i 0 23 8 
NG53 0 23 9 
N05G 0 24G 

Nu5J u 2A1 
N05D 0 242 
Nu5Q0243 
N050 0 244 
NO 50 0 245 
NO 5 0 0 240 
N053 0 2^7 
N053G24e 
NQ50 02-^9 
NG 50 0 250 
NO 53 d 25 1 

N05a 0252 
N 3500253 
N0500254 

NO 5^0255 
NO 5 3 0 25 b 
NO 53 0 25 7 
N050 0 256 
N'3 5 j 0 25 9 
Nu 5 0 0 2b 0 
N050 0261 
N053 0252 
NG50G263 
NO 5 j 0 26 H 
Nu50 0 265 
NG 50 0 26 5 
N 0 5 Q Q 2 5 7 
N35UQ268 
N05QG269 
N0 53 G27C 
N05 3 0 271 
N053 0272 


o 

d'l 


u 


0 

o 

'■D 


O 


o 

o 


o 

o 


EFLIST 


PAGE 11 


DATE: 01/27/99 


0 2 73 

Pfliao 

68 26 

027h 

P018E 

DOFF 

02 75 

P018F 

C522 

L> 2 7 b 

P0190 

0 F 48 

02 7 7 

P0191 

AOOA 

027 8 

P0192 

5836 

02 79 

P0193 

6821 

0 2 3 0 

PO 194 

C522 

02 81 

P0195 

AOOA 

0282 

P0196 

5 8 3 2 

02 3 3 

PQ197 

6822 

0284 

P0198 

DOFF 

02 85 

P0199 

G 522 

02 8 6 

PQ19A 

58 48 

02 3 7 

P019B 

4 8 25 

0 23 8 

P019C 

6825 

C289 

P0190 

COFF 

029 0 

P019E 

6628 

0291 



02 9 2 



0292 

P019F 

5 T F 4 

0292 

POIAO 

G0h4 

02 92 

PGlAl 

u 0 22 


PO 1A2 

0 0 0 0 

0292 

P01A3 

18FB 

0292 

P01A4 

GO 18 


P01A5 

u 0 0 7 

0293 

POlAo 

14EA 

029 ^ 

PD1A7 

20 20 


P01A8 

2020 


P01A9 

20 20 


POIAA 

20 20 


P 0 1 A B 

20 20 


PCIAC 

20 20 


POIAD 

2-3 2 0 


POIAE 

20 20 


PGIAF 

20 20 


PQ IBO 

2020 


POIBI 

2 0 20 


P01B2 

20 20 


P01B3 

2020 


POlBn 

2020 


PO 1B5 

2020 


P01B6 

2020 


POl B7 

2020 


P01B8 

2020 


P01B9 

2020 


POIBA 

2320 


PQIBB 

20 20 


PfllBC 

2020 


POIBD 

2020 


POIBE 

2020 


POIBF 

2 0 20 


PulCO 

20 20 


¥• 

W03U“ F 


STA^ OBJ-F + 12 
RAO- I 

LDA- (ZERO)* I 
ARS 8 
AND- HOO-F 
RTJ’^ HXOCU 
STA^ OBU-F+13 
LDA- (ZERO), I 
AND- MQOI^F 
RTJ^^ HX3CU 
STA^ OBUf'F + lB 
RAO- I 

LDA- (ZERO), I 
RTJ^ HEXASC 
5TO^ 03UFF+25 
STA> OBJFF+2& 


GET 3RD TABLE ELEMENT (SECONDS/ERROR CODE) 

ISOLATE SECONDS 
CONVERT TO ASCII 
SAVE IN MESSAGE 

ISOLATE ERROR CODE 
CONVERT TO ASCII 
SAVE IN MESSAGE 

GET hTH TABLE ELEMENT (HARDWARE STATUS) 
CONVERT TO ASCII 
STORE IN MESSAGE 


LDA- I 

STA^ ISAVE _ SAVE INDEX TO TABLE 

pMlTE^*^LISTLUt CoiuFF- WOBUFF-i ,0BUFF-H0BUFF-1,27,A,P,P,I,1,G 


JMP- (AOISF) WAIT FOR COMPLETION 

OBUFF ALF 27, 


NG500273 
NQ5Q 0 27‘i 
N0500 275 
NQ50 0276 
N05G 0 277 
N0500278 
N050D279 
N05Q0280 
N050 0231 
N050 0232 
N05Q 0 283 
N05'J 028-+ 
N 05 0 0 28 5 
N0500286 
N 0530287 
Nu53 0 288 
N05G0289 
N05 0 u 29 0 
N85JU291 
N050 0292 


N0500293 
N05 3 0 29 A 


o 


o 

o 

o 

o 

c 

o 

o 

o 

o 

o 


o 

o 


o 



EFLIST 


=»AGE 12 


DATE*. Oi/27/99 



O 

PulCi 202G 
0295 P01C2 C80A 
r'A D29o P01C3 60 FF 

O 029^ POiC^ 1C9A 

0293 P01C5 3050 
G2 99 POiC 6 QOOO 

Q 0300 P01C7 COOO 


COBU-F LDA^ ISA\/E 
STA- I 

JMP-> (PDATA) 
N3030 NUM 53030 
ISAVE NUM G 
TEMP NUM 0 


RESTORE POINTER TO TABLE 
RETURN 


o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

N0530295 

N05 00293 O 

N0500297 , ^ 

N0500293 

N0500299 

NOpO 030 Q 


o 


r"t 


r~' 

v_-' 


r-] 

V.- 


’l 


O 


O 


c 


o 


o 


o 


o 


C) 


P(\GE 13 DATE: 01/27/99 

^ ^NQ5jQ3Q3 

^ HEX TO DEDIMAL ASCII CONVERSION iKalloSOf 


0 5 0 6 

P01C8 

C 0 00 

HXDCJ 

NUM 

0 

Q 3 0 9 

P01C9 

Q8 42 


CLR 

Q 

031G 

POIGA 

304o 


OVI- 

TEN 

0311 

POICB 

GFC3 


ALS 

8 

0312 

PO ICC 

0834 


A AQ 

A 

Q31A 

POICO 

88F7 


ADD^ 

N3Q30 

Q31- 

POICE 

1CF9 


JMP» 

(HXDCU) 

0315 

PO ICF 

0 QCO 

HXDC 

NUM 

0 

0 316 

PQIOJ 

0 6 42 


CLR 

Q 

0317 

POIDI 

380F 


DVI* 

NlOO 0 

0316 

P01D2 

6800 


STA^ 

SlflOQ 

0319 

P01D3 

0814 


TRQ 

A 

0 5 2 0 

P01D4 

0 8-2 


CLR 

Q 

0321 

P01D5 

38 0C 


OVI^ 

NIQO 

G 322 

PQ1D6 

0FC8 


ALS 

8 

D323 

PG10 7 

88 08 


AOD^ 

SIOOO 

a 3 2 4 

P0iD8 

QFC8 


ALS 

8 

03 2 5 

P01D9 

88EB 


ADO^ 

N5Q 30 

0326 

POIDA 

63 0 5 


STA^ 

S 10 0 Q 

Q32 7 

PGIDB 

0 814 


TRQ 

A 

03 2 8 

POIDC 

58E3 


RTJ^ 

HXOCU 

0 3 2 9 

PGIDD 

F8 02 


LQQ"^ 

SIOOO 

0 3 3 ‘j 

PGIDE 

ICFO 


JMP^ 

(HXDC ) 

C351 

PCIOF 

0 0 0 0 

S10L3 

NUM 

0 

0 3 3 2 

PGlEv 

03E8 

NIOOO 

NUM 

100 0 

0 3 3 3 

POIEI 

C 0 64 

NiO 0 

NUN 

100 


HEX-OECIMAL 2 DIGIT CONVERSION 

(A)=TENS (Q)=UNITS 

FORMAT ASCII OF DECIMAL 
ADD ASCII NUMBER BASE 
RETURN 

HEX-DECIMAL A DIGIT CONVERSION 

{ A) =THOUSANDS (a)=REM 
SAVE THOUSANDS 


(A) = HUNDREDS (Q)==REM 
FORMAT THOUSAND/HUNORED 


ADO ASCII NUMBER BASE 
SAVE 

DO TENS/UNITS 

RETURN (a)=THOU/HUNU (A)=TEN/UNIT 


o 


EFLIST 


»AGE 1-+ 


date: 01/27/99 


03 3 5 
033 6 
033 7 
0338 
033 9 


^ ^N050033o 

- HEX TO ASOII CONVERSION ^NQ5Qpp7 

i^ -^NOSO 0 338 


u 

0341 

PO 1E2 

0 0 0 0 

HEXA5C 

NUM 

0 


0342 

PG1E3 

0 822 


TRA 

Q 


03 43 

PG1E4 

5810 


RTJ-'^ 

CHAR 

*'\ 

034^ 

PG1E5 

6800 


STA^ 

CQl 

! 

0 3 4 5 

P 0 1 E 6 

5 8 OE 


RTJ-’^ 

CHAR 


0 3 4 6 

P01E7 

0FC8 


ALS 

8 


034 7 

PfllEO 

88 0 A 


AOD^ 

CGI 


0 3 48 

PC1E9 

66 09 


STA^ 

COl 

\ } 

0349 

POIEA 

580A 


RTJV 

CHAR 


03 5 0 

PGIEB 

6808 


STA- 

C02 


0351 

PDIEC 

58 08 


RTJ-'-^ 

CHAR 

0 

0352 

POIED 

DFC8 


ALS 

8 

0353 

POIEE 

8805 


ADD^ 

C02 


0 3 5 4 

POIEF 

E803 


LDQ=<^ 

COl 


0 3 5 5 

PQlFj 

OFFQ 


LLS 

1 6 


0 3 5 6 

POIFI 

ICFO 


JMP’^ 

(HEXASC) 


03 5 7 

PO 1F2 

OOuO 

COl 

NUM 

0 


0358 

PG1F3 

0 0 0 0 

CU2 

NUM 

0 


0 5 5 9 

PO 1F4 

0 0 0 0 

CHAR 

NUM 

Q 

C) 

U 3 D u 

P01F5 

0 8 44 


CLR 

A 

0 3 61 

PO 1F6 

0F64 


LRS 

4 


G 35 2 

PO 1F7 

0FC4 


ALS 

4 


0 3 53 

PG1F8 

G9F5 


INA 

-10 

o 

u 3 6 5 

P01F9 

C122 


SAP 

ATHRUF 

G 3 5 ’■;■ 

PO IFA 

093A 


INA 

$3A 


0 S 5 5 

PGIFB 

1CF8 


JMP- 

(CHAR ) 


u 3 & 7 

PGIFC 

Q9 41 

ATHRJ F 

INA 

$4l 

;TT 

0 3 5 8 

POIFD 

1CF6 


JMP^ 

( CHAR) 


HEX-ASCII NUMBER CONVERSION 


HAKE LOWER BYTES 


HAKE UPPER BYTES 

RETURN (Q)=UPPER BYTES (A)=LOWER BYTES 


SUBROUTINE TO CONVERT A BYTE 


Oi 7 0 
Q371 

0372 

0373 
037 4 


D 3 r 6 
0 3 7 7 


0578 
03 79 
03 8 u 



EFLIST 


P(\GE 15 


DATE: Qi/27/99 


O 


y *NQ5a037i 

^ BASIC MESSAGE SKELElONS ^Noio0373 


o 


POIFE 

20 OC 

HDRl 

NUN 

$20 00 

POIFF 

2020 


ALF 

27, 

P02Q0 

2 0 20 




PG201 

20 20 




PG202 

20 213 




P0 20 3 

2D20 




Pfl20 4 

2 J2Q 




P02u5 

2020 




PO 20 6 

20 20 




P02^ 7 

2 0 4-5 




P0 20 8 

‘-i- E ‘i? 




P02Q9 

494E 




PGEOA 

1 5 45 




P020B 

5249 




POEGC 

4E47 




PG2CD 

2 0 46 




P02CE 

49 “fC 




P020 F 

45 2 0 




PQ 2iu 

494 E 




POZii 

1-6 4F 




P0212 

5 2 40 




P0213 

4154 




P021- 

49uF 




Pu215 

4E2Q 




PQ216 

4C49 




PQ217 

5354 




P02ia 

494E 




P0219 

4720 




P021A 

ODOO 


NUM 

$0300 

POZIB 

20 00 

HDR2 

NUM 

$2003 

P021C 

2020 


ALF 

28, 

P021O 

20 20 




P021E 

2020 




PQ21F 

2 0 4C 




PO 220 

4 F 47 




P0221 

49 43 




P0 222 

41 4C 




PQ223 

20 55 




PQ224 

4 E 49 




P0225 

54-20 




P0226 

5 8 5 8 




P022 7 

2020 




P0228 

5454 




P0229 

5454 




P022A 

54 54 




P022B 

5454 




PG22C 

5454 





Na50Q376 

EMGINEERING FILE INFORMATION LISTING Na5QQ377 


LOGICAL UNIT XX 


TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT 


N050 0 378 
Nu5u G379 
NU50 0 330 


r 


O 

o 

o 

o 

o 


o 

o 


o 

o 


o 


o 


o 


o 


EFLIST 


PAGE 16 


date: 61/27/99 


n 


O 

i"') 


O 


o 


o 


0 

o 


o 


o 

o 

o 



F022O 

6 4 P 4 


P022E 

5 4 5 4 


PD22F 

54 5 4 


P02SQ 

54 54 


PQ 231 

54 54 


P0232 

5454 


PQ233 

5454 


P0234 

P 4 5 4 


P0235 

5 4 54 


P0236 

54 54 


P0237 

5454 

03 3 1 

P0238 

54 54 

P0239 

5454 


PQ23A 

5454 


P 0 2 3 R 

5454 


P023C 

5454 


P023D 

p4 5 4 


P023E 

5 4 5 4 


PG23F 

5454 


P024-Q 

54 54 


PQ2h1 

5454 


P02t2 

5 4 54 


P02<^3 

54 54 

0 5 3 2 

PC24^. 

20 20 

PG245 

2020 


P0 246 

2020 


P0247 

20 20 


PG2‘+8 

2020 


PC249 

2044 


P0 24A 

4154 


P0 2-+B 

4520 


P02PC 

2020 


P024O 

20 20 


P024F 

20 20 


P024F 

5449 


PG 260 

4D 45 


P0251 

20 20 


P0252 

20 20 


PQ 25 3 

2 0 4o 


PQ254 

41 49 


P0265 

4C55 


P0256 

52P5 


PQ267 

2 0 43 


P0268 

4F44 


P0259 

4520 


PG25A 

2020 


P025B 

4841 


PG25C 

52 44 


PG250 

5741 


P026E 

5245 

035 3 

PG25F 

2053 

PO 26u 

5441 


PG2&1 

54 55 


P02&2 

53 2 0 


HDR3 


ALF 12,TTTTTTTTTTTTTTTTTTTTTTTT 


ALF 27» DATE TIME 


ALF 4, STATUS 


N35D0381 


FAILURE CODE HARDWARE NQb30382 


N j 5u 0 383 


o 


o 

o 

o 

o 


0 

o 

o 


c 

o 

o 

o 

o 

o 


o 


o 


EFLIST 


3AGE 


If 


date; 01/27/99 


U33-. PG263 hD 41 
P0264 5353 
P02c5 20PD 
P0266 4-540 
P0267 hF 52 
PQ263 5920 
PQ269 5245 
P026A 4144 
P026B 2045 
P026C 5252 
P0260 4F52 
0335 P026E 4A41 
P026F 4E20 
P0270 4645 
PQ271 4220 
P0272 4041 
PC273 5220 
9027*, -tl5Q 
P0275 5220 
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P0AE6 2020 
PGAE7 2020 
P0AE8 2020 
P0AE9 2020 
POAEA 2020 
PGAEB 2020 
POAEG 2020 
POAEO 2020 


ALF 28, CARTRIDGE DISK DRIVER 2.2M 


ALF 28, PSEUDO DRIVER FOR MATRIX PRINTER 


O 




123^49 61 


o 

c 

o 

C) 

o 

o 

o 

G 

C> 

o 

c 

o 

o 

c 


EFLIST 


PaSE 


date: 01/27/99 



POAEE 

20 31 




POAEF 

3253 




POAFO 

2A34 




POAFl 

3936 



047 G 

P0AF2 

5 441 

ALF 28, TAB CARD PUNCH DRIVER 

123'^4951^^^'^^^^^ 


P0AF3 

4220 




P0AF4 

4341 




P0AF5 

5244 




PQAF 6 

20 50 




P0AF7 

554E 




PO AF8 

‘+348 




P0AF9 

2 0 -+4 




POAFA 

5249 




POAFB 

5645 




POAFC 

52 20 




POAFO 

2020 




PQAFE 

20 20 




POAFF 

2020 




POBO 0 

2020 




POBOl 

2020 




P0B02 

2020 




P0803 

2020 




POBO 4 

20 20 




P0Bu5 

2020 




POBO 6 

20 20 




Pfl807 

2020 




P 0BG8 

20 20 




PQB09 

2020 




POBO A 

20 31 




POBDB 

3233 




POBQC 

2A3h 




POBQD 

3936 



b^7i 



^ NEW ENTRIES SHOULD BE ADDED IN FRONT OF THIS RECORD 

N0 50 0 466 

04/2 


0 8 88 

EQU NLJLGT ( ^-LUDESC) , NL U (NLULGT/28 ) 

N050 Q 467 



0 0 4E 



G 4 7 i 

PQBDE 

554E 

ALF 28, UNDEFINED DEVICE 

N050 0 468 


POBQF 

4 445 




POBIO 

4649 




POBli 

•+£ 45 




P0B12 

-+42 0 




P0B13 

4445 




P0B14 

5649 




POBli' 

,345 




P0B16 

2020 




P0B17 

2020 




P0O18 

2020 




P0B19 

20 20 




PO BIA 

2020 




POBIB 

2020 




POBIC 

20 20 




POBID 

2020 




POBIE 

2020 




PuBlF 

20 20 




P0820 

20 20 




PA5E 59 date: 01/27/99 

END 

COM = 0000 I 0) DAT = 0000 { C) 


O 

O 

o 

o 

o 


EFLIST 

o 

P0B21 2020 
P0B22 2020 
r-, P0B23 2020 

P0B24 2 0 20 
P0B25 2020 
PGB2b 2020 
PQB27 2 0 20 
U P0B28 2020 

P0B29 2020 

Om-74 

O 

P3^= 0B2A ( 285d) 

o 


o 


o 


o 


N05G 0 4d9 


C 

I y 

o 

o 

o 

/ 'j 

o 

o 

o 

o 

o 

C'; 


o 


FFLIST 


PAGE 60 


date: 01/27/99 


EQUIVALENCES 


o 

3EF , LINE 

NAME 

VALUE 


REFERENCED AT 

LINE 

NUMBER 




0 0 0 0 

I 

OuFF 

(000255) 

0 u 7 0 , 

0D91, 

0115 , 

0119, 

0121, 

0123 


3 018 

TEN 

00 4b 

(OOiloZO) 

3 235 , 

0310 






0 019 

MO OFF 

GOG A 

{ G 0 0 0 1 0 ) 

0277, 

0 281 





o 

0 020 

ZERO 

0022 

(0 00034) 

0116, 

0 231, 

0 2 44, 

0 256, 

0 261 , 

0 275 


00 21 

AMONI 

0GF4 

(000244) 

3176 







0 0 22 

LUCMNT 

OOFC 

(000252) 

3 1 “,4 , 

0173, 

0189, 

0192 




QC23 

LUMM 

0 0C2 

( D00194) 

0133 






. ) 

0 C 2 4 

M 00 OF 

0 00 6 

( OOCCGo) 

0 2 47 







0Q2 5 

EXTBV4 

00E9 

(0DO233) 

0133 







3 G2o 

HOG 7F 

0 0 0 9 

( 000009) 

00 49 , 

0 08 4, 

0257 





002 7 

LISTLU 

0 0 F B 

(030251) 

00 64, 

0102, 

U 1 0 4 , 

0169, 

0292 



0 G 2 8 

A DI SP 

GOEA 

( Q00234) 

3 0 65 , 

0105, 

0141, 

G 145, 

0 17 0, 

Q 17 4 


0 029 

P 

000 4 

{ 0GGGG4) 

0 0 64, 

0 06 4, 

0102 , 

0 1D2 , 

0 10 4 , 

010 4 






0192, 

0192, 

0292, 

0292 




0 0 30 

MOO 07 

000 5 

(00G0G5) 

0 074 






O 

0 0 31 

EREQST 

000 8 

(000008) 

0 0 47 , 

0 071 






3 472 

MLULGT 

0688 

(002184) 

0 472 







Gh72 

MLU 

OO 4 E 

( 000G78) 

0 0 36 , 

0 088 






o 

o 

o 

o 

'xj 

o 

o 

C) 


I 


D128, 0151t 0155, 0233, 0235, 0260, 0274, 0289, 0289, 0296 


0280, 0285 


0190, 0193, 0293 n^-7-j ■-'■t&a r-,aQ 

D138, 0138, GI-,4, 0149, l,169, 01o9, u 173, 0173, ulS9, 0189 


o 

o 

o 

'^*'1 

■x./ 

o 


C") 

c 

o 

o 

o 


C) 


o 


c 

o 


EFLIST 


PaGE 61 


OATEJ 01/27/99 


3 Y ''1 B 0 L S 


o 

DEE . line 

NAME 

ADDRESS 

0 0 33 

EFLIST 

uGOQ 


0 0 38 

VECTOR 

00 0 5 

o 

G 046 

FLO PPY 

OOQB 

OG 53 

FLOPl 

0012 


0 0 61 

ALLLU 

0013 


3 0 6 4 

3IGHOR 

0016 

o 

0 066 

MAXLU 

OOIE 

0 057 

N28 

OOIF 


3 0 68 

ALOOP 

0 0 20 


0 0 8 2 

NOTHMP 

0031 


0 0 89 

OKTYPE 

0 038 

',.^1 

0 0 93 

MCVMOR 

C03C 


j 0 98 

HDESC 

0 0 43 


0102 

PHDR2 

0048 


0 ICii 

PH0R3 

004F 


0106 

MMCTR 

Qu57 


010 7 

HMFLAG 

0 0 5 8 


0 108 

RQ 

u059 

O ' 

0 109 

GPH CR3 

305A 

3 112 

MM 

005E 


0 11 6 

LOOKHM 

0063 


0 123 

GURR 

006A 


0125 

NOCURR 

0Q6D 

U 

3 130 

ALL MM 

0 0 72 


3 131 

CURRLU 

0 07 4 


G 132 

NOMM 

0 0 75 

' f \ 

0158 

MMDTA 

007A 

' j 

j 140 

MMLSB 

0082 


0142 

GMMOTA 

0 0 6 4 


3144 

ERRMM 

0085 


014 6 

MCTR 

0080 

'sj 

014 7 

LX 

008E 


01h3 

-OWHA 

008F 


RE'ERENCED AT LINE NUMBER 


0 1 5 L 
0 160 
01d3 
0 169 
0171 
0173 
0175 
017 6 


GPOATA 

NXTLU 

lANYLU 

FINFRM 

GDATA 

FINISH 

iSGEND 

MEND 


0096 
0090 
00 A1 
0 OAA 
0082 
0112 
QUA 
0123 


3 0 36 
0 0 53 , 
0 0 51 
0 J 38 , 
0 0 64 , 
0 0 62, 
3 3 90 
0 0 64, 

0 076 

0222 

0064, 

0164 

0213 



0167 

0 0 79 , 
0 087 

0Q80 



0 097 
0 0 96 
0102 
3 104, 

0104 



3 113 , 
0 0 77 

0125, 

0 12d 


0 0 72 , 
0104 
0 110 

0 082 



0 129 
3 118 
0122 
0 127 
0 0 68 , 
0111 

0 098 , 

0117, 

J 1 3 “t. 

0138, 

3136 

0138 



0138 

0144, 

0144 

0157 


3153, 

0142 

D 15 6, 


0 150 

0147, 

0149, 


0159 
3130 , 

0158 



0 0 81, 

0161 



0 162, 

016 6, 

0169, 

0169 

3 138 , 

0 15 0 



3144, 

0173 

0169, 

0173, 

0173 

Q 173 





0163, 0165, 0207 


O 


O 


EFLIST 


P(\GE 62 


DATE: Gi/27/99 


( ') 



0 178 

PGMADR 

0125 


0179 

0 NELUF 

0126 

r'\ 

0 180 

4HLUS 

0127 


3 188 

ONELU 

0128 


0189 

GETLU 

G129 


0191 

ASKMSG 

0131 

O 

0192 

ASKC 

013D 

019- 

LUBUF 

0145 


0195 

UNIT 

0146 


0196 

READLU 

014 7 


G 198 

LURDOK 

0149 


0 213 

GOODLU 

015A 


C 221 

MMLU 

015C 


3 23 0 

PDA TA 

015F 


0 23 7 

ISOATA 

0166 


0292 

WOBUFF 

019F 


0294 

OBUFF 

01A7 


Q295 

30SUFF 

G1C2 


3 298 

N30 30 

01C5 


0299 

ISAVE 

01C6 


0 30 0 

TEMP 

QIC 7 


0 308 

HXOCU 

01C8 


3315 

HXDC 

QICF 


0 331 

310 00 

OIDF 


0 332 

NIO GO 

OlEfl 


3333 

N i 0 0 

QlEl 

o 

0 341 

HEXASC 

01E2 

3 35 7 

30 1 

01F2 


0358 

CC 2 

01F3 


3 359 

3HAR 

01F4 

•D 

0 367 

ATHRUF 

OlFG 

0 3 76 

HORl 

QIFE 


0 379 

HDR2 

021B 


3 382 

HDR3 

0244 

0 

0 384 

MERRHM 

0263 

0385 

MONTH 

026E 


0393 

LUDESC 

0286 


o 


o 

o 

o 


o 


0 0 34 



0150 , 

0188 


3 0 78 , 
0 0 39 

0 109, 

0221 

3189, 

0189 

0189, 

0197, 0212 

3189, 

0192, 

0192 

3 192, 

0198 


0 203, 
0192 

020 6 



019b 
0 211 
u 0 40 


3124, 

0 15 4, 

0236, 

0297 



0232 
3 292 , 

0292 



0259 , 

0 267, 

0 2 42, 
0 292 

0243, 

Q252, 

0255, 



3 199, 

0313, 

0 325 




3290 , 

0295 





3 2 63, 

0 27 0 




0 314, 

0099 , 

0239, 

0 258, 

02 ?8 , 

0282 , 

0 2 62 , 

0 33 0 





0318 , 

0 323, 

0 326, 

0329 



3 317 
0 321 
3 2 85 , 

0356 


0334 



0 344, 

0 34 7, 

0348 , 



0 350 , 

0 35 3 




0 368 

3 3 43 , 
0 364 

0 34 3, 

0349, 

0 35 1 , 

0 3 6 6, 


0 0 64 , 

0169 





0 0 94 , 
0104 

0 100, 

0102 




0144 

0251, 

0254 





0u93, 

0 472 






0272, 0273, 0279, 0283, 0287, 0288, 0292 
0328 


O 

O 

O 

U 

O 

O 

C) 

o 

0 

o 

o 

o 

o 


o 


EFLIST 


PAGE 63 


DATE: 01/27/99 


EX TERNA LS 


DEF.LINE NAME VALUE 

OOIA LOGIA 0155 

0015 MMEF 0061 



referenced at line NUMBER 

0061, 0069, 0208 
3 114 


o 

o 

o 

o 

o 

o 

o 

o 

C") 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 

c 

o 


EFLIST 


^AGE b4 


date; 01/27/99 



C> 

alphabetical 


r'\ 

ADISP 

CJ2 3 

ALLLU 

0 061 


GDI 

0357 

Cl] 2 

0 358 


EF;.IST 

0 033 

EREDST 

0 031 

r*''. 

GETLU 

0189 

GOOOLU 

3213 

'w' 

I 

0 J 0 G 

ISA VE 

0299 


LJM^ 

G023 

LUROOK 

0198 


MGTR 

0146 

MOESG 

3 098 

y'^ 

M'i-SB 

G 140 

MMLU 

0 221 


M3Q30 

G298 

NLU 

0472 


OMELU 

0158 

ONFLUF 

0 179 


SICGO 

G331 

TEMP 

D 300 


SORT 

0 F 

S Y M 0 

ALL'-H 

3130 

ALOOP 

GDATA 

J 1 71 

CHAR 

ERR MM 

0144 

EXTBV4 

GDQATA 

0 154 

HDRl 

ISOATA 

0 2 37 

LISTLU 

LX 

0147 

MOO 07 

MEND 

0176 

MERRMH 

MMLU 3 

0180 

MONTH 

NLUL3T 

0 h72 

NOCURR 

P 

0 029 

PDATA 

TEN 

0 018 

UNIT 


0 L S 

V- V 


0068 

A HON I 

0021 

0359 

CMMDTA 

0142 

0025 

FINFRM 

0169 

0376 

H0R2 

037 9 

0027 

LOGIA 

OQl 4 

0U3 0 

MDOQF 

0024 

0384 

MM 

0112 

0385 

MOVMOR 

0093 

012 5 

NDMH 

013 2 

0233 

PGMADR 

0178 

0195 

VECTOR 

0038 


o 


vj 


o 


0 

O 

o 

o 

o 

o 


C) 


ASKC 

0192 

ASKMSG 

0191 

ATHRUF 

COBUFF 

0295 

CPHDR3 

0109 

CURR 

FINISH 

0173 

FLOPl 

0053 

FLO PPY 

H0R3 

0382 

HEXASC 

0341 

HXDC 

LOOKMH 

0116 

LUBUF 

0194 

LUCMNT 

M007F 

002 6 

HOOFF 

0019 

MANYLU 

MMCTR 

0106 

MMOTA 

0138 

MHEF 

MSGEND 

017 5 

NIQQ 

033 3 

NIOOO 

NOTH HP 

0 082 

NXTLU 

016 0 

OUUFF 

PHDR2 

0102 

PH3R5 

0104 

REAULU 

WOBUFF 

0292 

ZERO 

0020 



0 ) 


0367 

' 3IGH0R 

0 064 

: o 

0125 

CURRLU 

0131 


0046 

FOWWA 

0148 


0315 

HXOCU 

'0308 

■ O 

0022 

LUDESC 

0393 

0163 

HAXUU 

0066 


0015 

HMFLAG 

Q1Q7 


0 332 

N28 

0 06 7 

C) 

0294 

OKTYPE 

0C89 


019 6 

RQ 

0108 



o 


o 

o 


o 


o 

o 

o 


o 

o 


n 


u 

o 

o 

o 

o 


00 0 1 
00 0 2 
0 0 03 
00 0 4 
00 0 5 


00 0 7 
0 3 0 8 
00 0 9 
00 10 
0011 
0012 

0013 

0014 


MIPRO 


=>AGE 


DATE*. 01/27/99 


¥■ 

V- 


NAM MIPRO DECK-ID NG6 MSOS 5.0 SUMH A R Y- 1 1 0 NO o 0 C 0 3 1 
MANUAL INTERRUPT RESPONSE HANDLER FOR INPUTS OTHER THAN » Na600G02 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 M06Qu003 
SHALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA N063G004 
COPYRIGHT CONTROL DATA CORPORATION 1976 N06'0005 


( IN 
A 


^^MSOS 


V- 


THE PROGRAM BASICALLY INVOLVES ENTRY FROM MINT 
MONITOR) WHEN THE FIRST CHARACTER INPUT AFTER 
INTERRUPT IS NOT AN IF THE INPUT CHARACTER STRING 

IS MATCHED IN TABLE -FUNCTN-, THE REQUESTED ACTION IS 
TAKEN. IF THE ACTION INVOLVES STARTING OR STOPPING A 
TIMER AND A REJECT IS FOUND, THE MESSAGE -TIMER REJECTt-^^MSOS 
UNLINKED, DR THE INPUT IS OTHERWISE IN ERROR, THE ^^MSOS 

MESSAGE, -MI INPJT ERROR IS PRINTED. THE FOLLOWING »^HSOS 


MANUAL »»MSOS 
«^^MSOS 
*^MSOS 
^^MSOS 


n.l^^N0600U07 
4.1«-^N06G0 308 
4. l’^^N060a0Q9 
4.1*^^NQ60QG1D 
4.1»^N0600011 
4.1 «^'*^N06u 0 012 
4.1^-^NQ60 0 G15 
n.i^»NQ6D001u 


( ') 


O 


O 


O 


o 




r\ 

0015 


LIST OF 

INPJT CODES IS CONSIDERED BASIC TO THE PROGRAM 

.^^HSOS 

4.1^^NQ6j 0015 

o 


GO lb 

A'- 

ADDITIONS TO THIS LIST MAY BE MADE BY USERS AS REQUIRED*^-MSOS 

4.1^^NQ6u 0016 


O 

QG13 


INPUT 

FUNCTION 

^-MSOS 

4.1^^NQ600018 



0C2C 

V- 

= S 

FOR SCHEDULING SYSTEM LIBRARY ORDINAL WITH 

»^^MSOS 

4.1^^NQ60002D 



00 2 1 



THE INPUT FORMAT =SXXX,Y,ZZZZ WHERE XXX IS«-^MSOS 

4,1^^N0600u21 



0 0 22 



THE 3-DIGIT DECIMAL ORDINAL NUMBER (NUMBER^^HSOS 

4. 1»^N06QQ022 



00 2 3 



CORRESPONDS TO DIRECTORY POSITION), Y IS 

^^MSOS 

+.1^^N0600023 

■ u 


0024 



THE HEX PRIORITY FOR EXECUTION, AND ZZZZ 

’^^MSOS 

4.1 ♦♦NO 60 GO 2 4 



0 0 2 5 



IS A HEX PARAMETER PASSED TO THE PROGRAM 

^^MSOS 

4.1»^N060u 025 


O 

0 0 2 6 



I N THE Q-REGISTER. 

»^^MSOS 

4.1^^N06Gu026 

■ o 


0028 


SCHM 

SCHEDULES ON-LINE SMALL COMPUTER MAINTENANCL^^MSOS 

4.1^^Nu50D028 



Q029 



MONITOR «SCMiM-17) LOADED UNDER ORDINAL 

«-^MSOS 

4.1^»N060 0 029 


Q 

0 0 30 



NAME SCHM17 

^f^MSOS 

4. l^^NObOO 030 

■ o 


003 2 


EF 

SCHEDULES ORDINAL EFLIST TO PRINT 

’^MSOS 

4. 1^^N0600032 



0 0 3 3 



ENGINEERING FILE DATA FOR ALL LOGICAL 

♦♦MSOS 

4.1^^Na6Q0033 


O 

033 4 

if. 


UNITS 

♦♦MSOS 

4.1^^Ni36QQ034 

o 


0 3 3 6 

-y- 

EFMM 

SCHEDULES ORDINAL EFLIST TO PRINT 

♦♦MSOS 

4.1^^N06Q0036 



0 0 3 7 



ENGINEERING FILE DATA FOR MASS MEMORY 

♦♦MSOS 

4.1»^NQ6QQ037 


o 

0038 



UNITS 

♦♦MSOS 

4.1^^N0600038 

o 


0 0 4 0 


EFLU 

SCHEDULES ORDINAL E-LIST TO PRINT 

♦♦MSOS 

4.1»^Na600Q40 



Q j ^l 



ENGINEERING FILE DATA FOR SPECIFIED 

♦♦MSOS 

4.i^^Na6aao4i 


o 

GC 42 



LOGICAL UNIT 

♦♦MSOS 

4.1^^NO&00042 

o 


0 3 + 4 


TON 

starts SYSTEM HARDWARE TIME BASE AS OEFINEF3 

♦♦MSOS 

4.1^^N06Q0044 



0 0+5 



IN 3YSDAT 

♦♦MSOS 

4.1^^N06Q0045 


o 

00 4 7 


TOFF 

STOPS SYSTEM HARDWARE TIME BASE AS DEFINED 

♦♦MSOS 

4.1^^M06Q0047 

■ o 


00 48 



IN 5YSDAT 

♦♦MSOS 

4.1^->NG60Q 048 



o 


o 



MI PRO 


»AG£ 


2 


DATE 


01/27/99 



0 3 50 

* 

SYSCOP 

SCHEDULES SYSTEM CHECKOUT PACKAGE LOADED 


o 

0 0 51 



UNDER ORDINAL NAME SYSCOP 



0053 


DB 

STARTS ON-LINE DEBUG PACKAGE, ODEBUG, LOADED* 


0 0 5 4 



UNDER ORDINAL NAME OOEBUG. 


o 

0 3 5 6 


DX 

STOPS ON-LINE DEBUG PACKAGE BY CLEARING 

¥ 


00 57 



CHRSFG IN SYSDAT 



0059 


DATE 

ALLOWS THE USER TO ENTER A NEW DATE AND 

¥• 

O 

00 60 

V- 


TIME. ROUTINE IS A SUB-FUNCTION OF TO 

FUNC^ 


0 0 61 



_OADEO UNDER ORDINAL NAME TDFUNC. 

V- 


0063 


TIME 

CAUSES THE CURRENT DATE AND TIME TO BE 


o 

0 3 6 ^ 



PRINTED ON THE COMMENT UNIT. ROUTINE 

IS 


o 

o 

o 

o 

o 

o 

o 


006 5 
0 0 6 6 

0G58 

0D59 

00 7 1 
00/2 
0 0 7 3 

0Q75 
DQ 7d 
0 0 77 

0 0 79 
00 8 0 - 

003 2 
00 9 3 

00 3 5 
GO 8 6 
0 0 37 


¥ 

¥ 


>(■ 


SUB-FUNCTION 
ORDINAL NAME 


OF TDFUMC 
TDFUNC . 


LOADED UNDER 


♦^MSOS 

»»MSOS 


l/ERIFY 


TSUT 


DACS 


WRON,LJ 


WROF ,LU 


SCHEDULES THE MSOS VERIFICATION PACKAGE LOADED 
UNDER ORDINAL NAME VERIFY. 


4.1^^NDbD0053 


A. 1*-^NQ60 0056 
A.1^^NQ600057 

E,1^-»N060 0 059 
A. l«-»NObOOQ60 
A.l^^NGbO 0 061 

A.l»^NOb00063 

A.l'»^^N06000bA 

4.1^^N06uQ065 

H.l^^NObOOObb 

NO 60 3 0 6 8 
NG63 a 069 




o 

o 

n 


SCHEDULES THE TIMESHARE UTILITY PACKAGE ^^MSOS A.l^^NGbG 0 071 

LOADED UNDER ORDINAL NAME TSUTIL. THIS IS’^^MSOS A . 1 «‘^N0 60 0 0 7 2 
A PART OF THE TIMESHARE 1.0 PRODUCT. -^MSOS A. 1 »^N0 60 0 07 3 

SCHEDULES THE DATA ACQUISITION AND CONTROL ^»M30S 4. 1 ^-^NQ 60 0 07 5 
SUBSYSTEM LOADED UNDER ORDINAL NAME INDACS^^MSOS A .l^^NOGO 0 076 
THIS IS A PART OF THE AUTRAN 2.0 PRODUCT. ^■‘‘MSOS <+. 1 ^^N060 0 07 7 


ENABLE THE WRITE RING FEATURE 
SIMULATOR SPECIFIED BY LU . 


ON THE MAG TAPE 


DISABLE THE WRITE RING FEATURE ON THE MAG TAPE 
SIMULATOR SPECIFIED BY LU . 


QUESTION MARK- 


SCHEDULES CORE RESIDENT PROGRAM CRIMPT 
TO IMITATE IMPORT PACKAGE THIS IS A 
PART OF THE IMPORT PRODUCT 


N06j 0 079 
M060 0 080 

N06QOU82 

N06U0Q83 

N0600Q85 
N0600Q86 
N063 0 087 


'U 


e.) 


O 

O 

O 

o 

c 


o 

o 


{ ) 


r ) 


MIPRO 


•=AGE 


>5 


□ATE: 01/27/99 


0 0 89 

0090 

0091 


* 

* 


THE TABLc -FUHCTN- CONTAINS A 6-WORD DATA BLOCK 
PARAMETERIZED INPUT MNEMONIC. THE DATA BLOCK 
DEFINED A3 FOLLOWS... 


FOR EACH 
IS 


»^MSOS 

*"^^HSOS 

»^MSOS 


H. l«^^N06u 0 089 

A.i^^’Noeooago 

9.1»^Nu60GD91 


0 0 93 
0 0 9 4 
0 095 
0 096 


0 0 99 
010 0 
0101 
0102 
0103 
010 4 

0109 
CIO & 
0107 
ulG8 

0110 
0111 

0113 

0119 

0116 

0117 

0118 


4 

4 

* 

¥ 

>(■ 

¥ 

4 

4 

4 

» 

=h 

V- 

V- 


4 

V 

Jf 

4 

V- 


WORDS 0-1 


WDRO 2 


WORD 3 
WORD 4 
WORD 5 


A MNEMONIC CODE WHICH MAY CONTAIN 
2-^^CHARACTERS. unused CHARACTERS 
MUST BE SPACES. ANY LEGAL ASCII 
CODE MAY BE USED BUT A SPACE. 


*‘«MSOS 4.1»»NQ600 093 
■^^MSOS 4. 1’^NOeO 0 094 
-^HSOS 4.1*^N06Q0095 
^^MSOS 4.1»^N06Gfl09o 


THE RELATIVE DISTANCE BETWEEN THE ^»MSOS 
LABEL JHP AND ANY DESIRED FUNCTIO.N’^^MSOS 
PRE-PROCESSOR. IF A DATA STRING *»MSOS 
FOLLOWS THE MNEMONIC, THE PRE- »^HSOS 
PROCESSOR MAY BE USED FOR ITS ^‘^MSOS 
ANALYSIS. IN THIS CASE, THE »^HSOS 
ADDRESS OF THE INPUT BUFFER IS «^»MSOS 
CONTAINED IN LOCATION, QSAVE. IF »^MSOS 
^9..fSlrP^°^^SSING IS REQUIRED, ^^MSOS 
CONTROL SHOULD 3£ PASSED TO LABEL, »^MSOS 
GETIND. ^^MSOS 


4.1»^fN060a098 
4.1^^N0600 099 
4.1’^^N0 50 0 10 G 
A.i^^NOBDOlOl 
4.1»^Na600102 
4.1^-N0600103 
A.l^^NOGOfllOA 
A.l’f^NOeOOlOS 
4.1^^N0600106 
4.1^^Na6G0107 
4. 1*-^N06001D8 


A SCHEDULER CALL (SYSCH 
DESIRED PROCESSOR 


D TYPE) FOR THE 


AN INDEX TO THE ORDINAL TABLE 
SET TO 3FFFF IF NO ORDINAL 


(ORDTBL) 


THE PARAMETER TO BE PASSED TO THE 
PROCESSOR PROGRAM IN THE Q- 
REGISTER. 


^♦HSOS 

♦*MSOS 

^^MSOS 


NQ6U 0110 
NU600111 

N060U113 

N0600114 

4.1^*N0600116 

4.1^^NS600117 

4.1»-^N060U118 


0122 

0121 


0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 


■f- 

* 

V- 


4 

* 

4 


EACH ENTRY 
LESS ARE 


IN THIS TABLE MUST CONTAIN SIX 
USED. A SAMPLE ENTRY FOLLOWS., 


WORDS EVEN IF 


»^MSOS 4.1»^N06a0120 
’^^MSOS 4.1*^N0600 12i 


ALF 

2, SAMPLE 

ADC 

PREPRO- JMP 

NUM 

$240X 

MUM 

X DR $FFFF 

NUM 

xxxx 


MNEMONIC NAME 

INCREMENT FROM PRE- PROC ESSOR TO 
JMP LABEL 

SYSTEM SCHEDULER CALL AT PRIORITY 

WHERE X IS THE INDEX TO TABLE ORDTBL 
SFFFF IS USED IF NO ORDINAL REQUIRED 
PARAMETER TO BE PASSED IN THE Q- ’^^MSOE 
fttGISTER. «^*MS05 


'^♦MSOS 

*^MSOS 

^‘^MSOS 


4.1^^N0600123 
4.1«^^N060 0 124 
4.i^^N06u0125 
N0500126 
4. l<'»N0b00127 
NU600128 
NQ600129 
4.1^^N06 u0 13G 

4. I'^'^NO 60 0131 
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0133 

‘f- 

PROGRAM 

ENTRY POINTS 


^^MSOS 

4.1-^'N0600133 

0134 


ENT 

MI^ROC 

TRANSFER ADDRESS 

’f^MSOS 

4.1»^N0600134 

013b 

=(■ 

PROGRAM 

EXTERNAL POINTS 

»-MSOS 

4.1^^N0b00136 

0137 


FXT 

L031A 

TABLE Of P.D.T. ADDRESSES 

»^HSOS 

4.1'^^N06Q0137 

013d 


EXT 

MIBX 

MANUAL INTERRUPT BUSY FLAG 

^f^MSOS 

4.i^^N06C 0138 

0139 


EXT 

CHR3FG 

ODEBUG ACTIVE FLAG 

^^MSOS 

4.1^^N05Q0139 

0140 


EXT 

SCMMLC 

SCMM-17 ACTIVE FLAG 


N0b3 0 140 

0141 


EXT 

SY5COP 

SYSTEM CHECKOUT ORDINAL 

■^^MSOS 

4.1'^^N06Q0141 

0142 


EXT 

ODEBUG 

ON-LINE DEBUG ORDINAL 

’^’•HSOS 

4.i»^»N0600142 

0143 


EXT 

0D3SIZ 

ON-LINE DEBUG OVERLAY SIZE 


NQ6Q0143 

0144 


EXT 

EFLIST 

ENGINEERING FILE LIST ORDINAL 

»»HSOS 

4.1*»N050C144 

014 5 


EXT 

TDFJNC 

TIHE/DATE FUNCTION ORDINAL 

»^MSOS 

4.1«^^N0600145 

014o 


EXT 

VERIFY 

MSOS VERIFICATION ORDINAL 


N06Q0146 

014 7 


EXT 

TSUI I L 

TIMESHARE UTILITIES ORDINAL 

-«^MSOS 

4.1^^NQ60Q147 

0148 


EXT 

INQA3S 

DAGS ORDINAL 

’^^HSOS 

4. l’^»N0600148 

0149 


EXT 

S0MH17 

SCHM ORDINAL NAME 

’■^MSOS 

4.i»^Na60G149 

015 0 


EXT 

IMRTYP 

TIMER TYPE DESIGNATOR 

^^MSOS 

4.1«^'>^N0600150 

0151 


EXT 

TMOOOE 

TIMER TYPE CODE 

^^MSOS 

4.1^^NQ500151 

0152 


EXT 

H15721 

1572-1 HISTORY WORD 

=^^MSOS 

4.1^^NG600152 

0153 


EXT 

E1572 

1572 BASIC W,E,S WORD 

»^MSOS 

4.1»^N0600153 

015 4 


EXT 

E1572F 

FUNCTION CODE TO ENABLE 1572 

»^MSOS 

4.1’^^N0 60 0 i54 

015 5 


EXT 

01572 

1572 OSCILLATOR FREQ. /CLOCK FREQ. 

-^MSOS 

4.1^»N060D155 

0156 


EXT 

E1573 

1573 BASIC VJiE.S WORD 

^^MSGS 

4.1»^NQB0C156 

0157 


EXT 

E15721 

1572-1 BASIC W,£,S WORD - FUNCTIO N^^MSOS 

4.1»^N0600157 

015 8 


EXT 

015721 

1572-1 BASIC W,E,S WORD - DATA 

^^MSOS 

4.1*‘*Na&G0158 

0159 


EXT 

015721 

SRG TIME BASE/CLOCK FREQ. 

*^MSOS 

4.1^^N06D0159 

016 0 


EXT 

EQ3544 

FUNCTION CODE FOR COMM. MUX 

^♦MSOS 

4.1^‘^NQ600150 

0151 


EXT 

E10336 

10335-1 BASIC W,E,S WORD 


N0500161 

0152 


EXT 

01Q336 

10336-1 CLOCK REGISTER VALUE 


NQ600i62 

0163 


EXT 

F1Q536 

ENABLE 10335-1 


N0600153 

015 4 


EXT 

CRIMPT 

IMPORT INPUT ENTRY 


N06D0164 

0155 

* 

PROGRAM 

EQUIVALENCES 


»^MSOS 

4.1*-^'-N0d30166 

015 7 

0 0 02 

EQU 

LPMSK(S2 ) 

RIGHT JUSTIFIED MASKS 

^^HSOS 

4.i*‘^N0 60 G167 

015S 

0 012 

EQU 

NZERO ($12) 

LEFT JUSTIFIED MASKS 

»^MSOS 

4.1^»N060015 8 

0159 

0 0 23 

EQU 

ONEBIT($23) 

SINGLE BIT MASKS 

-^HSOS 

4.1^^N060Q159 

Q17G 

0 0 22 

EQU 

ZER0($22) 

CELL CONTAINING ZERO 

^^MSOS 

4.1»^N0500170 

0171 

0 025 

EQU 

FOUR($25) 

CELL CONTAINING FOUR 

^^HSOS 

4.1»-N0600171 

0172 

0 0 4i+ 

EQU 

SIX ($44) 

CELL CONTAINING SIX 

»^MSOS 

4.i»-«Ni)600172 

0 1 7 3 

0 OEA 

EQU 

ADISP (SEA) 

ADDRESS OF DISPATCHER 

^^MSOS 

4.1»^N060D173 

0174 

uQF4 

EQU 

AHOMI ($F4) 

ADDRESS OF MONITOR 

’^^fiSOS 

4.1-^N0600174 



o 










0 
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OIF’S 

=>0000 

OAOO 

MIPRO 

ENA 

0 

INITIALIZE INDEX 

»^MSOS 

‘*.i^^NQ 60 0 176 

(, 


017 / 

POQOl 

60FF 


STA- 

I 


»^MSOS 

4.1»^N0600177 



0178 

POO 02 

68 4E 


3TA^ 

I3AVE 


»^MSOS 

4.1^-N0600178 

■ 0 


0179 

P00 03 

48^9 


STQ^ 

QSAVE 

SAVE LOCATION OF INPUT CHAR BUFFER^^MSOS 

‘r.i»»N0600179 


013 u 

PQ 0 u ‘t 

H 8 5 Q 


STQ 

QDACS 

SAVE INPUT BUFFER LOG IF BAGS ENT 

^^MSOS 

4.i^^^N060D 180 




P 0 0 0 5 

0 0 A2 






o 










^ 0 


0132 




CHECK FOR QJE3TI0N 

MARK ENTRY FOR IMPORT 


NOBO 0182 



01S3 

PQ U 06 

C622 


LDA- 

<ZERO) ,Q 

LOOK AT FIRST CHARACTER 


NQ630183 


o 

0134 

P00Q7 

AOIA 


AND- 

NZERO+8 



NQ6S0184 

• 0 

0135 

P0QU8 

BOO 0 


EOR 

=NS3F00 

CHECK FOR aUESTION MARK 


N06Q0185 



P 00 09 

3F0C 







0166 

POOOA 

0119 


SAN 

REPEAT 

SKIP IF NOT 


NQ630186 


o 

0187 

PQQOB 

C806 


LDA- 

IMPT 

CHECK IF IMPORT HANDLER LINKED 


NQ63 0 187 

■ 0 

0188 

POOGC 

Bull 


EOR- 

LPMSK+15 


NQ60 0188 


0189 

POGOO 

0111 


SAN 

QSKEO 



N060C189 



0130 

PO OOE 

1629 


JMP^ 

JMP 

NOT LINKED-ERROR 


N05-3 D190 


o 

0191 

POOOF 

54F4 

GSKED 

RTJ- 

(A^ONI) 

SCHEDULE IMPORT HANDLER 


N0600191 


0192 

PQQIG 

5206 


NUH 

S5206 

PASS BUFFER ADDRESS IN Q-REG. 


NQ600192 



0193 

POOll 

7FFF X 

I MPT 

ADC 

CRIMPT 


N0600193 



019 4 

P0012 

18 00 


JHP 

HIDQNE 

EXIT MIPRO 


N360Q194 


o 


P0 313 

0111 






0 


0196 

P0014 

E838 

REPEAT 

LDQ>^ 

aSAVE 


^^HSOS 

4.1^^Na600196 



019? 

P0015 

C622 


LDA- 

(ZERO ) , Q 

PICKUP FIRST 2 CHAR INPUT 

^‘♦MSOS 

h.1«^^N060G197 


C) 

0198 

P0916 

9938 


SU8^ 

FUNCTN, I 

DO THEY MATCH 

’^^MSOS 

A.l^^-NOBOOigS 

• 0 


0199 

P0Q17 

0101 


5AZ 

GHAR2 

YES 

»^MSOS 

4.1«^^N06D0199 


020 0 

PG018 

18 21 


JMP» 

NEXT 

NO, TRY AGAIN 

^>!^MSOS 

4.1^*N060Q2Q0 



C202 

P0019 

C936 

CHAR2 

LDA^ 

FUNCTN41 ,I 


*^MSOS 

4.1>>^^NG5Q02D2 

• 0 


0203 

PO u 1 A 

90 GO 


SUE 

= A 

IS THIS A 2 CHARACTER INPUT 

»^MSOS 

4.1*-»N06G0 203 



POOIB 

2020 








r- 0 . 

u c- y 

POOIC 

0113 


SAN 

N0T2 

NO 

’^^MSOS 

-4. l'^»N06Qfl20^ 


• T \ 

G2G 5 

PODIO 

GOFF 


LDA- 

I 

SAVE INDEX TO 2 CHAR INPUT MATCH 

^»MSOS 

4.1»*N060D2Q5 

■ 0 


020 6 

POulE 

&82D 


STA-^ 

F0UND2 


^^HSOS 

4.1^^N06Q0206 


0207 

POOIF 

18iA 


JMP» 

NEXT 

CONTINUE TO SEE IF 3 OR 4 CHAR 

«^»MSOS 

4.1»-^N06Q 0 20 7 



0208 

P0020 

C92F 

N0T2 

LOA^ 

FUNCrN4l,I 


»*MSOS 

4.1»^M0600208 


o 

020 9 

P0021 

AO DA 


AND- 

LP4SK+3 

NO, IS IT 3 CHARACTERS 

♦+MSOS 

t.l’^^N0600209 

0 

0210 

P0G22 

Q9DF 


INA 

-$20 


«>^MSOS 

4.1^^NG6DQ 210 


0211 

PQu23 

OllD 


SAN 

CHAR4 

NO, IT IS 4 CHAR. 

♦^MSOS 

4.i^>^NtJ60fl211 



0212 

P0024 

C201 


LDA- 

i»a 

3 CHARACTER INPUT 

^■♦MSOS 

4,l»^N0buu212 


o 

0213 

PO 025 

0FC8 


ALS 

8 

MERGE THE 4TH CHAR OF THE INPUT 

^^HSOS 

‘-.l^^Nu6G0213 

0 

021- 

P0 026 

E929 


Loa^ 

FUNCTN41 

WITH THE 3RD CHAR OF THE FUNCTION 

♦^MSOS 

4.1^»N06C0214 


0 215 

PO 027 

0F28 


QRS 

8 


^^^MSOS 

4.i^^N9600215 



0216 

P0028 

CF68 


LRS 

8 


^^MSOS 

4.1^^»(^06G0216 


■’'”'1 

0217 

P 0 0 29 

6926 


STA^ 

FUNCTN41 ,I 


^»MSOS 

4,l*^N060Q217 

0 


0218 

PGQ2A 

E822 


LDQ^ 

QSAVE 


»^HSOS 

^.I’^^s^Na&OQZia 


0219 

PC02B 

C924 


LDA^ 

FJNCTNH ,I 

SEE IF THREE CHAR MATCH 

^'‘^MSOS 

4.1^>^N06G 0 219 



0220 

P0G2C 

9201 


SUB- 

i,a 


»^NSOS 

^.l^f^NOSOD 220 


D 

0221 

POuZD 

G IIB 


SAN 

NEXT 

SKIP IF NO MATCH 

’i^^MSOS 

4.1^^Nu6G0221 

' 0 


0222 

PG0 2E 

GOFF 


LDA- 

I 

SAVE INDEX TO 3 CHAR MATCH 

^^MSOS 

4.1«‘^N060 0222 


0223 

P0G2F 

681R 


STA^ 

F0JND3 


»^MSOS 

4.1^^N0600223 


0 










0 











0 
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PAGE 
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0224 

P0Q30 

1809 


JMP» 

NEXT 

SEE 

IF 

SIMILAR 4 

CHAR MATCH 

»^MSOS 

022 5 

P0 031 

C91E 

CHAR4 

LDA^ 

FUNCTN+1 





»»MSOS 

022 5 

PC 032 

9201 


SUfJ- 

1»3 

DO 

THE 

SECOND SET 

OF CHAR MATCH 

^»MSOS 

022 7 

PO U 3 3 

0115 


3 AN 

NEXT 

NO 




»^MSOS 

0229 

90 03*4 

C91C 

FOUND 

LOA^ 

FJNCTN*-2,I 

YES 

, PROCESS THE 

REQUEST 

-i^^^MSOS 

023 0 

Pi3 035 

C9FE 


INA 

-1 





^^MSOS 

0231 

P D 0 3 6 

6802 


STA» 

JMP + l 





^^HSOS 

0 2 3 2 

P0u3 7 

1800 

JMP 

JMP 

ERROR 





^*MSOS 


P0 038 

G 1 64 










i^^N0600224 
I’^-NOeo 0225 
1«^^NQ6Q0226 
1^^N3600227 

1»^N0600229 

i»^N0&00230 

l»^N0&0023i 

l’^^N06D0232 
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30 039 
P003A 
P003B 
P0 03C 
P003D 
P0G3E 
P003F 

POOp'J 
POOAi 
PQ 042 
P0G43 
PC 0 H 4 
PO Q45 
P 0 0 46 
P0047 
P0046 


POO 9A 
P0C4E 
P004C 
P0G4D 


D8 14 
C815 

20 -rH 

GOFF 
98 77 
0121 
18D4 

E8 OC 
C309 
0132 
60FF 
18EF 
C806 
0131 
18FB 
1800 
01 53 

FFFE 
FFFE 
0 0 0 0 
0 0 0 0 


NEXT 


FINI LOQ» DSAVE 
LDA^ FOUND3 
SAM TRY2 
SMALL STA- I 

JMP- FOUND 
TRY2 LDA» FOJN02 
SAM GERROR 
JMP^ SMALL 
GERROR JMP ERROR 


TRY2 


RAO-> I SAVE 
LDA^ ISAVE 
MUI- SIX 
STA- I 
SUB- MAX 
SAP FINI 
JMP^ REPEAT 


F0UND3 NUM -1 
F0UN02 NUM -1 
QSAVE NUM 0 
ISAVE NUM 0 


O 

O 


O 

O 

o 

o 


SET UP FOR NEXT GROUP 

ARE WE THROUGH 
YES 

NO, TRY AGAIN 


SEE IF 3 CHAR MATCH FOUND 

SKIP IF NOT 

SETUP MATCH INDEX 

PROCESS INPUT 

SEE IF 2 CHAR MATCH 

SKIP IF NO 

PROCESS INPUT 

ILLEGAL REQUEST 


»^MSOS ‘r,l»-^N06a0235 
'^^MSOS A.l^^^NOGOOeSB 
*»MSOS A.l^^^NOGOOZST 
■^^HSOS 4,l^^N0b0 0238 
^^MSOS 4.1^^NQ600 239 
^^MSOS A.I’^^NQGOGZAO 
^^MSOS 4.i*^^N06Q0 241 

^»MSOS ^.1-^N060 0 243 
^»MSOS h. 1’*-^N0&Q02^4 
=^^^MSOS 4.1»^N060 0245 
*^MSOS A.l^-^NuoaOEAG 
^-•^HSOS 4.1^^N0600247 
’*^^MSOS ^.1^^N0600248 
»-^MSOS 4.1^^NQ600249 
»^MSOS 4.1»^N0600250 
»^MSOS 4,1’^^NQ6Q 0 251 


»^HSOS 4.1»^N0600253 
^^‘^MSOS ^.l^^NOoO 0254 
^^HSOS 4. l^^NQoQ 0255 
’^^HSOS 4.1»^N060 0256 


o 

O 

o 

o 

o 

o 

o 

'0 

o 

o 

o 

o 

o 

c 

o 

o 

o 


— 

— 

- - 

- 



o 

0258 

PQC4E 

MIPRO 

3053 

FUNCTN ALF 

PAGE 8 

2, = S 

o 

0259 

P004F 

P0G50 

20 20 
019F 

ADC 

EQUALS- JMP 

0 25 C 

P0051 

2404 

NUN 

$2404 


0 2 5 1 

PDQ52 

FFFF 

NUM 

$FFFF 

o 

0252 

P0 0 53 

0 0 00 

NUN 

0 

025 - 

P 0 C 5 4 

53 43 

ALF 

2,3CMM 

o 

0 2 5 5 

PC055 
PO C5o 

4D4D 
01 85 

ADC 

SCMM- JMP 

0255 

P0G57 

2h 04 

NUM 

$2404 


0 257 

Pu 058 

0 0 3 0 

NUM 

0 


0268 

P0U59 

0 0 0 0 

NUM 

Q 

o 

027 3 

P0G5A 

4 5 46 

ALF 

2,EF 

o 

02 71 

P0Q5B 
PO 05C 

2020 
0 0 04 

ADC 

GETIND- JMP 

0272 

P0Q5D 

24 C 4 

NUM 

$ 2 -f 0 4 


0273 

P005E 

uOOl 

NUM 

1 

o 

0274 

3005F 

oaoo 

NUM 

0 

02 7 6 

P0060 

4546 

ALF 

2,EFMM 

Q 

027 7 

POObl 

P0062 

40 40 
0 0 04 

ADC 

GETIND- JMP 

0278 

P 0 063 

2404 

NUM 

$2404 


0279 

P 0 0 6 4 

OD 01 

NUM 

1 

C) 

0 28 0 

P 0 Go 5 

0 0 02 

NUM 

2 

0 2 82 

PO 0 b o 

4 5 40 

ALF 

2,EFLU 

•*- 

0733 

P0067 

P0068 

4C55 
0 004 

ADC 

GEIIND- JMP 

C.) 

0234 

P0069 

2404 

NUM 

$2404 


0 2 3 5 

!=a06A 

GOGl 

NUM 

1 


0 23 6 

POObB 

0 0 01 

NUM 

1 


G288 

P006C 

544F 

ALF 

2, TON 

o 

0289 

P0Q6D 

PQu6E 

4E20 
00 86 

ADC 

TIMER-JMP 

0290 

P0Q6F 

2404 

NUM 

$2404 


0291 

P 0 0 7 0 

FFFF 

NUM 

$ F F - F 

o 

0292 

PD071 

0 0 0 0 

NUM 

0 

0 29h 

PC072 

54 4F 

ALF 

2, TOFF 

o 

0 295 

P0073 
P0 074 

4 646 
eOFA 

ADC 

MOTIHE- JMP 

0296 

P0 075 

2404 

NUM 

$ 24 0 4 


0 29 7 

P0 0 76 

FFFF 

NUH 

$FFFF 


date: 01/27/99 
=S SCHEDULE ORDINAL 

SMALL COMPUTER MAINTENANCE 
SCMM17 

EF LIST ALL UNITS 
EFLIST 

EF LIST MASS MEMORY 
EFLIST 

EF LIST SPECIFIED LU 

EFLIST 

START TIMER 

STOP TIMER 


o 


C) 


»-^MSOS 

’f^^MSOS 

^^MSOS 

*-*fMSOS 

MON ITOR^^-^MSOS 
^^MSOS 

»^MSOS 

s^^MSOS 

^^MSOS 

■^♦MSOS 

^■^MSOS 

**HSOS 

»^MSOS 

»*MSOS 

’^^MSOS 

^’^HSOS 

»^MSOS 

■ »*MSOS 

»^MSOS 

»^MSOS 

»^MSOS 

»^MSOS 

^^MSOS 


L.l'^^NablOZSB 

L.l-^^NQb0p259 
Ni) 6 1 U 25 0 
^tl^'^^NObOO 2bl 
4.1^-N06QC252 


H.l^^^NObOO 264 

4.i’*-^N0 6J 0 265 
N06D 0 26b 
N063 0267 
4.1^^N06Q0258 


4.1*^Ni)60 0 270 

4.i»^NQ6Q 0 27 i 
NQ6QQ272 
N0600 27 3 
4.1'^'»-N0baQ 27 4 


4^i«^^N0630 27b 

L.l'^^-NQbOOETF 
N060 0 278 
NObO 0 279 
4.1^»N060a28G 


4.1**NQ6Q0282 

4.1^»N060Q283 

N0B00284 

N0630285 

4.i»^NQ600286 


4.t«^^N06Q 0 28S 

4. i»^NQ60028S 
NOdOO 290 
4.1^^NQ600291 
4.1«‘^Na6QG292 


4.1»^NQ500294 

L.l’^^NOeO 0295 
N06D0296 
4,1«^’^N060 D297 


O 

o 

o 

c 

C' 

o 

o 

o 

o 

o 

o 

o 

o 

r") 


o 
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o 


0298 

PO 07 7 

ooco 

NUM 

0 


0300 

P0Q78 

5 3 59 

ALF 

2,SYSC3P 

SYSTEM CHECKOUT 


P0079 

53 43 




0 30 1 

PO 07A 

0 004 

ADC 

GETIND-JMP 


030 2 

P0G7B 

2404 

NUM 

NUM 

$2404 

SYSCOP 

0 3 0 3 

P0 07C 

uQ 02 

2 

0 3 3 4 

PO 07n 

GOOD 

NUM 

0 


030 6 

P007E 

44 42 

ALF 

2,DB 

START ODEBUG 


P007F 

2020 


OB- JMP 


033 7 

P0080 

C18F 

ADC 


0303 
0 3 0 9 

PD081 

2404 

NUM 

$2404 

ODEBUG 

P0G82 

G 0 0 3 

NUM 

3 

0310 

P0083 

00 0 0 

NUM 

0 



0312 PDOa^r RA58 
P0089 2020 

0313 PUU86 019A 
031*t PQ 087 2*404 

0315 PD088 FFFF 

0316 PQ 089 00 00 


ALF 2,3X 

ADC DX-JMP 
NUM S24Q4 
NUM SFFFF 
NUM 0 


STOP ODEBUG 


^ 0318 P008A 4441 

P008B 5445 
03L9 P008G OODh 
032 3 POO 80 2^4 0 4 

0321 PQG8E 00 04 

0322 P008F 0001 


ALF 2, DATE 

ADC GETIND-JMP 
NUM $2404 
NUM 4 
NUM 1 


enter DATE/TIME 
TOFUNC 


0 

0324 P0Q90 5645 
P0G91 5249 

0325 D0092 00D4 

■■-7 0326 P0093 2404 

0327 P0Q94 0005 

0328 P0095 0000 

O 

0330 P0096 5449 
P0097 4045 
n 0331 P0Q98 0004 

0332 P0G99 2404 

0333 PC09A 0004 
G33- P009B 0002 

O 

0336 P009C 5453 
P009D 5554 

O 


ALF 

2»\/ERI"Y 

MSOS VERIFICATION 

ADC 

GETIND-JMP 


MUM 

$2404 


NUM 

5 

VERIFY 

NUM 

0 


ALF 

2, TINE 

PRINT CURRENT DATE AND TIME 

ADC 

GETIND- JMP 
$2404 


NUM 

TOFUNC 

NUM 

4 

NUM 

2 


ALF 

2,TSUT 

TIMESHARE UTILITIES 


O 


^^MSOS 4.1»^N0600298 


»^MSOS 4.1»^N06003G0 

*^^MSOS 4.1*‘^N06D03C1 
NObO 0 302 
N06G 0 303 
^»HSOS 4.1^^N06G03Q4 


^^HSOS 4.1^^ND6003D5 

^+MSOS 4. I’^’NObO D 307 
N060 C 308 
N06Q 0 309 
^4 *hsOS 4. I's^^NObO 0310 


^^MSOS 4.1«^^N06GQ 312 

«‘-«^MSOS 4.1»»N360 0 313 
NQ60 0 314 
--^HSOS 4.1*^N0600 315 
■’^^MSOS 4.1^’^NQ6u0 316 


^’^MSOS 4.1»^N060 0 318 

s^^MSOS 4.1’^-NQ60 0 319 
N060 0 320 
N06D 0 321 
»»MSOS 4. l^^NOdC 0 322 


N0600 324 

N0600325 
NOSO 0326 
NOoDO 327 
NOdJ C328 


’^^MSOS 4.1»^^N0600 330 

"^^MSOS 4. 1»*N06Q0331 
NO 60 0 35 2 
N06Q0335 
»^MSOS 4.1»-^NQ6u Q 334 


»^MSOS 4.1-^N0600336 


HI PRO 


3AGE 10 


OATEl 01/27/99 


0537 P009E 0004 
03 3 3 P0 09F 2^+0 4 

0339 POOAO G0D6 

0340 POOAl GOOD 


AOC GETINID-JMP 
NUM $2404 
NUK 6 
NUM a 


TSUTIL 


0342 P00A2 44-41 
P00A3 4353 

0343 PDuA4 0004 

0344 P00A5 2407 
Q345 PDOAb 0 0 0 7 

034o P0CA7 GOOD QDAC3 


ALF 

2, bags 

DACS 

ADC 

GETIND- JMP 


NUN 

$2407 

INDACS 

NUM 

7 

NUM 

0 



0348 

0349 
035 0 
0 3 51 
0 3 5 2 


P00A8 5752 
P00A9 4F4E 
POuAA 0130 
POOAB 2402 
POOAC FFFF 
POO AO GO 00 


ALF 2,WR0N ENABLE WRITE RING 

ADC WRNGON-JMP 
NUM $2402 
NUM SFFFF 
NUM 0 


Q 

0354 

PQuAE 

5752 

ALF 

POOAF 

4F 46 

ADC 


0355 

POOBa 

0132 


0356 

POOBl 

2402 

NUM 

o 

035 7 

P00B2 

FFFF 

NUM 

0358 

PO0B3 

00 00 

NUM 


2,WR0F DISABLE WRITE RING 

WRNGOF- JMP 
$2402 
SFFFF 
0 


P0084 GO&o 
P0085 7FFF 
P00B6 7FFF 
P00E7 7FFF 
P0QB8 7FFF 
P00B9 7FFF 
POOBA 7FFF 
PuOBB 7FFF 
POOBC 7FFF 


MAX ADC 
ORDT3L ADC 
ABC 
ADC 
AOC 
ADC 
ADC 
AOC 
ADC 


'^-FJNCrN 

SCMM17 

EFLI3T 

SYS COP 

ODEBUG 

TDFJNC 

VERIFY 

TSUTIL 

INDACS 


FUNCTION TABLE SIZE 
ORDINAL TABLE FOR MNEMONICS 


O 

O 

O 


o 


=^^HSOS 4.1^^N06D0 337 
N06Q0338 
N063 Q 339 
^^MSOS 4. 1«‘»NG60 0 34D 


^^MSOS 4.1»-^N060 0 342 

»^MSOS 4.i'^-^N0o0D345 
N060 0 344 
N0 60 Q 345 
»^MSOS A.l^^^NOBDOSAb 


N060 0 346 

NO 6-3 0 349 
NOdO 0350 
N060 0 351 
N06C 0352 


NO 6 3 0 35 4 

NQ6G0355 
N060 0356 
N060 0 357 
M060Q 358 


^^MSOS 4.1^^N06Q036Q 
N06G0361 
N 0 6 0 0 36 2 
N060Q3&3 
N063 0 364 
N06D 0 365 
N 0 6 0 0 366 
NabQ0357 
Noea 0 368 


C 

C' 

o 

Q 

o 

o 

o 

o 

o 

o 


o 


o 


o 


MI PRO 
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date: 01/27/99 


TIMER IMITIf^TION COOING 

TIMER STARTING SEQUENCE IS BASED ON THE TIMER TY 

r' n P» c 


TYPE 

NONE 

1572 

1573 

1572-1 1ST 
1572-1 SRG 
3o4-4 COMM. MUX. 
PSEUDO 
10335-1 


CODE 

0 


PGGBO 
PQOBE 
PQ GBF 
POGCO 
POuCl 
P00C2 
P0QC3 
P00C4 
P00C5 
PG 0 C 6 
P0DC7 
P u u C 8 
POOC9 
POOCA 


POOCB 

PQOCC 

POOCO 

POOCE 

PGOCF 

POODO 

POODl 

P00D2 


PuQD3 
PQ 0 D4 
POODS 
PQQD6 
P00D7 
PG0D8 
PGQ09 
POQDA 
PQODB 
POODC 


EOGO 
7FFF 
E2G1 
C2GD 
0 9 01 
0103 
C20D 
a 3 11 
52 GO 
1 0 Gu 
7FFF 
4hQ 0 
7FFF 
lAOl 


18 73 
18 0 7 
1310 
1814 
181E 
1820 
1830 
183Q 


E4uO 
7FFF 
C400 
7FFF 
0 3 53 
OOFE 
C4C0 
7FFF 
G3 4F 
1848 


X TIMER 
X 


X TIMERl 
X 
X 
X 


TIHVST 


X T1572 
X 
X 
X 


TOUT 


LDQ =XL0G1A 
LDQ- 1,Q 

'iZ- 

SAZ TIMERl NO 

LDA- 13, Q 

AND- LPMSK+15 RE-ENABLE 

STA- 13, Q 
LDQ =XTMCODE 

STQ+ TMRTYP RESTORE Tl 

JMP- TIMVCTjQ GO TO VEC 

TIMER PROCESSOR VECTOR TABLE 


IS THERE A SWAP TIME DEFINED 
NO 

RE-ENABLE CORE SWAP DELAYS 


RESTORE THE TIMER TYPE CODE 
GO TO VECTOR FOR JUMP 


JMP^^ VCTTIM 
JMP» T1572 
JMP^^ T1573 
JMP^ T72LST 
JMP’^- T72SRG 
JMP^ T3644 
JHP’^ PSEUDO 
JMP^ T10336 


NO TIMER 

1572 

1573 

1572-1 LST 
1572-1 SRG 
364-4 COMM. MUX 
PSEUDO TIMER 
10336-1 


1572 TIMER STaRTING CODE 


LOQ+ E15/2 

LDA+ EiS72F 

OUT REJ-^ 
INQ -1 
LDA+ 01572 

OUT R£J-» 
JMP^ MIOONE 


FUNCTION CODE 
ENABLE 1572 


DATA CODE 
REGISTER COUNTS 


EXIT 


^^MSOS L.l’^^NObCD 370 
»«^MSOS 4.1<^^N0600 371 
»^MSOS 4. l»^-'^Nu6C 0 372 
’^-v-MSOS 4.1^-»NQ6Q0373 
^^'‘MSOS 4. 1'^'^NObO 0 374 
^^MSOS 4.1^^N0600375 
»-^MSOS 4.1 ^^NOd0 0 376 
»^MSOS 4.1»-nG 6Q0377 
»^MSOS 4. 1*‘’^N06GD 378 
»^MSOS 4.1«‘^N0bGQ379 
»^MSOS 4.1’^^NG6Q 0 380 
N05J 0 381 
’‘^MSOS 4.1^»N06Q0382 
^^NSOS h. 1«^»NQ600 383 
^^MSOS H.l’^^NOeOO 384 

»-^MSOS 4,l^^^N06Q0 385 
’f-^MSOS 4.1*^^N060 0 386 
^-*^MSOS 4.1 ^»NOdO 0387 
^^MSOS 4.1^^NG6j 0388 
«-^MSOS 1»^N0600389 
»^MSOS 4.1^^N06DG 390 
-4MSOS -.1^^N06G0391 
»-»‘MSOS 4.1»^^N06G 0 392 

^^HSOS 4.1'^^N06QG393 

^•s^MSOS 4-.1»^N06QG394 
v^MSOS 4. 1 '^^NOoG 0 395 
-»-«^MSOS 4,l«^-^Na600396 
*^MSOS I^^NQdO 0 397 
»^MSOS 4.1»^N06DQ398 
^^MSOS 4.1»»NQ6Q0399 
^•^‘MSOS 4.1^^Na6D 0400 
^^-^MSOS 4.i^^NQ6G 0 401 
»‘*MSOS 4.1 *=-»NQdOO 402 
^•^MSOS 4, i»^N0b0 Q 403 
»»MSOS 4.1«‘*N060 0 404 
NQ b 0 0 40 5 
^^‘MSOS 4.1»-NQ6 uO 406 
^^MSOS 4.1»^NG6004Q7 
»^MSOS 4.1^^N0&a0 h 08 
*^MSOS 4. 1«^^N06U u 409 

»^HSGS 4.1=^^Nab00tlQ 

**MSOS 4.i»^NabO Q 4ll 
*^^MSOS 4.1’^-^N0 60 u 412 
»*MSOS 4.1«^^N0 600 41 3 


O 

o 

o 

o 

r'\ 

r\ 

o 

o 

o 

o 

o 

o 


o 


o 



^^♦MSOS 4.i=«^’^NaDQ 0 414 
N060 0 415 
»-«^MSOS 4.1»»Nu6QQ4l6 


MIPRO 
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DATE! 01/27/99 


u 

'■“'1 

O 

o 

0 

o 

o 

o 

o 

o 

o 


0417 




¥■ 

1573 

TIMER STARTING CODE 


C418 









0 419 

POODD 

E 4 C 0 

X 

T1573 

LDQ+ 

E1573 

FUNCTION CODE 



PO ODE 

7FFF 

X 






042G 

POODF 

ODFE 



INQ 

-1 



0421 

POOEO 

C032 



LDA- 

ONEBITf 15 

$8000 = ENABLE 


0422 

POGEl 

18F9 



JMP*- 

TOUT 

GO TO OUTPUT 


0423 









0424 





1572' 

-1 l3T starting CODE 


0 42 5 




-V- 





U 426 

P0GE2 

0 0 

X 

T72L5T 

LDQ + 

E15721 

FUNCTION CODE 



P00E3 

7FFF 

X 






0427 

PG0E4 

0 A3C 



ENA 

$33 

AND MASK FOR SRG FUNCTION 

BITS 

0-^28 

PG0E5 

05 0 0 



IIN 

0 



0429 

P 0 0 E6 

A4O0 

X 


AND+ 

H15721 




PQ0E7 

7FFF 

X 






043 G 

PQGE6 

09 02 



INA 

2 

2 = ENABLE INTERRUPT 


0431 

P00E9 

6400 

X 


STA + 

H15721 

RESTORE HISTORY WORD 



POOEA 

U0E7 

X 






0432 

POuEB 

0 40 0 



EIN 

0 



0 43 3 

POOEC 

18EE 



JMP^ 

TOUT 

GO TO OUTPUT 


0^34 









0 435 





1572' 

-1 SRG STARTING CODE 


0436 









0437 

PCOED 

E 4 0 0 

X 

T72SRG 

LDQ + 

E15721 

FUNCTION CODE 



PG DEE 

u 0E3 

X 






0438 

PG QEF 

0 A27 



ENA 

$27 

AND MASK FOR LST FUNCTION 

BITS 

0 439 

POOFO 

0 50 0 



IIN 

0 



0440 

POOFl 

A40 0 

X 


AND+ 

H15721 




P00F2 

0 OEA 

X 






0441 

P00F3 

0910 



INA 

$10 

$10 = ENABLE INTERRUPT 


0442 

PO0F4 

640 0 

X 


STA + 

H15721 

RESTORE HISTORY WORD 



Pu GF5 

Q OF? 

X 






0 4 4 3 

P 0 0 Fo 

u 4 G 0 



EIN 

0 



U 4 4 4 

P00F7 

0333 



OUT 

REJ-» 



0445 

P00F8 

E4Q0 

X 


LDQ+ 

D15721 

DATA CODE 



P00F9 

7FFF 

X 






0 4 4b 

POuFA 

C400 

X 


LDA + 

015721 

REGISTER COUNTS 



PODFB 

7FFF 

X 






0 4 4 ^ 

POOFC 

18DE 



JMP^ 

TOUT 

GO TO OUTPUT 


0448 









0449 





364- 

4 COMMUNICATIONS MUX. TIMER 


0450 









0 451 

POOFD 

E4 0C 

X 

T36nV 

LOQ+ 

EQ3644 

FUNCTION CODE 



POQFE 

7FFF 

X 






0452 

^OOFF 

0 A 06 



ENA 

6 

6 = ENABLE INTERRUPT 


0 45 3 

POIDO 

13DA 



JMP^ 

TOJr 

GO TO OUTPUT 


0 4P 4 









0 455 





PSEUDO TIMER 



0456 









G 45 7 

PGIGI 

182D 


PSEUDO 

JMP+ 

REUl 



0 45 8 









0459 





10336-1 TIMER 

START CODE 



»»MS0S 4.1^^N0600417 
♦^MSOS A.l’^^NObGOAia 
’^^MSOS 4.1^^N063 u tl9 

NOBQOhZO 
♦’■HSOS 4.1^^NQ60 0 421 
=*^»MSOS A.l^-^NO&DQ 422 
’^’^KSOS 4. l’^»N0 60 G423 
’*^^HSOS 4.1«^^NG6G0 h 24 
^^MSOS ^.l^^NOeOO -^25 
^^MSOS 4. 1»-N0&DD 426 

N05D0427 
’^^MSOS 4.1»^NOfaCO 428 
’^^MSOS 4. I^^NOdOO 429 

»^MSOS 4. i^^^NOSuOhSO 
»*MSOS 4.1^«^N0 600 -»31 

4.1»»NQcG 0 -+32 
^^MSOS 4.1'^^N06Q0433 
’f-'^MSOS 4.1«^^N0 60C -+34 
9^^MS0S 4,1^^N060 0 435 
’^^HSOS A.l’^^NOeOQ 435 
^^MSOS 4.1^^Na60D->37 

N 0 6 j 0 h3 S 
^^^MSOS 4.1^^N3600 439 
♦^HSOS 4.1^^N050uh40 

»^HSOS 4.1*^Na6Q0 441 
’^^HSOS 4.1’^»Na600t42 

^‘^MSOS 4.i^^^N06GQ443 
’^^MSOS 4.1*^^N060 0 444 
»»MSOS 4.1*^^^060 0 445 


' 4 ,.- 

O 

o 

O 

O 

o 

0 

1 ) 

c 

C) 

© 


»*-MSOS 4, 1 '‘^NiJbQ 0 446 

^^MSOS 4. l^^N060Q-+47 
MObJ 0 448 
NQoOO 449 
NO 6D 13 45 0 
^^‘HSOS 4.1*--^NQ6Q0451 

*»MSOS 4. l»*Nu6QQ 452 
*-^MSOS 4. 1*-^N0600 453 
*-^HSOS 4.1^^N360 0 454 
**^MSOS 4.1^-»^N0 63 0 -t5 5 
^^MSOS 4.1 '‘^Ni 35] 0 45 6 
♦^MSOS 4.i*‘»N060 Q 45 7 
NQ60 0 438 
NO 6 J 0 43 9 


o 

o 

c 

o 


o 


MIPRO 
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date; 01/27/99 


0 4 6 0 
0451 

P 0 1 0 2 

E'+GO 

X 

T10336 LOQ+ 

0-+62 

PC1G3 

POIQh 

7FFF 
C40 0 

X 

X 

LDA + 

0 463 

P0105 

POlUo 

7FFF 
0 324 

X 

OUT 

0 46 4 

P0107 

ODFE 


INQ 

0 "+ 5 5 

POIG 8 

^ 4 Li 0 

X 

LDA4 

0 4 6 o 

P01G9 

POlbA 

7FFF 

1800 

X 

JHP^ 


ElO 336 

FUNCTION CODE 

F10336 

ENABLE 

REJ-*^ 


-1 

DATA CODE 

010336 

CLOCK REGISTER VALUE 

TOUT 



NOoQO^dO 
N063 D 461 

N060 0 462 

N360 0 463 
NO 60 0 t6 4 
N 06 0 0 46 5 

NO 60 0 46b 


MIP=?0 


iH 


date: 01/ 27/99 


MAKE SYSTEM DIRECTORY SCHEDULER CALL IF PROGRAM SUPPLIED 


NO b i) 0 96 B 


PCICB 
PCIOC 
POIOD 
POlOE 
POIGF 
PO IIG 
POlll 
P0112 
PG113 
PG114 
PQ115 
P0116 
PC117 
PQ118 
P0119 
PullA 
POllB 
POllC 
PDllD 
PO HE 
POllF 
PO 12u 
P0121 
P0122 
P0123 


E9 00 
FF45 
CALC 
FFA6 
BO 11 
0112 
1800 
0 08A 
CAOC 
FFAO 
68QE 
08 2 2 
FOEB 
C204 
D112 
1800 
0 0 81 
C900 
FF33 
68 0 *+ 
E9 00 
FF32 
54F4 
5209 
0 0 0 0 


GETI.MD LOQ FUMCTN»-4,I 


EOR- 

SAN 

JHP 


GETl 


STA'> 

TRA 

ADQ- 

LDA- 

SAN 

GETERR JMP 


GET2 


STA^ 

LDQ 


SCHORP RTJ- 
CALL MUM 
ADC 


ORDTBL, a 

LPMSK+15 

GETl 

ERROR 

ORDTBL, Q 

CALl+1 

SE3 
4 , Q 
GET2 
ERROR 

FUMCTN93 ,I 
CALL 

FUMCTN45 ,I 

(AMONI) 

$5204 

0 


GET ORDINAL INDEX 
GET ORDINAL 


SKIP IF ENTRY PRESENT 


GET ORDINAL 

STORE ORDINAL IN SCHEDULER CALL 


HAS THE ORDINAL BEEN LOADED 
YES 

PROGRAM IS UNLINKED OR NOT LOADED 


SET THE LEVEL OF THE PROGRAM 
OBTAIN THE PARAMETER TO PASS 

SCHEDULE REQUESTED PROGRAM 


NQ6G 0470 

N060G471 

NQ60 0 ^72 
N060 D 473 
N06C 0 474 

N06G 0 475 

NQ60 0 476 
N0 6Q 0h 7 7 
N060 0478 
NQ6a 0479 
N063 0 480 
NQ600 481 

NQ63 0 482 

^^MSOS 4.1'^*N0600 483 
’^^MSOS 4.I»^^NJ6jD 484 

^MSOS V4.0 N060 q-,35 
NQbOC486 
»^MSOS 4.1«^^N0b00 487 


EXIT PATH FROM MIPRO 


NQ600489 


ii 5 0 1 


PQ124 uAOO 
P0125 69u0 
PQ126 7FFF 
P0127 5 hF4 
PG12B 1901 
P0129 FED7 

P012A OBGO 
PG12B uAOO 
P012C 6400 
P012D 00C9 
PG12E CO 00 
P012F OOOE 


MIOOME ENA 0 

STA+ MI8X 

RTJ- (AMONI) 

LIST NUM S19Q1 

ADC {MIPRO-LISD 
^ REJECT EXIT 

REJ NOP 0 

ENA 0 
3TA+- TMRTYP 

REJl LDA =XMSG2-REF 


CLEAR BUSY FLAG IN HANINT PROGRAM 
RELEASE GORE AND EXIT 


INDICATE NO TIMER 
TO PRINT -TIMER REJECT- 


NG630 491 
NQ60Q492 

NQ60 0 433 
N063 0 494 
N060 0 495 
N06J 0 495 
NO 63 0 49 7 
N063 0 49B 
NG63 0 h99 

N063 050 0 

NG6C0501 


JMP^ STDRIT 



NOUT 


’^-HSOS ^.l^^NOeO 0 

it.i’^^Noe: u505 
^^MSOS H.l^^NQ60 0 t)0o 
’^•^MSOS 4.1»-NQ60O5O7 
^-MSOS h.1^^NQ6DG5G8 
^^nSOS 4.1^^NQ60050 9 

*-»MSOS h. 1^^M0600510 
-^MSOS 4.1'^^N06G03li 
--MSOS -.l’^^Nu63iJ 512 
»^MSOS 4.1»^N0500 513 
»^MSOS 4.1^^iM06Q0514 
’^^MSOS 4.1»^NQ6ua 515 

'^^MSOS 4.i'^^N06G0 516 
’^^HSOS 4.1 + ^N06u0517 

^-HSOS 4,l^^^Na6Q 0 518 
»^MSOS 4.1«^^N0600 519 
*^HSOS 4. l’^^N060Q520 
*^*MSOS 4.1*^<‘N36Q 0521 
»*MSOS 4.1*^N060Q 522 
^»MSOS 4.1»^Na6D0523 
*»HSOS 4.1^-'^N060 0 524 
«^^HSOS 4.1 6-3 C 52 5 
^^NSOS 4.i^^^N3D0 052b 
^^MSOS h.1«^^MG6uG 527 
^^HSOS 4,1»^N0600528 
NG6 j 052 9 
^^MSOS 4.1"^^NG60G53D 
^‘^HSOS 4.i^f»N060u531 
♦^HSOS 4,i**N0600532 
’f^HSOS 4,l»^»NGb0G533 

»»MSOS h. 1*^N06G0534 
^^HSOS H.l^'^NOeOO 535 
*-»MSOS 4.1^^N0B3 0535 
»^MSOS 4.1«^N0600537 
^’fHSOS 4.1^^NQ600538 
»^MSOS h.1^^N0600539 

N0600540 
^^^MSOS 4.1»^»N060G541 
»^MSOS 4,1»'»M06G0542 
»^MSOS 4,1^»N06G0 543 
»»MSOS 4. 1»^N0500544 
'^^MSOS 4.1<f ^N0600545 
»^MSOS 4. 1^*NQ6Q 0 546 


r ) 
o 
o 
o 
o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


^^tiSOS 4.1>^^N06 j 0 547 
»»MSOS 4. l^^'^NO&O 0548 


o 
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date: 0i/2r/99 



’•^MSOS l^^Na60Q549 

-^MSOS 4.1^-N060 0 550 

-^MSOS ^.l^^^-NOEDOSSl 
»^MSOS 4.1»^^N060 0 552 
*f^MSOS iT.l--Na60u 553 
^^MSOS 4.1^^NQ6 uO 554 
^^MSOS -.1^^M0600555 
*-^MSOS 4.1»‘^*^N0600 556 

»^MSOS 4.1^*N0dG 0 557 
^‘^MSOS 4.1-^N060 0 558 
N05D 0559 
M3 60 0 550 
N0600561 
N0600 562 

N0600553 

NQ6j0364- 

N060 0 555 
N0630555 
MO 50 0 55 7 
’^=*‘MSOS 4.i^.^MG60G 568 

»^MSOS 4.1»^P»-Nj60 0 569 
' N06QQ57G 


C'- 

O 

o 

r'‘. 

Qi 

o 

o 

o 

o 

\ 

o 

o 

o 

o 

o 


o 
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DATE.' 01/27/99 


0572 

0573 
057U 

0575 

0576 

0577 
057 8 


* 

-> 

¥ 


HAG TAPE SIMULATOR WRITE RING PROCESSOR 

THIS ROUTINE ENABLES OR DISABLES THE WRITE RING ON THE 
SPECIFIED MAG TAPE SIMULATOR UNIT. 


THE LOGICAL UNIT SPECIFIED MUST CONTAIN 2 DIGITS 
EXAMPLE... WRON,09 
WR0F,28 


N06u 0 p 7 2 
N06G0573 
NJ6j0574 
N060 0 575 
N06Q057b 
NO 63 Q 57 7 
N063Q578 


0?3 G 
05 8 1 
C5 3 2 
j p 3 3 
053 4 

0 5 3 5 
0586 
05 87 
0588 
0 5 3 9 
0530 
D591 
0592 

0533 

059 ^* 

0535 
0 5 9 D 
0537 

0 5 3 8 


0539 

050 0 
QoOl 
050 2 
0503 

C 50 4 
OaOS 

05 0 6 
0 5 0 7 
0 5 0 8 

05 09 

0510 

0511 
0612 
0 513 
0 614 


PU167 
P0168 
P0169 
P016A 
P0160 
P016C 
P016D 
P016E 
P016F 
PG170 
P0171 
PG172 
P0173 
P017‘t 
PQ 175 
Pfl 176 
P0177 
P0173 
P0179 
P017A 
PG17R 
PG17C 
P017D 
P017E 
P017F 
poieo 
P0181 
PQ182 
P0183 
P0184 
P0185 
P0186 
P0187 
P0188 
Pu 189 
Pul8A 
Pal8B 
P018C 
P018D 
PQ18E 
P018F 
PO 19C 
P0191 
PG192 


C032 


WRNGON 

LDA- 

ONEBIT-t-15 

1802 



JMP- 

TAPSIM 

u A Q 0 


WRNGDF 

ENA 

0 

6831 


TAPSIM 

ST(k* 

FLAGPS 

E8 QC 



LOC 

aSAVE 

FEDF 





C202 



LDA- 

2,Q 

0FC8 



ALS 

8 

AOOA 



ANG- 

LPM3K+8 

09D3 



INA 

-$2C 

GlCl 



SAZ 

N3ERR 

1812 



JMP^ 

TAPERR 

C2G2 


NOERR 

LDA- 

2,D 

58 0 0 



RTJ 

CK 

D 0 A5 





0FC4 



ALS 

4 

6800 



STA 

HOLD 

00 A1 





C203 



LOA- 

3, a 

0FC8 



ALS 

8 

58G0 



RTJ 

CK 

GG9E 





B8G 0 



ADD 

HOLD 

C 0 9B 





5800 



RTJ 

DEOCT 

a 0 AS 





0822 



TRA 

Q 

09FE 



INA 

-1 

Q123 



SAP 

OKT API 

COOO 


TAPERR 

LDA 

=XMSG3- REF 

0015 





1818 



JMP^ 

STORIT 

9400 

X 

OKT API 

SUB + 

LOGIA 

0132 

X 




0151 



3 AH 

OKTAP2 

18F9 



JMP'^ 

TAPpRR 

E6 00 

X 

OKT AP2 

LOQ + 

LOGIA , a 

0188 

X 




41] FF 



STQ- 

I 

Cl C 8 



LDA- 

8,1 

0 F 44 



ARS 

*4 

AQ09 



ANG- 

LPMSK+7 

09C3 



INA 

-60 

0101 



SAZ 

OKTAP3 


SET ON FLAG 
SET OFF FLAG 

ISOLATE FIELD SEPARATOR 

IS IT A COMMA 

GET FIRST DIGIT 

CONVERT TO HEX 

GET SECOND DIGIT 
CONVERT TO HEX 

IS THE LU NEGATIVE 
TO PRINT -TAPE SIH ERROR- 

IS THE LU TOO LARGE 

YES, ERROR 

SAVE THE PHYSTAB ADDRESS 
ISOLATE the taUIPMENT TYP 

IS IT A MAG TAPE SIMULATOR 


N0600580 
NQ600581 
N060 G 582 
N060 0 583 
N050 0584 

N050 3 585 
NO 60 0 586 
NQ6g0587 
NO 50 0588 
NQ6j 0589 
NQBO 0590 
N06Q 0591 
NO 6 9 0 59 2 

N060 0 593 
N060O594 

N06Q0595 
N06Q 0596 
N0600597 

N0600 598 

N9600599 

N060 0600 
N060Q601 
N060Q 502 
N0600603 

NO 60 0 60 4 
N06006Q5 

N863 0 605 
Nfl&DQbOF 
N060 0608 

NO 63 0 60 9 

CODE N0600610 

N06Q 0611 
N060G612 
N0639613 
NQ600 614 


M I PRO 


PAGE 18 


date: 01/27/99 


0ol5 

P0193 

1 8FQ 


JHP^ 

TAPERR 

0616 

P0194 

0500 

0KTAP3 

IIN 

0 

0617 

PC 195 

OIQC 


LDA- 

12,1 

0616 

PG196 

AOll 


AND- 

LPMSK+1 5 

0 619 

P019 7 

B8 Q4 


FOR^ 

FLAGPS 

0 62 0 

P0198 

610C 


STA- 

12,1 

0621 

poigg 

0400 


E I N 

0 

0 5 2 2 
0623 

P019A 

1889 

V- 


NIOOME 

0624 

P u 1 9 B 

GOOD 

FLA G=S 

NUM 

0 


NO, ERROR 

GET THE HARDWARE STATUS WORD 
CLEAR THE WRITE RING BIT 
SET/CLEAR THE BIT 
RESTORE THE STATUS WORD 

EXIT 


NO 6 3 0 61 5 
NQ6QQ616 
N060Q6i7 
N060 0618 
NOoy 0 619 
N0600620 
N0600621 
NOB 0 0 622 
N060 0 623 
NO 60 0 62 H 


0 6 2 6 


6 CARDS DELETED 


NO 6 3 0 62 6 


0 



MIPRO 


PAGE 19 

DATE; 01/27/99 



0 

0 

o 









o 

0529 


-V- 

ERROR 

EXIT 



NG&00629 

■ 0 

o 

0 53 1 

P019C 

GOOO ERROR 

LDA 

=XMSG1-REF 

TO PRINT -HI INPUT ERROR- 

*^HSOS 

4. l^^Nfl6QG63i 

: 0 



P019D 

00 07 




»^MSOS 

4.1^^N0600632 



0532 

P019E 

6807 STORIT 

STA^ 

M3GL0C 



o 

0 53 3 

P019F 

5 4-F 4 

RTJ- 

(AMONI) 



NO 600633 

0 

0 639 

PCI lAO 

CD 35 REF 

NUM 

$D33 



NO 60 0 63 4 


0635 

POlAl 

7F83 

ADC 

MIOONE-REF 



N060 0 u3 5 



0536 

P01A2 

GuCO 

ADC 

0 



NOoO 0 536 


o 

0337 

PuiA3 

18FC 

ADC 

S18FC 



NO 60 0 63 7 

- C' 

053 8 

PD1A4 

0 0 0 7 

ADC 

7 


^^HSOS 

4.1^*Nu600o38 



0539 

P 0 lA 5 

GOOD MSG LOG 

ADC 

0 


^^MSOS 

A^l^^^NOeO 0639 



0 5 4 0 

PO 1 A 6 

14FA 

JMP- 

(3EA) 



NO60 0640 

0 


0542 

POIA 7 

4D49 MSGl 

ALF 

7, MI INPUT 

ERROR 

»^^MSOS 

4.1^^^NQ60 0642 



P01A8 

2 0 A9 







o 


PD1A9 

4E50 






' <■ ) 


PGIAA 

55 54 









PfllAB 

2 0 45 









POIAG 

5252 









POIAD 

4F52 





4.1»;^NO&00&43 

r 


Q543 

POIAE 

5449 MSG2 

ALF 

7»TIM£R REJECT 

«^^MSOS 




PGIAF 

4045 









POIEO 

5220 







o 


POIBI 

52 45 






0 


P01B2 

4 A 45 









POIBS 

43 5 4 









P01B4 

20 20 





NO 60 0 644 


'9 

0 5 4'-+ 

P01B5 

54 AI HSG3 

ALF 

7, TAPE SIM 

ERROR 



P01B6 

50 45 






w 



PC1B7 

20 53 









P01B8 

49 ^0 







i’’***'v 


P01B9 

2 0 45 






0 

■w' 


POIBA 

5252 






o 


PulBB 

4F52 






0 

o 

0 5 4 6 



ON-LINE SCHM-ir 

HA NDLER 

-^MSQS 

4«l'^'*‘N060064b 

0 

0547 

PQIBC 

C4G0 X SCMM 

LDA + 

SGMMLC 

CHECK FLAG IN SYSOAT 


NO 60 0 647 



POIED 

7FFF X 





4.1»^N06G0b48 



G 5 4 8 

POIBE 

01 12 

SAN 

R1 

SKIP IF SCMM NOW IN CORE 

^^MSOS 



0 5 49 

PulBF 

1800 

JMP 

GETINO 

FIRST TIME, SCHEDULE SCMM 


NO 63 0 649 

0 

{ ; 

POICG 

FF4A 





N060 0 65 0 


05 5 0 

POICI 

6800 R1 

STA 

GALL+1 






P01C2 

FF60 







O 









0 

o 









0 


MIPRO 


3AGE 20 


date: 01/27/99 





o 

c 

o 


! 


0 6 51 

P 0 1C 3 

1800 



JMP 


P01C4 

FF5C 




0 6 5 3 





IMIT 

0 65 5 

P01C5 

0 D B6 

X 

DBSY50 

ADC 

0 6 5 6 

PD1C6 

EOEB 


OB 

LDQ- 

06p 

P01C7 

F8FD 



ADO^ 

Q D 5 6 

P01C8 

CO 00 

X 


LOA' 


P01C9 

7FFF 

X 



0 6 5 9 

POICA 

6625 



STA- 

0660 

POICB 

C40 0 

X 

DBCKIT 

LDA + 


POICC 

7FFF 

X 



0 6 51 

PQICD 

0101 



SAZ 

0 6 5 2 

POICE 

18CD 



JMP’^ 

0 56 3 

POICF 

1800 


DBRQI T 

JMP 


POIDG 

FF3A 




0 6 5 4 





TURN 

0665 

POIDI 

0 AOO 


DX 

ENA 

0 666 

Pu 102 

64C 0 

X 


STA + 


P0iD3 

OICC 

X 



0 6 5 7 

P01D4 

18GQ 



JMP 


P01D5 

FFhE 





INITIATE DE3UG PACKAGE 
ODEBUG 


=X0DBSIZ 

(FOUR) , Q 
CHRSFG 

OEROIT-^^'-l 

ERROR 

GETIMD 

OFF DEBUG I 
0 

CHRSFG 

MIDONE 


RFL. INCREMENT TO DEBUG ENTRY IN SYS 
STORE CORRECT LENGTH 
IN SYS. OIR. ENTRY 
CHANGE OIR. LENGTH 


IS DEBUG IN 
SKIP NO 

PRINT ERROR MSG. 
SCHEDULE OBEDUG 


DIR. 


N060 0651 


NO 6 0 0 65 3 

NO 6 0 Li 65 5 
Nu 63 0 65 6 
NQ60 0657 
N063 0658 

N063 0659 
NQDQOboO 

NGbOObol 
N060 0662 
N060Qb63 

N0600664 
NO 60 0665 
NO 60 0 666 

Na600667 


O 

o 

o 


Q 

o 

o 


o 


o 


o 

u 

o 

(■~'l 

‘w* 


o 

o 

o 

o 


o 


o 


o 


o 


o 


o 


o 


HI PRO 


Pi\GE 21 


date: 01/27/99 


u 5 7 Q 


EQUAL S ROUriNE TO START SYSTEM DIRECTORY PROGRAMS. 


N0600670 


057^ P01D6 C201 
0 b 7 3 PO 1D7 40 FF 
0674 P01D8 5o42 
U575 PG1D9 6840 
0676 PulOA C201 

0577 PulDB QFC8 

0578 POIDC 583E 

0679 PQIDD 0FC4 

0680 POIDE 883B 
0581 POlDr QFC4 
0632 PGIEO £839 
u683 PGlEl C2C2 
0534 P01E2 0FC8 
0685 P01E3 5837 
0536 P01E4 8835 
0587 P01E5 5843 
0538 POlEb 09FE 

0589 P01E7 2005 

0590 P01E8 8QE7 

0591 P01E9 6800 
POIEA FF38 

0592 P01E8 A042 

0593 POieC EQEB 
0694 POlFO 0832 
Go95 POIEE E204 

0596 POIEF 0151 

0597 POlFO 18AB 

0598 PfllFl 90E6 

0599 PulF2 G131 
07uG P01F3 18A8 

U7G2 

0704 P01F4 C1G3 

0705 PQ1F5 0FC8 
0705 PG1F6 5824 

0707 P01F7 A006 

0708 °U1F8 80G0 
P01F9 2400 

0709 POIFA 68G0 
PGIFB FF26 


EQUALS LDA- 
STQ- 


1,3 

I 

RTJ^ CK 
STA^ HOLD 


1,Q 
8 


LOA- 
ALS 

RTJ«^ CK 
ALS 4 
ADD^f HOLD 


ALS 

STA- 

LDA- 


HOLD 

2,Q 


ALS 8 
RTJ’^ CK 
ADO^ HOLD 
RTJ^ OEOCT 


INA -1 
MUI- 35 
ADO- $E7 
STA CALL4-1 


PICKUP TWO DIGITS OF DIRECTORY NUMBER 
SAVE BUFFER ADDRESS 
CHECK AND CONVERT TO HEX 
SAVE SECOND DIGIT 


DO SECOND DIGIT FIRST 
NOW, FIRST DIGIT 

FORM COMPLETE DIRECTORY NUMBER 


RIGHT JUSTIFY 3RD DIGIT 


CONVERT FROM DECIMAL TO HEX 
REFERENCE TO ZERO 

ADDRESS OF 1ST HASS STORAGE ENTRY 
STORE SCHEDULER CALL 


NO 60 0 672 
NO 5 3 0 67 3 
N06G 067 4 
NG6Q0675 
N060 0 676 
N06QQ677 
NG60 0678 
N0630679 
NO 63 0 68 0 
N0 63 G681 
N06D 0682 
Na6Q06S3 
N060 0 684 
NO 60 0 68 5 
N06Q 0685 
NO 63 0687 
N363 0 688 
NObJ 0689 
N u 6 0 0 69 0 
NO 600691 


SPICI 


AND- 

LOQ- 

AAQ 

LOQ- 

5QN 

JMP^ 

SUB- 

SAM 

JMP* 


$42 

$EB 

Q 

4,Q 

SPICI 

ERROR 

$ bo 

SPIC2 

ERROR 


REMOVE BIT 15 


CHECK FUR ZERO LENGTH ORDINAL 
SKIP IF OK 


CHECK IF WITHIN LIMITS 
SK-P IF WITHIN LIMITS 
TO ERROR ROUTINE 


NObO Gb92 
53^1059 NQ63a693 

53^1069 N05G0694 

53^1069 N0630o95 

53^1069 N060Q696 

»^MSOS 4.i'^^N3o0 0 597 
53^1069 N0600698 

NG 60 0 699 
^^HSOS 4. l^^NObO 0700 


* SET PRIORITY LEVEL 


NG60 C702 


SPIC2 LDA- 3,1 
ALS 8 

AND- LPHSK+4 SCHEDULE PRIORITY/ 
ADD =N$24C3 


N063 0 70 4 
N06uG705 
N06Q0706 

^»MSOS 4. i»^Na&00707 

N0630708 


STA GALL 


-»^«-MSOS -^.1’^^N0600709 




0711 


CHECK FOR A PARAMETER TO PASS 


NQou 0 711 


MI PRO 


PftGE 22 


date: ul/27/99 


POIFC 
PGIFO 
PGIFE 
POIFF 
PG2J0 
P02bi 
P02C2 
P02Q3 
P020 h 
P0205 
P0 20 6 
P02G 7 
P02U8 
P0209 
P02C A 
P020B 
P020C 
P02CD 
P02DE 
P02GF 
PO 210 
PQ211 
PG212 
P0213 
P021h 


C103 
AOOA 
BO GO 
0 0 2C 
0102 
18 00 
FFIE 
C1G4 
CFC3 
5815 
0FC4 
6812 
C104 
5811 
880F 
QFC4 
66QD 
C105 
0FC8 
5 8 0 8 
8 8 09 
0FC4 
680 7 
C105 
5 8 06 


P0215 B804 
P021& 0822 


P0217 1800 
P0218 FF03 
P0219 0000 


Pu21A 
PG21B 
PG 21C 
P021O 
PQ21E 
P021F 
PO 22 0 
P0221 
P0 22 2 
P0223 
P0224 
P0 225 
P022 6 
P0227 
PC 228 
P0229 


0000 
AOOA 
09CF 
0 138 
09E8 
0 126 

0906 
0122 

0907 
0122 
090 A 
lCFi+ 
1800 
FF74 
0 0 0 0 
EOIE 


LDA- 3,1 
AND- $A 
EOR =N$2C 

3AZ SPID3 
JMP SCHDRP 


FFMASK 


SKIP IF NEXT CHARACTER COMMA 
SCHEDL. REQSED. PROGR. 


SPIC3 LDA- 4,1 
ALS 3 
RTJ^ CK 

STA^ HOLJ SAVE DIGIT 1 

LDA- 4,1 

RTJ'^ CK 

ADD- HOLD 

ALS 4 

STA* HOLD SAVE DIGITS 1 AND 2 

LDA- 5,1 

ALS 8 

RTJ’^ CK 

AOD^ HOLD 

ALS 4 

STA- HOLD SAVE DIGITS 1,2 AND 3 

LDA- 5,1 
P T C K 

T-tlS 'instruction ORS in CASE OF NEGATIVE ZERO IS PASSED 
EOR^ HOLD FORM COMPLETE PARAMETER 
TRA a PUT IN Q TO PASS 


SAVE DIGITS 1 AND 2 


SAVE DIGITS 1,2 AND 3 


SCHEDULE THE PROGRAM 
JMP SCHDRP SCHE 


SCHEDL. REOSED. PROGR. 


HOLD 


0 0 TEMPORARY STORAGE CELL 

INPUT DATA CHECK AND CONVERSION ROUTINE 


0 0 

AND- $A FF 

INA -$30 

SAM £R-^-l SKI 

INA -$17 

SAP ER NOT 0 THRU $F 
INA o 


FF MASK 

SKIP IF LESS THAN $30 


SAP ATHRUF 
INA 7 
SAP ER 
ATHR'JF INA 10 

JMP^ iCK) 

ER JMP ERROR 

DEOCT 0 0 

LDQ- $1E 


DO NOT ALLOW ASCII 
CODES -^3A THRU ^40 
TO PASS THRU THIS 
ROUTINE 

ILLEGAL CHARACTER INPUT 


SET ALL THRU FLAG 


NOo 00713 
N060 3 714 
NO 6 3 0 71 5 


o 


o 



N0 63 G 716 
N13 63 3717 



Nuou 0718 

■ c 


N063 0 719 
N063Q720 
N0b0Q72i 

o 


NO 60 0 72 2 


N060 0 723 
NOoJ 0 724 
N0&30725 



N0600726 


N0600727 

N0500728 

N0600729 

■ O 1 


NQ6Q0730 


N06uC731 
N060 0732 
N0600733 



NO&QO 734 

V.-' 

^629 

N060C735 
NO 5 3 0 73 6 
NQ63G737 

O 


NQ600738 



N060U740 
N063 0742 
NO 6 G 0 7 43 
N06u 0 745 

o o 


N06Q 0 747 
NG6G 0748 

o 


N06007L9 


4629 

N060 0 75 0 
N0600751 


^629 

NQ6G0752 

o 

^629 

NG600753 

N0630754 
N0600755 
N060 0 756 

o 

o 


NO 63 0 75 7 
NOdO 0758 
N06Q 0759 

N060 0760 
N060C761 


o 


O 


MIPRO 
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DATE: 01/27/99 


0732 P022A 0FF4 

0733 P0228 48 ID 
0754 PD2ZG B81A 
u735 PG220 581A 
0756 P022E 0105 

0737 PC22F B817 
0768 P0230 Q9F5 
0759 PG231 0131 
07 7 C PD232 18F3 

0771 P0233 09CA 

0772 P0234 2046 

0773 PQ235 6814 
077^. P0236 C8h4 

0775 P0237 E811 

0776 P0238 0FE4 

0777 P02S9 Q9F5 

0778 P023A Q131 

0779 PQ23B 18EA 

0730 PU23G 09CA 

0731 P023O 88CC 
0782 P023E 48 OA 
0735 P023F FOOE 
078-+ PQ24G 0l4l 

0785 PC241 18F2 

0786 P0242 E8 05 

0787 PG 243 0 1 51 

0738 P0 24‘t 08 64 
0789 PG245 1CE2 
0 7 9 0 PO 246 GOOD 

0791 P0247 DQOQ 

0792 P0248 0000 

079 3 Pu249 0 0 G G 

0794 0000 

0795 


DDEOCT 

ADEOCT 


EDE03T 


8DE0GT 


CDE03T 
HINU3 
ABLE 
BAKER 
CHARGE 
P MIPRDC 


LLS 20 

STQ^ BAKER 

EOR^"- MI'^US 

STA- ABLE 

SAZ AOEOCT-^-1 

EOR» MINUS 

INA -10 

SAM DDEOCT 

JMP^ ER 

INA 10 

MUI- $45 

STA^ CHARLE 

CLR A 

LDQ- BAKER 

LLS 4 

INA -10 

SAM EDEOGT 

JMP^ ER 

INA 10 

AOD^ CHARLE 

STQ» BAKER 

ADQ- $E 

SOZ BDE3CT-^-l 
JMP^ ADEOCT 
LOD^ ABLE 
SQM GOEOCT-^-t 
TCA A 

JMP^ (DEOCT) 

NUM $D 
0 0 
D 0 
0 0 

EQU MI PROC ( M IPRO) 
END HI^ROC 


FIRST DIGIT TO A, REST TO Q 
SAVc REST 

CHECK FOR MINUS SIGN^^^ 

SET INDICATOR FOR LATER 
START TO CONVERT 
SET FIRST DIGIT BACK IF NOT • 
DO NOT ALLOW INPUT OF 
A THRU F TO THIS OECIMAL/HEX 
CONVERSION ROUTINE 

CONVERT THIS PART (TIMES 10) 
PUT NEW VALUE TO TEMP 
CLEAR A 

GET SAVED NEXT PORTION 
NEXT FOUR TO A 
DO NOT ALLOW INPUT OF 
A THRU F TO THIS OECIMAL/HEX 
CONVERSION ROUTINE 

ADO THE PREVIOUS 
SAVE THE REST 
CHECK FOR DONE 
ZERO MEANS DONE 
GO BACK FOR ANOTHER TRY 
CHECK FOR MINUS SIGN 
ZERO IS MINUS 
COMPLEMENT THE ANSWER 
GO BACK HOME 
MINUS SIGN 


N069 0 762 
N060 0 753 
N06D0764 
NQ6 J 0 765 
NO 63 0 756 
N060 0767 
N3d 3 D 76 8 
NO 60 0 759 
N060G77C 
N360G771 
NOBGO 772 
N06uG773 
N06fl0774 
NO 60 0 77 5 
NQ63 0 776 
N060 0777 
N063 0 778 
N0600779 
NO&0G780 
N06D0781 
N3 60 0782 
N0600783 
N060C784 
N06G 0 785 
N060 0 786 
N063 0 787 
NB600788 
NO 6 3 0 7 89 
N0630790 
N0600791 
NQ50 0792 
N0500 793 
NQ6:0794 
NG600795 


PGM= 024A ( 585) COM = OOOu 


0 ) OAT = 


Ci) 


0 0 G J 


MIPRO 


3AGE 24 


DATEJ 01/27/99 


o 


r-1 




EQUIVALENCES 


o 

DEF .LINE 

NAME 

VALUE 


referenced at 

LINE 

NUMBER 



0 Q C 0 

I 

liOFF 

(0G0255) 

0177, 

Q 205, 

0222, 

0238, 

0 24 6 , 

0609 


0167 

LPMSK 

000 2 

<000002) 

0188, 

0 209, 

0390, 

0 472, 

0512 , 

0 587 

/***■ 

0 168 

NZERO 

0012 

(000Q13) 

0184 







0 169 

DNEBIT 

3 023 

( 000Q35) 

0 421 , 

0 513, 

0 53 4 , 

0541, 

0 563, 

0 580 


0 17G 

ZERO 

0 022 

< 0 00034) 

0183, 

0197 






3 171 

FOUR 

002 5 

(000037) 

3 5 59 







0 172 

SIX 

0 04 4 

( 0 0 0 Q68) 

0 23 7 






'w' 

3173 

ADISP 

OQEA 

( 00 0234) 








0174 

AMONI 

00F4 

{ 0 0 0 24 4 ) 

3 191, 

0 48 5, 

0 49 3 , 

0 633 




^0 

o 

o 

o 

o 

o 

o 

o 

o 


o 

0 6 73 

0612, 0618, 0707 

c 
o 
o 
' o 
■ o 

C) 

o 

o 

o 

o 

o 

o 




f 


HIPRO DAGE 25 DATES 

O 


o 

3 Y M B 0 

L S 






o 

DEF .LINE 

NAME 

ADDRESS 

REFERENCED AT 

LINE 

NUMBER 


01J4 

MIPROC 

0 00 0 

0134 





0176 

H IPRO 

0 0 0 0 

3 495 » 

0 794 



o 

0 191 

QSKED 

OGOF 

3 189 




3193 

r M P T 

uCll 

3 187 





0 196 

REPEAT 

0014 

0 1 86 , 

Q 241 




0 2 02 

CHAR2 

0019 

0199 




o 

3 20 8 

N0T2 

0020 

3 2 04 




0 225 

CHAR4 

0031 

0211 





0229 

FOUND 

0034 

0 2 47 





0 232 

JNP 

0037 

0 190 , 

0 231, 

0259, 

0265, 

o 

3 235 



3 3 43, 

0 349, 

0 355 


NEXT 

0039 

0 2 00 , 

0 20 7, 

0221 , 

0 2 2 4, 


0243 

FINI 

0040 

0240 





0246 

SMALL 

0 0 43 

0 250 




o 

0248 

TRY2 

0 0 45 

0 2 45 




0 251 

GERROR 

0048 

0 249 





0 253 

F0UND3 

004A 

0223, 

0 24h 




0254 

F0UND2 

004B 

0 2 05 , 

0248 



o 

0 255 

DSA VE 

0 04C 

0179, 

0196, 

0216, 

0243, 

0256 

ISAVE 

G04D 

0178, 

0 235, 

0236 


0 258 

FUNCTN 

0Q4E 

3 198, 

0 202 , 

0208, 

021-4, 


0 3 46 

DDACS 

00 A7 

3 180 



o 

3 360 

MAX 

0GB4 

0 2 39 




0 361 

ORDTBL 

Q 0 B 5 

3 471 , 

0 475 




0 384 

TIMER 

OOBD 

0 289 





0 392 

timeri 

OQCb 

0 388 




o 

0398 

TIMVCT 

OOCB 

0 394 




0 t G 9 

T1572 

00D3 

0399 





0 414 

TOUT 

OOOB 

0 4 22, 

0 43 3, 

9 447 , 

0453, 


3'^19 

T1573 

UODD 

3 43 0 





j 426 

T72LST 

00E2 

0 401 





0 43 7 

T72SRG 

OOEO 

0 402 





0 451 

To 644 

OCFO 

0 403 





0^-57 

^SEUDO 

0101 

0 404 , 

0528 



o 

0 461 

TIO 336 

0102 

0 405 





0 470 

GETINO 

OIQB 

0271, 

0277, 

0283, 

0 301, 


0^75 

GETl 

0113 

0 473 





0 481 

GETERR 

flllA 





o 

D 482 

GET2 

one 

0480 




0485 

SCHDRP 

0121 

0651, 

0717, 

0742 



0 486 

GALL 

0122 

0^76, 

0 48 3 , 

0 650, 

0691, 


O 


O 


01/27/99 


0 2 7 1 , 
0227 

0277, 

C 2 8 3 , 

0289, 

u295. 

0 30 1 , 

G 3 0 7 , 

0313, 0319, 0325, 0331, 0337 

0584 

0217, 

0 219, 

0225, 

0229, 

0 360 , 

0 47 j , 

C 482, 

0 4 8 4 

0 4 6 6 , 

0 535, 

0542, 

0552, 

u 554 , 

0573 



0319, 

0325, 

0331, 

0 337, 

0343, 

0649, 

0 6 63 



0709 


Cj 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

o 


o 





o 

o 

o 

o 


o 

C) 

G 

O 


u 


o 

o 


o 


MIPRO P^GE 26 


D 491 

lIDONe 

0124 

0194, 

0494 

LIST 

0128 

0 4 95 

0497 

REJ 

012 A 

0 4 1 1 , 

0 5 0 G 

REJ 1 

012E 

0 457 

0 5 0 9 

HOTIME 

U 131 

0 2 95 

3 522 

VCTTIM 

G13E 

‘3 398, 

0 533 

N1572 

0146 

0 523 

0 539 

M15 73 

G14A 

0 5 24 

J 5 40 

N72LST 

G14F 

0 5 25 

0 54 8 

'J3UT 

0152 

0 5 58 

0 55b 

N72SRG 

0159 

0 5 26 

0 562 

'J10336 

0150 

0 529 

0 b 6 8 

N13 o 44 

0162 

0 5 27 

0 580 

WRNGON 

0167 

0 349 

0 582 

WRNGOF 

0169 

0 3 55 

0 583 

TAPSIM 

016A 

0 581 

0 591 

'^OERR 

0173 

0 b 39 

Q 60 3 

TAPERR 

0184 

0 590 , 

0 n0 5 

OKT API 

0187 

0 6 02 

0 60 8 

0KTAP2 

018B 

3 6 06 

0616 

DKTAP3 

0194 

0 614 

Q 62 4 

FLAGPS 

019B 

0 5 83 , 

0631 

ERROR 

019C 

3 2 32, 

0 632 

STORIT 

019 E 

3 50 1 , 

3 o34 

REF 

0 lAO 

0 5 00 , 

Q 639 

'iSGLOC 

QIA 5 

0 632 

G d42 

HSGl 

OlA 7 

0 631 

0 643 

'1SG2 

OlAE 

0 500 

3 64 <+ 

MSG 3 

OiB 5 

0 6 0 3 

0 647 

3CMH 

OIBC 

Q2b5 

0 6 50 

Ri 

QiCl 

0 6 48 

0 d5 5 

DBSYSD 

Q1C5 

0 6 57 

0 656 

DB 

OIC 6 

3 307 

■j o 6 0 
0 663 

DBCKIT 

OBRQIT 

Dice 

OiCF 

0661 

3 D D 5 

OX 

OiOl 

3 313 

0 672 

EQUALS 

0106 

0 2 59 

0 6 9 8 

3PICI 

OlFl 

0 6 96 

0 704 
‘3 718 

S FIC2 

0 1 F 4 

3 6 99 

SPIC3 

020 3 

0 716 

0 7 43 

HOLD 

0219 

0 5 9 -f , 

0 747 

OK 

021A 

0 5 92 , 

0 757 

ATHRUF 

0224 

0 7 54 

0759 

ER 

022 6 

3 750 , 

0 760 

DEOCT 

022 8 

0 5 99 , 

0771 

OOEOCT 

0233 

0 769 

0 77 2 

ADEOCT 

0234 

0 7 66 , 

0 7 80 

EDEOCT 

023C 

0 7 78 

0 786 

BDEOCT 

0242 

0 7 84 

0 789 

CDEOCT 

0245 

3 7 87 

0790 

MINUS 

0246 

0 7 64, 

2791 

ABLE 

024 7 

0 7 65, 

0792 

BAKER 

0248 

0 7 63 , 




DATE! 

01/27/99 

'r '■ 

0 415 , 

0622, 

0635, 

0 6 6 7 


0 4 1 4 , 

0 444 , 

0 463, 

0522 

0 


0518 , Q 

O 

o 


0b07, 

0615 







0 619 
0 25 1, 

0474, 

0481, 0662, 0697, 0700, 07b9 

' 0 

0 60 4 
0 60 3, 

0 b31 , 

0635 



o 


o 


o 


o 


0598t G675» 0660) 
D597, 0674, 0678, 


C682, G686, 0722, 
0685, 0706, G720, 


0 725 , D727, 0731 , 
0724, G73Q, 0735, 


0733, 0737 
Q 75 8 


0752, G75o, 0770, 0779 
0687, 0789 


0 785 


o 

o 


0 7 67 
0736 

0 775, 0782 


o 


o 


C) 


o 


MIPRO 


PAGE 27 


DATE: 01/27/99 




o 

o 


0 79 3 


CHA RLE 


0249 


(0 

o 


3773, 0781 


Q) 

O 


O 

o 

Q 

O 

O 

o 


o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

C) 

o 


HTPRO PAGE 28 DATE: 


X T E R 

N A L S 


DEF. LINE 

XAME 

VALUE 

013 7 

LOGIA 

018C 

0138 

HIBX 

0126 

0139 

CHRSFG 

0103 

0 140 

3CMMLC 

OIBD 

0141 

5YSCOP 

Q0B7 

014? 

3DEBUG 

01C5 

0 145 

ODBSIZ 

01C9 

D 1 *+4 

EFLIST 

0GB6 

0145 

TDFUNC 

uOB9 

3 14 6 

VERIFY 

OOBA 

0147 

TGUTIL 

OOBB 

0 1 4b 

INDACS 

ODBC 

0149 

SCMM17 

00 B5 

0 150 

TMRTYP 

013C 

0151 

TMGODE 

0139 

015 2 

H15721 

0156 

0 l;>3 

E1572 

014 7 

3154 

E1572F 

0006 

0 155 

31572 

OODA 

G 15 b 

E1573 

OIhB 

015 7 

E15721 

G15A 

0 158 

015721 

00F9 

0 15 9 

015721 

QOFB 

0 160 

EQ3 044 

0163 

0161 

E10336 

0 1 5 E 

3 162 

01 0 33 6 

010 9 

0165 

F 1 0 3 3 6 

010 5 

016 4 

CRIMPT 

0011 


- EREN3 

ED AT 

LINE NUMBER 

D 3 8 4 » 
0 492 

0 5 09, 

0605, 0608 

3 6 60 » 
0 6 47 
0 365 

0 666 


0364, 
0658 
0 3 62 
0 365 
0 365 
0 3 6 7 
0 368 
0 361 

0 655 


0 393 , 

0 h99, 

0517 

3 3 92, 

0 515 

0 -th 0 , 0 h4 2 , 

Q 429 , 

0 h3 1 , 

0 4U9 ♦ 
0 410 
3 4-13 

0533 


Oh 19, 

0539 

G54o, 0556 

3 H 26 » 
0 445 
0 446 

0h37, 

0 451, 

0568 


0 461 , 
0 H 65 
0 462 
0193 

0 56 2 



j 1/27/99 


(]549i 0 55 0 


MIPRO 


PA3E 29 


DATE! 01/27/99 


o 


o 

o 

o 

o 

o 



P H A 

B E T I 

CAL 

SORT 

ABLE 

0 791 

adeoct 

0 772 

AOI3P 

C4AR2 

0 202 

CHAR4 

0225 

GHARLE 

DBROIT 

u 65 3 

D8SYSD 

0 655 

OOEOGT 

El 5 73 

0 Ip 6 

EOEOCT 

j 780 

EFLI3T 

F- A GPS 

0 u2 4 

FOUND 

0 229 

FOUND2 

GETERR 

0 481 

GETIND 

0 470 

H15721 

LIST 

G 49 0 

LOGl A 

0137 

LPMS< 

HOT IME 

0509 

MSGl 

3 u42 

MSG 2 

N72LST 

0546 

N72SRG 

0 556 

NEXT 

015721 

0159 

ooBsrz 

0143 

ODEBUG 

aoAcs 

0346 

QSAVE 

3 255 

QSKED 

SCHM 

0647 

sen Ml 7 

0149 

SCMMLS 

SYSCOP 

Gl4l 

T 1 0 3 3 6 

0 46 1 

T1572 

TOFUNC 

0145 

TIMER 

0384 

TIMER 1 

VGTTIM 

0522 

VERIFY 

0 145 

WRNG3F 


0 F 

S Y M B 

0 L S 

+■44 


0173 

AMONI 

0174 

ATHRUF 

0757 

0 7 93 

CHRSFG 

0139 

CK 

0747 

0 7 71 

DEOCT 

0 760 

OX 

0665 

3 1 44 

EQ3644 

0 160 

EQUALS 

0672 

0 254 

FOUND 3 

0253 

FOUR 

0171 

0152 

HOLD 

0/43 

I 

000 G 

0167 

MAX 

0360 

HIBX 

013 8 

0 6 43 

MSG 3 

0 644 

MSGLOC 

063 9 

0235 

NO ERR 

0591 

N0T2 

0208 

0142 

OKTAPl 

Q 6u 5 

OKTAP2 

060 8 

0 191 

R1 

0 650 

REF 

0 63 4 

0140 

SIX 

0172 

SMALL 

0246 

0409 

T15 73 

0419 

T36-4 

Q451 

0 392 

TIMVCT 

0398 

TMCODE 

0151 

0 582 

WRNGON 

0580 

ZERO 

0170 


u 

o 

o 

o 

o 

o 

o 

o 

o 



BAKER 0792 
CRIMPT 016h 
E l0o36 0 161 
E R 0 75 9 

FUNCTN 0258 
IMPT 0193 
HI DONE 0 491 
N1G336 0562 

NOUT 0546 
0KTAP3 0616 
REJ 0497 

SPIC2 0704 
T72LST 0426 
TMRTYP 0150 


BDEOCT 0786 
D15721 0158 
E1572 0153 
ERROR 0631 
GERROR 0251 
INOACS 0148 
HINUS 0790 
N1572 0533 
MZERO 0168 
ONEBIT 0159 
REJl 0500 
SPIG3 0718 
T72SRG 0437 
TOUT 0+14 


CALL 

G 486 

CDEOGT 

0789 

DB 

0 65 6 

DBCKIT 

0 660 

E15721 

0157 ^ 

' E1572F 

0154 

FIQ 336 

0163 

FINI 

C243 

GETl 

0 4? 5 

GET2 

0 482 

ISA VE 

0 25 6 

JMP 

0232 

MIPRO 

D176 

MIPROC 

0134 

N15 73 

■ 0539 

N3644 

0568 

010336 

0162 

01572 

0155 

ORDTBL 

0 361 

PSEUDO 

0 45 7 

REPEAT 

0196 

SCHORP 

0485 

SPICI 

0698 

3TORIT 

G632 

TAPERR 

0 603 

TAPSIM 

0 583 

TRY2 

0 248 

tsutil 

0147 


o 

o 

o 

o 

r'\ I 

O 

o 

o 

o 

o 

o 

o 

Q 

o 

n 


